RE:enlasar un mshflegrid a un recorset de ado
nose si es esto a loque queres llegar cualquier cosa avisame
fede
Sub GrabaGrid()
Dim sqlup1, sqlup As String
Dim nrodeuda As Double
With MSFlexGrid1
For i = 1 To .Rows - 1
If .TextMatrix(i, 0) = "" And .TextMatrix(i, 1) = "" And .TextMatrix(i, 2) = "" And .TextMatrix(i, 3) = "" And .TextMatrix(i, 5) = "" Then
GoTo pasa:
End If
lsql = "Insert Into facturas(Idfactu,total,impodto,Idarticulo,Idcliente,Canti,precio,dto,importe) " & _
"Values ('" & txtnumfac.Text & " ','" & (txttotal.Text) & "','" & dto2 & "','" & Trim(.TextMatrix(i, 0)) & "','" & txtcod.Text & " ','" & Trim(.TextMatrix(i, 2)) & "','" & Trim(.TextMatrix(i, 3)) & "','" & val(.TextMatrix(i, 4)) & "','" & Trim(.TextMatrix(i, 5)) & "')"
cn.Execute lsql
Next i
End With
pasa:
sale:
End Sub