Como hago para que el DataGrid me refleje los datos que guardo con ADO

Alexforo
14 de Octubre del 2004
'Declaro lo que voy a necesitar

Dim MiConexion As ADODB.Connection
Dim MisRegistros As ADODB.Recordset

Set MiConexion = New ADODB.Connection
Set MisRegistros = New ADODB.Recordset

'Esto lo de abajo pongo a la hora de cargar un formulario

Private Sub Form_Load()

With MiConexion
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "" + App.Path & "PEPE.mdb" + ""
End With
MiConexion.Open

MisRegistros.Open "Domicilios", MiConexion, adOpenStatic
'Solo con "static o keyset" me refleja en el grid ¿Hay alguna otra forma de abrirlo para que cuando guarde datos me los vaya reflejando??

Set DataGrid1.DataSource = MisRegistros
DataGrid1.Refresh

End Load

'Y a la hora de guardar uso esta intruccion

Private Sub Command1_Click()

MisRegistros2!CALLE = Trim(Text7.Text)
MisRegistros2!NUMERO = Trim(Text8.Text)
MisRegistros2!INTERIOR = Trim(Text9.Text)
MisRegistros2!COLONIA = Trim(Text10.Text)
MisRegistros2!CP = Trim(Text11.Text)

MisRegistros.Update

DataGrid1.Refresh

End Sub

'Pero no me lo refleja el Grid =( ... Saben alguna manera para hacerlo...no quiero recurrir al Control ADO (Adodc)..

Gracias...

Bartolom
14 de Octubre del 2004
Me da la impresión de que no es problema del grid.
Fíjate que en el evento click estás modificando los campos de MisRegistros2, pero debes hacerlo en MisRegistros, ya que ese es el recordset que posteriormente actualizas y tienes enlazado al grid.

Saludos!
Bartolom
Chile

Alexforo
14 de Octubre del 2004
tienss razon ya puse todo iagual a MisRegistros pero aun asi siguen dando problemas

Quedo asi entonces

Dim MiConexion As ADODB.Connection
Dim MisRegistros As ADODB.Recordset

Set MiConexion = New ADODB.Connection
Set MisRegistros = New ADODB.Recordset

'Esto lo de abajo pongo a la hora de cargar un formulario

Private Sub Form_Load()

With MiConexion
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "" + App.Path & "PEPE.mdb" + ""
End With
MiConexion.Open

MisRegistros.Open "Domicilios", MiConexion, adOpenStatic
'Solo con "static o keyset" me refleja en el grid ¿Hay alguna otra forma de abrirlo para que cuando guarde datos me los vaya reflejando??

Set DataGrid1.DataSource = MisRegistros
DataGrid1.Refresh

End Load

'Y a la hora de guardar uso esta intruccion

Private Sub Command1_Click()

MisRegistros!CALLE = Trim(Text7.Text)
MisRegistros!NUMERO = Trim(Text8.Text)
MisRegistros!INTERIOR = Trim(Text9.Text)
MisRegistros!COLONIA = Trim(Text10.Text)
MisRegistros!CP = Trim(Text11.Text)

MisRegistros.Update

DataGrid1.Refresh

End Sub

Espero me puedas decir ayudar gracias

rafa
14 de Octubre del 2004
Hola.
Prueba a poner despues del update:
MisRegistros.Requery
Esto hace que se vuelva a ajecutar la consulta.
Suerte
Rafa