Dagrid a Access
Buenas tardes, tengo una duda, lo que pasa es que tengo un formulario con un datagrid, y quiero guardar lo datos que se ingresen en el datagrid a una tabla en access, me podría ayudar con el código para guardar los datos en access. Gracias.
Respuesta de Isaac Reyes
1
Para poder ayudarte con mayor exactitud necesito saber:
¿De qué forma te conectas a la base de datos?
¿Ya conseguiste ingresar los datos en el dataGrid?
¿De qué forma te conectas a la base de datos?
¿Ya conseguiste ingresar los datos en el dataGrid?
Uso ADODB y los datos ya los recibía en el datagrid, lo que quiero es que los datos que yo ingreso an el datagrid se guarden en access.
Asumiendo que tu DataGrid no está enlazado con la tabla, la forma de hacer las inserciones que te puedo sugerir es la siguiente:
Private Sub Insertar()
Dim strBD As String
Dim bdd As ADODB.Connection
Dim strSql As String
strBD = "tuBaseDeDatos"
Set bdd = New ADODB.Connection
bdd.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strBD
For i = 1 To Me.DataGrid1.ApproxCount
strSql = "INSERT INTO tuTabla VALUES('" & _
Me.DataGrid1.Columns(0).CellValue(i) & _
"','" & Me.DataGrid1.Columns(1).CellValue(i) & _
"','" ... Otro campo ... & _
"','" & CStr(Me.DataGrid1.Columns(n).CellValue(i)) & "')"
MsgBox strSql
bdd.Execute strSql
Next
End Sub
Private Sub Insertar()
Dim strBD As String
Dim bdd As ADODB.Connection
Dim strSql As String
strBD = "tuBaseDeDatos"
Set bdd = New ADODB.Connection
bdd.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strBD
For i = 1 To Me.DataGrid1.ApproxCount
strSql = "INSERT INTO tuTabla VALUES('" & _
Me.DataGrid1.Columns(0).CellValue(i) & _
"','" & Me.DataGrid1.Columns(1).CellValue(i) & _
"','" ... Otro campo ... & _
"','" & CStr(Me.DataGrid1.Columns(n).CellValue(i)) & "')"
MsgBox strSql
bdd.Execute strSql
Next
End Sub
