como actualizo una tabla.de.access(datagrid-adodc)
Publicado por osvaldo (1 intervención) el 09/06/2006 04:04:55
hola espero y me ayuden
lo que pasa es quiero actualizaar una tabla de access2000 para que se visualice
mi tabla en el formulario de VB. puse un datagrid y esta vinculado mediante un adodc porque la tabla la estoy jalando mediante la red.
lo que quiero es que si me pueden ayudar con algun codigo para que la tabla se vaya actualizando, ya que constantemente sus registros cambian constantemente.
por cierto para conectarme a la base de datos mediante ODBC utilice Dataenviroment.
inserte un boton de comando con el siguiente codigo para actualizar la tabla espero y me ayuden a corregirlo
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset.Update
Adodc1.Recordsource selec from Li_Lineas"
Adodc1.Refresh
DataGrid1.Refresh
MsgBox "LA TABLA ESTA ACTUALIZADA"
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Activate()
Adodc1.RecordSource = "select * from LI_Lineas"
Adodc1.Refresh
End Sub
Private Sub Form_Load()
Adodc1.RecordSource = "select * from LI_Lineas"
Adodc1.Refresh
End Sub
lo que pasa es quiero actualizaar una tabla de access2000 para que se visualice
mi tabla en el formulario de VB. puse un datagrid y esta vinculado mediante un adodc porque la tabla la estoy jalando mediante la red.
lo que quiero es que si me pueden ayudar con algun codigo para que la tabla se vaya actualizando, ya que constantemente sus registros cambian constantemente.
por cierto para conectarme a la base de datos mediante ODBC utilice Dataenviroment.
inserte un boton de comando con el siguiente codigo para actualizar la tabla espero y me ayuden a corregirlo
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset.Update
Adodc1.Recordsource selec from Li_Lineas"
Adodc1.Refresh
DataGrid1.Refresh
MsgBox "LA TABLA ESTA ACTUALIZADA"
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Activate()
Adodc1.RecordSource = "select * from LI_Lineas"
Adodc1.Refresh
End Sub
Private Sub Form_Load()
Adodc1.RecordSource = "select * from LI_Lineas"
Adodc1.Refresh
End Sub
Valora esta pregunta


0