pb d'insetion dateRésolu

Question

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Connection.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & _
       "data source= C:\Documents and Settings\Administrateur\Bureau" & "\dat.mdb"

        
        'Try
        Dim n
        Dim d As New Date
        Dim cmd As String
        n = TextBox1.Text
        d = TextBox2.Text

        
        cmd = "INSERT INTO dt  VALUES (" & n & ", #" & Format(CDate(DateTimePicker1.Value).Date, "dd/MM/yyyy") & "# )"


        Console.WriteLine("dat=" & Format(CDate(DateTimePicker1.Value).Date, "dd/MM/yyyy"))
        Dim adapter As New OleDbDataAdapter(cmd, Connection)
        Dim tob As New Data.DataSet
        Connection.Open()
        adapter.Fill(tob)
        ' Catch ex As Exception
        MsgBox("Impossible d'ajouter cette intervention. Vérifiez vos champs")
        ' End Try
        Connection.Close()
    End Sub

je tape 04/06/2010
je trouve 06/04/2010 dans ma base

cs_DARKSIDIOUS · Accepted Answer

Salut,

Essaye avec :
cmd = "INSERT INTO dt VALUES (" & n & ", #" & Format(CDate(DateTimePicker1.Value).Date, "MM/dd/yyyy") & "# )"
______________________________________

AVANT de poster votre message, veuillez lire, comprendre, et appliquer notre réglement

houssemchak · Answer

effectivement c'est la meilleur solution
un grand merci

Pb d'insetion date

2 réponses

Votre réponse

Discussions similaires