1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| 'création de la connexion
Set Cnx = New ADODB.Connection
'définition de la chaine de connextion
Cnx.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\HistoMac.mdb;" & "Jet OLEDB:Database Password=" & motdepasse & ";"
'ouvre la base de données
Cnx.Open
'création de la requète
Set rst = New ADODB.Recordset
'si la machine n'existe pas, on l'insère dans la base
If TestNum_de_serie = False And TestNum_client = False Then
'création de la requète insérer
stSQL = "INSERT INTO Machines(Type_machine,Marque_machine,Mod_machine,Num_de_série,Num_client,Type_CN) VALUES('" & Replace(Combo1.Text, "'", "''") & "','" & Replace(UCase(Combo2.Text), "'", "''") & "','" _
& Replace(UCase(Combo3.Text), "'", "''") & "','" & UCase(Text1.Text) & "','" & UCase(Text2.Text) & "','" & Replace(UCase(Combo4.Text), "'", "''") & "')"
Debug.Print stSQL
'exécution de la requète
rst.Open stSQL, Cnx
End If |
Partager