slt je suis un debutant en vb.net j'aimerais savoir comment executer une requete SQL en vb.net avec une connexion DAO comme la requete "insert to" par exemple: voici mon code

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
43
44
45
46
47
Public Class FenregCNIB
 
    Dim dbe As dao.DBEngine, db As dao.Database, rst As dao.Recordse
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dbe = New dao.DBEngine
        db = dbe.Workspaces(0).OpenDatabase("D:\DOTnet\ProjetsVB.net\bd_pr_essai\BDcnib.mdb", False, True, )
        rst = db.OpenRecordset("SELECT * FROM CNIB WHERE sexe='F';")
        rst.MoveFirst()
        MsgBox(rst.Fields("nom").Value)
        rst.Close()
        ' db.Close()
        rst = Nothing
        'db = Nothing
        'dbe = Nothing
 
    End Sub
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Benregistrer.Click
        Dim NOM, PRENOM, PROF, PROVINCE, RESI, SEXE, LIEU, BESION, strSQL,NUMERO As String
         Dim TAILLE As Integer
        Dim NE, DELI, EXPI As Date
        NOM = Tnom.Text
        PRENOM = Tprenom.Text
        PROF = Tprofession.Text
        PROVINCE = Tprovence.Text
        RESI = Tresidence.Text
        SEXE = Comsexe.Text
        LIEU = Tlieu.Text
        BESION = Tbesion.Text
        NUMERO = Tnumero.Text
        TAILLE = Ttaille.Text
        NE = Tne.Text
        DELI = Tdeliver.Text
        EXPI = Texpire.Text
        strSQL = "insert into CNIB values('" & NUMERO & "','" & NOM & "','" & PRENOM & "','" & NE & " ', '" & LIEU & "','" & SEXE & "','" & TAILLE & "','" & PROF & "','" & DELI & "','" & EXPI & "','" & PROVINCE & "','" & RESI & "','" & BESION & "')"
        db.Execute(strSQL)
 
    End Sub
 
    Private Sub Bquitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bquitter.Click
        If MsgBox("VOULLEZ VOUS QUITTER VRAIMENT ?", vbYesNo, "CONFIRMATION") = vbYes Then
            End
        End If
    End Sub
End Class
quant j'essai sa "db.execute(SQL)" ca marche pas

merci de m'aider