salut

voila j'ai une macro qui insert dans une table accès des donnée.
Elle marche tres bien tant qu'il n y a pas de date dans la requête SQL.

il y aune erreur de syntaxe mais je ne voit pas quoi ???

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
    Sub ajout_of()
 
        If TextBox3.Text = "" Then
            Exit Sub
        End If
 
        'insertion de data
        Dim Connection As New OleDb.OleDbConnection()
        Dim cmd As OleDbCommand
        Dim DtSet As New DataSet()
        Dim Sql As String
        'ouverture de la connection
        Connection.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & "data source=" & TextBox2.Text & ";"
        Dim dat As String
 
        dat = Date.Now
 
 
        Sql = "insert into ordre (ordre,poste,etat,date-entree,date-sortie) values ('" & TextBox3.Text & "','" & Environment.MachineName() & "','enposte',#" & dat & "#)"
 
        cmd = New OleDbCommand(Sql, Connection)
        Connection.Open()
        cmd.ExecuteReader()
        cmd.Connection.Close()
 
 
        Label6.Text = TextBox3.Text
        Label6.Refresh()
        RadioButton1.Checked = True
        TextBox3.Text = ""
        TextBox3.Enabled = False
        TextBox3.Focus()
 
        System.Threading.Thread.Sleep(1000)
 
        TextBox3.Enabled = True
        RadioButton1.Checked = False
        TextBox3.Focus()
 
 
 
    End Sub
voici un exemple de requete généré par la macro

Code : Sélectionner tout - Visualiser dans une fenêtre à part
insert into ordre (ordre,poste,etat,date-entree,date-sortie) values ('1000000','FREUAD0H002682','enposte',#02/12/2011 08:09:54#)
merci d'avance pour votre

bonne journée