1 2 3 4
| For i = 0 To gv1.Items.Count - 1
cmd.CommandText = "insert into EcritureComptable([Cod-Journal],[num-piece],[num-cpt],[date-piece],[intitule-ecriture],debit,credit,DEcheance,NumFact,tag,[user]) values('" & gv1.rows(i).Cells(0).Text & "','" & gv1.rows(i)Cells(1).Text & "','" & gv1.Rows(i).Cells(2).Text & "','" & gv1.rows(i).Cells(8).Text & "','" & Left$(gv1.Rows(i).Cells(4).Text, 100) & "','" & gv1.Rows(i).Cells(5).Text & "','" & gv1.Rows(i).Cells(6).Text & "','" & gv1.Rows(i).Cells(7).Text & "','" & gv1.Rows(i).Cells(3).Text & "','" & Left$(gv1.Rows(i).Cells(9).Text, 15) & "','" & login & "')"
cmd.ExecuteNonQuery()
Next |
Partager