ayuda con actualizacion BD

pilartellez
04 de Febrero del 2006
hola amigos, necesito una ayuda. con la actualicaion de datos de un base datos cuya tabla se llama empresa y quiero cambiarle la direccion o telefono y que no me resulta con el codigo que tengo me arroja un error 3021 no hay ningun registro activo. Estos son con los dos codigos q probe y alguien me ayuda con alguna sugerencia desde ya gracias......

Private Sub Command3_Click()
Dim sql_E As String
sql_E = "update Empresa set Dir_Empresa=\'&Text3&\' where Rut_Empresa=\'&text1&\'"
base.Execute (sql_E)
End Sub


Private Sub Command3_Click()
Dim sql_e As String
Dim cons As Recordset
sql_e = "select * from Empresa where Rut_Empresa=\'" + Text1 + "\'"
Set cons = base.OpenRecordset(sql_e, dbOpenDynaset)
If cons.RecordCount <> 0 Then
Text1 = cons("Rut_Empresa")
End If
Empresa.Edit
Empresa("Rut_Empresa") = Text1
Empresa("Nom_Empresa") = Text2
Empresa("Dir_Empresa") = Text3
Empresa.Update
Data1.Refresh
limpia
End Sub



ana
04 de Febrero del 2006
OK MIRA ANTES DE ESO COLOCALE UN ON ERROR ES DECIR ESTE CODIGO Data1.Refresh
If Data1.Recordset.RecordCount > 0 Then
Data1.Recordset.MoveLast
Data1.Recordset.MoveFirst
endif