1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
Set monWS = DAO.Workspaces(0)
Set maBDD = monWS.OpenDatabase("gp", True, True, "ODBC")
Range("a3").Select
Set monRS_item = maBDD.OpenRecordSet("lvl1_items", dbOpenDynaset)
StrChaineSQL = "INSERT INTO lvl1_items ( designation_FR, designation_GB, qty, groupe_marchandise, indice, supplier, contrat ) VALUES (" & _
Chr(34) & ActiveCell.Offset(0, 2) & Chr(34) & ", " & _
Chr(34) & ActiveCell.Offset(0, 3) & Chr(34) & ", " & _
Chr(34) & ActiveCell.Offset(0, 4) & Chr(34) & ", " & _
Chr(34) & ActiveCell.Offset(0, 5) & Chr(34) & ", " & _
Chr(34) & ActiveCell.Offset(0, 6) & Chr(34) & ", " & _
Chr(34) & ActiveCell.Offset(0, 7) & Chr(34) & ", " & _
Chr(34) & ActiveCell.Offset(0, 8) & Chr(34) & ")"
maBDD.Execute StrChaineSQL |
Partager