Recordset

03/03/2007 - 16:31 por JUDAJIME | Informe spam

Cordial Saludo, utilizo un recordset de la siguiente forma:
Dim rs As ADODB.Recordset
Dim strSQL As String

strSQL = "SELECT * FROM BD_VEHICULOS WHERE id_vehiculo = " & a

Set rs = CreateObject("ADODB.Recordset")
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open strSQL, CurrentProject.Connection

rs.Fields("id_estado_veh").Value = 2
rs.Fields("ultima_OT").Value = Me.id_entrada_taller
rs.Fields("notas_ultimoreporte").Value = Left(Me.observaciones, 100)
rs.Fields("Fecha_ultimoreporte").Value = Me.fecha_ent_taller & " " &
Me.hora_ent_taller

rs.Update
rs.Close

Este aplicativo lo tengo montado en un servidor, al ejecutarlo desde el
servidor me trabaja normal, pero al ejecutarlo desde terminal por correo
remoto se ,e genra el error "Current Recordset does not support
updating.."

Que podrá ser el error??

Saludos,
JUDAJIME

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Alejandro Mesa

03/03/2007 - 17:01 | Informe spam

JUDAJIME,

No veo que hayas declarado la propiedad CursorLocation, la cual debe ser
ServerSide para el tipo de cursor adOpenKeyset. ADO / SQL SERVER no siempre
crean el cursor pedido, pues si las condiciones para que este cursor exista
no se cumplen, ellos crearan otro tipo de cursor. Despues de abrir el cursor,
muestra nuevamente todas sus propiedades para ver cual tipo se creo.

AMB

"JUDAJIME" wrote:

Cordial Saludo, utilizo un recordset de la siguiente forma:
Dim rs As ADODB.Recordset
Dim strSQL As String

strSQL = "SELECT * FROM BD_VEHICULOS WHERE id_vehiculo = " & a

Set rs = CreateObject("ADODB.Recordset")
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open strSQL, CurrentProject.Connection

rs.Fields("id_estado_veh").Value = 2
rs.Fields("ultima_OT").Value = Me.id_entrada_taller
rs.Fields("notas_ultimoreporte").Value = Left(Me.observaciones, 100)
rs.Fields("Fecha_ultimoreporte").Value = Me.fecha_ent_taller & " " &
Me.hora_ent_taller

rs.Update
rs.Close

Este aplicativo lo tengo montado en un servidor, al ejecutarlo desde el
servidor me trabaja normal, pero al ejecutarlo desde terminal por correo
remoto se ,e genra el error "Current Recordset does not support
updating.."

Que podrá ser el error??

Saludos,
JUDAJIME

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida