Discussion :

[ouatson10]

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

[Bluedeep]

- On utilise pas le DAO en .Net, c'est complétement dépassé : passer à ADO.Net
- Merci d'utiliser la balise code (le bouton, '#' de l'éditeur) pour mettre le code en exergue; tel quel c'est illisible.

[jbrasselet]

Peux-tu utiliser la balise code, ce sera beaucoup plus lisible ?
Peux-tu nous donner ton erreur exacte car le "ça marche pas", ça aide pas ?
As-tu regarder la tête de ta requête avant le execute ?

[AcidLines]

Je suis d'accord avec BlueDeep.
Ou alors tu peux utiliser OleDB aussi, ça marche tout aussi bien.

De plus : Quel message d'erreur ?
Ton insertion est-elle correcte ? Insertion par rapport à l'attribut ? Ordre ?
Attention au valeur des champs texte si il y a présence d'une quote ? (Penser à faire un replace(valeurinitiale,"'","''"))...