Visual Basic - error en moveprevious y movelast

Life is soft - evento anual de software empresarial
 
Vista:

error en moveprevious y movelast

Publicado por SOFIA (1 intervención) el 26/01/2006 21:26:47
Estoy haciendo un programa con recordset y tengo unos botones de primero siguiente anterior y ultimo.. me saca un error en los botones anterior y ultimo.

Error '3219' en tiempo de ejecucion:
la operacion no esta permitida en este contexto

lo mas raro es que me funcione en el primero y en el siguiente
Set Rssql = New ADODB.Recordset
SQL = "select * from tblarticulos"
Set Rssql = cnAcces.Execute(SQL)
If Not Rssql.BOF Then
Rssql.MovePrevious
End If
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
sin imagen de perfil

RE:error en moveprevious y movelast

Publicado por kdlc (226 intervenciones) el 26/01/2006 23:06:00
Si ya has abierto el recordset no es necesario ejecutarlo de nuevo ... lo abres una vez y ya ... Revisa este codigo a ver que tal va
Suerte

Option Explicit
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset

Private Sub Command1_Click()
'checar por BOF
rst.MovePrevious
Me.Text1.Text = rst.Fields(1).Value
End Sub

Private Sub Command2_Click()
'Checar por EOF
rst.MoveNext
Me.Text1.Text = rst.Fields(1).Value
End Sub

Private Sub Form_Load()
Dim strConn As String
Set cnn = New ADODB.Connection ' coneccion ADO
'Set rst = New ADODB.Recordset ' data
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=c:\TuDB.mdb"
cnn.CursorLocation = adUseClient
cnn.Open strConn
'otra forma de ejecutar un Recordset
'rst.Open "Select * from TuTabla", cnn, adOpenStatic, adLockOptimistic
Set rst = cnn.Execute("select * from TuTabla")
Me.Text1.Text = rst.Fields(1).Value 'Donde mostrar tu campo
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar