Discussion :

[ADONET]

Bonjour,

Je developpe une appli sous .Net avec une BDD Access.

Je teste une requete d'insertion pour voir si ce que je develope fonctionne bien. Je fais un test d'insertion de données; tout marche sauf l'insertion des données de type Date qui se transforme ds un format bizarre. Mon champ étant bien Date/heure sous Access. Mon probleme vient donc du code VB.NET


'Voici ma fonction d'ajout que j'ai mis ds une classe nommé DEMANDEDB

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
 
    Public Function AddDemande(ByVal LibelleDemande As String, ByVal TypeDemandeID As Integer, ByVal DateDemande As Date, ByVal DatePrevisionDemande As Date, ByVal Commentaires As String)
        Dim strSQL As String = ""
        Dim cmd As OleDbCommand
 
        OuvrirConnexion()
 
 
        strSQL = "INSERT INTO T_DEMANDE ( LibelleDemande, TypeDemandeID, DateDemande, DatePrevisionRealisation, Commentaires ) " _
& " VALUES (" & LibelleDemande.ToString & "," & TypeDemandeID & "," & DateDemande & "," & DatePrevisionDemande & "," & Commentaires.ToString & ")"
 
        cmd = New OleDbCommand(strSQL, _cn)
        cmd.ExecuteNonQuery()
 
        FermerConnexion()
End Function

Je suis ici ds mon Winform pour tester ma Rqt d ajout. La requete marche , mais probleme sur les date qui ne sont pas au bon format.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
 
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strSQL As String = ""
        Dim cmd As OleDbCommand
 
        Dim dd As New DemandeDB
        dd.AddDemande("'OURS EN PEPITE'", 3, CDate("01/01/2006"), CDate("01/01/2006"), "''")
 
 
    End Sub

Pouvez vous m aider à debloquer ce petit probleme ?

Merci et bonne Année !!!

[ADONET]

J'ai trouvé ! Encore une histoire de # !!

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
 
   Public Function AddDemande(ByVal LibelleDemande As String, ByVal TypeDemandeID As Integer, ByVal DateDemande As Date, ByVal DatePrevisionDemande As Date, ByVal Commentaires As String)
        Dim strSQL As String = ""
        Dim cmd As OleDbCommand
 
        OuvrirConnexion()
 
 
        strSQL = "INSERT INTO T_DEMANDE ( LibelleDemande, TypeDemandeID, DateDemande, DatePrevisionRealisation, Commentaires ) " _
& " VALUES (" & LibelleDemande.ToString & "," & TypeDemandeID & ",#" & DateDemande & "#,#" & DatePrevisionDemande & "#," & Commentaires.ToString & ")"
 
        cmd = New OleDbCommand(strSQL, _cn)
        cmd.ExecuteNonQuery()
 
        FermerConnexion()
 
    End Function