SQL Server - ERROR AL HACER UPDATE

 
Vista:
sin imagen de perfil

ERROR AL HACER UPDATE

Publicado por ANTONIO (15 intervenciones) el 23/11/2008 11:22:49
AUNQUE NO ES SQL SERVER espero vosotros que sois expertos me echeis una mano
:
Vereis amigos yo creo una consulta con el siguiente codigo:
Dim adodb As ADODB.Connection
adodb = New ADODB.Connection
Dim rst As ADODB.Recordset
rst = New ADODB.Recordset
adodb.Open("PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("CGI-BIN/NMOBRES.MDB"))
rst.Open("select * from TBLNOMBRES", adodb)
RST.MOVEFIRST
WHILE NOT RST.EOF
Dim adodb3 As ADODB.Connection
adodb3 = New ADODB.Connection
Dim rst3 As ADODB.Recordset
rst3 = New ADODB.Recordset
adodb3.Open("PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("CGI-BIN/CARRERAS/" & Session("BASEDATOS")))
rst3.Open("SELECT * FROM DATOS", adodb3, Global.ADODB.CursorTypeEnum.adOpenKeyset, Global.ADODB.LockTypeEnum.adLockOptimistic)
RST1.ADDNEW
RST1.FIELDS("NOMBRE").VALUE=RST.FIELDS("NOMBRE").VALUE
RST1.UPDATE
RST.MOVENEXT
END WHILE
ADODB3.CLOSE
ADODB1.CLOSE

Bueno como podeis comprobar hago al principio una conexion a la base de datos nombres y recupero todos los registros, luego con un while no rst.eof recorro todos los registros hasta el final y mientras los recorro abro otra conexion a otra base de datos y le voy agregando el campo nombre. con un addnew y update.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder