1 2 3 4 5 6 7 8
| strSQL = "INSERT INTO [" & strTbl & "] " & vbCrLf & _
"([ID_Fournisseur], " & _
"[FOURNISSEUR], [RESUME], [ADRESSE1], " & _
"[ADRESSE2], [VILLE], " & _
"[CODE_POSTAL], [TELEPHONE], [FAX], [EMAIL], [Ref_Cat])" & vbCrLf & _
"VALUES (500000,'test','test','test','test','test','222222','0666666666','0665656565','test',6);"
'VALUES ('" & strIdFour & "','" & strNmFour & "','" & strresFour & "','" & strAdr1Four & "','" & strAdr2Four & "','" & strVilleFour & "','" & strCpFour & "','" & strTelFour & "','" & strFaxFour & "','" & strEmailFour & "','" & strCatFour & "');
db.Execute strSQL |
Partager