Visual Basic - Se ha Producido el error "3265" En tiempo de ejecu

Life is soft - evento anual de software empresarial
 
Vista:

Se ha Producido el error "3265" En tiempo de ejecu

Publicado por InuYasha (3 intervenciones) el 22/05/2008 22:51:40
QUIERO HACER UN BOTON "ANTERIOR Y SIGUIENTE" SOLO QUE CUANDO EJECUTO EL CODIGO ME ARROJA UN ERROR LLAMADO

Se ha Producido el error "3265" En tiempo de ejecucion:
No se encontro el elemento en la coleccion que corresponde con el nombre o el ordinal pedido.

***********************************************************
Sub Conectar
Public datConnection As ADODB.Connection
Public recSet As ADODB.Recordset
Public strDB As String

strDB = "C:/bd1.mdb"

Set datConnection = New ADODB.Connection
Set recSet = New ADODB.Recordset
datConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =" & strDB & ";"
End Sub

Private Sub Anterior_Click()

Call Conectar

With recSet
.ActiveConnection = datConnection
.LockType = adLockReadOnly
.CursorType = adOpenStatic
.Open "SELECT Id FROM Empleados WHERE Clave='" & TextBox1 & "'"
End With

recSet.MovePrevious

If recSet.EOF Then
MsgBox "No hay registros anteriores"
Else
TextBox1 = recSet("Clave")
TextBox2 = recSet("Nombre")
ComboBox1 = recSet("Departamento")
ComboBox2 = recSet("ComisionGrupal")
ComboBox3 = recSet("PCom2UD")
TextBox3 = recSet("Sueldo")
End If

Set recSet = Nothing
datConnection.Close: Set datConnection = Nothing

End Sub
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

RE:Se ha Producido el error

Publicado por daniel (145 intervenciones) el 23/05/2008 21:35:23
tenes el nombre de alguno de los campos de tu bd mas escrito en tu recordset.
Saludos
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

RE:Se ha Producido el error

Publicado por jonathan (1 intervención) el 29/03/2011 22:45:57
gracias daniel me sirvio mucho tu comentario
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