Hola.. bueno sere rapido y breve :D
Tengo un programa que genera una base de datos con access.
Al principio por no saber .. convertia la base de datos a acess 97 pero como ya se que con el control ADO (adodc ) se puede utilizar access 2000 y ya no tengo la necesidad de transformarla a access 97.
Ahora el problema esta en modificar la informacion en esa base de datos.
Para modificarla tenia el control ADO y EL Control DAO.
COn el Ado cargaba la lista de datos y con el Control DAO modificaba y guardaba y remplazaba la nueva informacion.
Este es el codio del DAO:
Código:
Private Sub save_Click()
Data1.Refresh
Data1.Recordset.Edit
Data1.Recordset.Fields("regoexp") = Text2.Text
Data1.Recordset.Fields("barra") = Text3.Text
Data1.Recordset.Fields("mnemonico") = Text4.Text
Data1.Recordset.Fields("caja") = Text5.Text
Data1.Recordset.Fields("pozo") = Text6.Text
Data1.Recordset.Fields("observacion") = Text1.Text
Data1.Recordset.Update
Data1.Recordset.Close
Call load_Click
MsgBox "Error Modificado", vbInformation
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub
Lo que quiero es no usar el DAO ( data1 ) sino usar el ADO
Intente utilizar el siguiente codigo pero pues no funciona solo me agrega otro registro no modifica.
Codigo ADO:
Código:
Private Sub save_Click()
bd.Refresh
bd.Recordset.AddNew
bd.Recordset.Fields("regoexp") = Text1.Text
bd.Recordset.Fields("barra") = Text2.Text
bd.Recordset.Fields("mnemonico") = Text3.Text
bd.Recordset.Fields("observacion") = Text4.Text
bd.Recordset.Fields("caja") = Text5.Text
bd.Recordset.Fields("pozo") = Text6.Text
bd.Recordset.Update
bd.Recordset.Close
MsgBox "Error Agregado", vbInformation
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text1.SetFocus
End Sub
con ese codigo me agrega pero no me lo modifica.. que tengo que cambiarle.. intente cambiar la siguiente linea:
por esta linea
y no funciono y luego lo intente cambiar por este:
y no funcion y por ultimo lo cambie por este:
y tampoco funciono.. Sera que me puedan ayudar??
digo que tengo que cambiar esa linea ya que es la unica que cambia con el control DAO.. osea hice una comparacion con DAO y ADO y utilizan el mismo codigo a excepcion del que yo modifique ahi se pueden dar cuenta.
Codigo DAO:
Codigo ADO:
Espero su ayuda. Gracias de antemano.