
error al modificar
Publicado por alarte (22 intervenciones) el 23/08/2007 19:59:02
me da el error_
El valor de BOF o EOF es true....................
Private sBase As String
Private cnn As ADODB.Connection
Private WithEvents rst As ADODB.Recordset
---------------------------------------------------------------------------------------------------
Private Sub Command2_Click()
sBase = App.Path & "\Taller_Toni.mdb"
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
rst.Open "SELECT * from clientes where matricula='" & Datos(0).Text & "'", cnn, adOpenDynamic, adLockOptimistic
rst!nombre = Datos(0)
rst!direccion = Datos(1)
rst!cdpostal = Datos(2)
rst!poblacion = Datos(4)
rst!provincia = Datos(3)
rst!cifnif = Datos(5)
rst!telefono1 = Datos(6)
rst!telefono2 = Datos(7)
rst!fax = Datos(8)
rst!ovserbaciones = Datos(14)
rst!marca = Datos(9)
rst!modelo = Datos(10)
rst!motor = Datos(12)
rst!chasis = Datos(13)
rst!matricula = Datos(11)
rst.Update
rst.Close
cnn.Close
Set rst = Nothing
Set cnn = Nothing
MsgBox "EL CLIENTE HA SIDO MODIFICADO", , "MODIFICAR CLIENTE"
End Sub
GRACIAS POR LA AYUDA
El valor de BOF o EOF es true....................
Private sBase As String
Private cnn As ADODB.Connection
Private WithEvents rst As ADODB.Recordset
---------------------------------------------------------------------------------------------------
Private Sub Command2_Click()
sBase = App.Path & "\Taller_Toni.mdb"
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
rst.Open "SELECT * from clientes where matricula='" & Datos(0).Text & "'", cnn, adOpenDynamic, adLockOptimistic
rst!nombre = Datos(0)
rst!direccion = Datos(1)
rst!cdpostal = Datos(2)
rst!poblacion = Datos(4)
rst!provincia = Datos(3)
rst!cifnif = Datos(5)
rst!telefono1 = Datos(6)
rst!telefono2 = Datos(7)
rst!fax = Datos(8)
rst!ovserbaciones = Datos(14)
rst!marca = Datos(9)
rst!modelo = Datos(10)
rst!motor = Datos(12)
rst!chasis = Datos(13)
rst!matricula = Datos(11)
rst.Update
rst.Close
cnn.Close
Set rst = Nothing
Set cnn = Nothing
MsgBox "EL CLIENTE HA SIDO MODIFICADO", , "MODIFICAR CLIENTE"
End Sub
GRACIAS POR LA AYUDA
Valora esta pregunta


0