Leer datos de un datagrid

hola
01 de Junio del 2004
hola, quisiera poder cojer los datos de un datagrid e insertarlos en una base de datos access

Gabriel
01 de Junio del 2004
Espero que te sirva, tenes que limpiar un poco el código para que te funcione. La función SQLExecProc(....) es la que realiza la actualización de la base, es una fcion defina por el usuario.



Dim SQLParSend As String, F_i As Integer

On Error GoTo cmdSendMailError

If Trim$(txtMensaje.Text) <> "" Then
For F_i = 1 To grdEMail.Rows - 1
grdEMail.Row = F_i
SQLParSend = cSQLChr & grdEMail.TextMatrix(F_i, 1) & cSQLChr & cSQLSep
SQLParSend = SQLParSend & cSQLChr & Trim$(txtMensaje.Text) & cSQLChr
grdEMail.Col = 0
If grdEMail.CellPicture <> 0 And grdEMail.CellPicture <> PicMail(1).Picture Then
If SQLExecProc("Enviar_Mail", SQLParSend, False, "C", True) Then
grdEMail.Col = 0
Set grdEMail.CellPicture = PicMail(1).Picture
\'Pinto todo el Row
grdEMail.SetFocus: SendKeys "{RIGHT}"
Else
grdEMail.Col = 0
Set grdEMail.CellPicture = PicMail(2).Picture
End If
End If
Next
grdEMail.Refresh
Else
BoxStop "El campo de mansaje debe contener alguna información para ser enviada."
End If
grdEMail.Row = 1: grdEMail.SetFocus: SendKeys "{RIGHT}"