SOLO PARA EXPERTOS
Publicado por Edgar Herrarte (1 intervención) el 03/05/2006 00:07:35
Mis amigos, una super ayuda, les comento que tengo un aplicativo con Access, me es necesario insertar registros en Oracle y lo logre por medio de coneccion ODBC, el problema que tengo es que esta coneccion no me funciona para actualizar datos por medio del Edit... quien me puede hechar una buena ayuda.... mi aplicativo aun lo manejo en Visual Basic 5.0... gracias ....
Edgar Herrarte
Set wrkMain = CreateWorkspace("ODBCWorkspace", _
"admin", "", dbUseODBC)
wrkMain.DefaultCursorDriver = dbUseClientBatchCursor
Set conMain = wrkMain.OpenConnection("planilla", _
dbDriverNoPrompt, False, _
"ODBC;UID=XX;PWD=XX;DSN=XX;")
Set rstTemp = conMain.OpenRecordset( _
"SELECT codigo FROM NOMINA1.edgar", dbOpenDynaset, dbRunAsync) 'dbOptimisticBatch
With rstTemp
.Edit
rstTemp.Fields![codigo] = 100
.Update
Edgar Herrarte
Set wrkMain = CreateWorkspace("ODBCWorkspace", _
"admin", "", dbUseODBC)
wrkMain.DefaultCursorDriver = dbUseClientBatchCursor
Set conMain = wrkMain.OpenConnection("planilla", _
dbDriverNoPrompt, False, _
"ODBC;UID=XX;PWD=XX;DSN=XX;")
Set rstTemp = conMain.OpenRecordset( _
"SELECT codigo FROM NOMINA1.edgar", dbOpenDynaset, dbRunAsync) 'dbOptimisticBatch
With rstTemp
.Edit
rstTemp.Fields![codigo] = 100
.Update
Valora esta pregunta


0