Dim db As DAO.Database Set db = OpenDatabase("", dbDriverComplete, False, "ODBC;DSN=MYSQL;UID=root;PWD=;Database=campingabl") Dim sql1, sql2 As String Dim rs1, rs2 As DAO.Recordset datereser = Text4(2) & "/" & Text3(2) & "/" & Text2(2) sql1 "UPDATE location SET DATEARRIVEE '" & datereser & "' WHERE [NUMRES] = " & x & " " db.Execute (sql1)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question