Ayuda con un RecordSet
Publicado por Raul (9 intervenciones) el 24/06/2004 01:26:47
Buenas tengo un problema cuando quiero con el recordset q tengo declarado moverme hacia atras en los registros o utilizar la propiedad RecordCount para saber los registros que hay no me deja, supongo q es por la declaracion del RecordSet. El codigo q tengo es el siguiente:
Global rcs As New ADODB.Recordset
Public Sub consultacitafecha(FECHACITA As String)
Dim parametro As ADODB.Parameter
Set parametro = New ADODB.Parameter
Set Cnnconexion = New ADODB.Connection
Set rcs = New ADODB.Recordset
rcs.CursorLocation = adUseClient
rcs.CursorType = adOpenStatic
conn = "UID=" & LOGIN & ";PWD=" & CONTRASEÑA & ........ cadenaconexion = "PROVIDER = OraOLEDB.Oracle.1; ......
Cnnconexion.Open cadenaconexion
Set cmd = New ADODB.Command
With cmd
Set .ActiveConnection = Cnnconexion
.CommandType = 1
Set parametro = .CreateParameter(, adDate, adParamInput, , FECHACITA)
.Parameters.Append parametro
.Properties("PLSQLRSet") = True
.CommandText = "{CALL RAUL.PAQ_RAUL.consultafecha_dev_citapaciente(?)}"
End With
Set rcs = cmd.Execute
cmd.Properties("PLSQLRSet") = False
End Sub
Cuando hago referencia a la propiedad RecordCount me devuelve -1 y no me permite la utilizacion de la propiedad MovePrevious. ¿Donde puedo tener el error?
Global rcs As New ADODB.Recordset
Public Sub consultacitafecha(FECHACITA As String)
Dim parametro As ADODB.Parameter
Set parametro = New ADODB.Parameter
Set Cnnconexion = New ADODB.Connection
Set rcs = New ADODB.Recordset
rcs.CursorLocation = adUseClient
rcs.CursorType = adOpenStatic
conn = "UID=" & LOGIN & ";PWD=" & CONTRASEÑA & ........ cadenaconexion = "PROVIDER = OraOLEDB.Oracle.1; ......
Cnnconexion.Open cadenaconexion
Set cmd = New ADODB.Command
With cmd
Set .ActiveConnection = Cnnconexion
.CommandType = 1
Set parametro = .CreateParameter(, adDate, adParamInput, , FECHACITA)
.Parameters.Append parametro
.Properties("PLSQLRSet") = True
.CommandText = "{CALL RAUL.PAQ_RAUL.consultafecha_dev_citapaciente(?)}"
End With
Set rcs = cmd.Execute
cmd.Properties("PLSQLRSet") = False
End Sub
Cuando hago referencia a la propiedad RecordCount me devuelve -1 y no me permite la utilizacion de la propiedad MovePrevious. ¿Donde puedo tener el error?
Valora esta pregunta


0