Como hago para que el DataGrid me refleje los datos que guardo con ADO
'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...
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...
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
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
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
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