Remplir une base de données ACCESS à partir des textBox

Version imprimable

Bonjour,

J'utilise Visual Studio 2010 (VB.Net) et une base ACCESS .
J'ai essayé pas mal de fois d'insérer des données à partir des champs textBox et le problème revient à comment se reférer aux valeurs textuelles qui existent dans les textBox.
J'ai utilisé le code suivant:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Dim cmd As OleDb.OleDbCommand Dim chaine As String Dim conection As New OleDb.OleDbConnection conection.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\Users\ROLAND KOFFI\Documents\Visual Studio 2010\Projects\WindowsApplication3_LOYERS\WindowsApplication3_LOYERS\GestionLoyers1.accdb" conection.Open() chaine = "INSERT INTO LOCATAIRES(Nom, Adresse,Ville,Pays) VALUES(' " & TextBox1.Text & " ',' " & TextBox2.Text & " ', ' " & TextBox3.Text & " ', ' " & TextBox4.Text & " ')" cmd = New OleDb.OleDbCommand(chaine, conection) cmd.ExecuteNonQuery() conection.Close()
Je reçois le message d'érreur suivant lorsque j'exécute les procédures:
Eerreur de syntaxe( opérateurs absents) dans l'expression.

Si quelqu'un peut m'aider ça m'aiderait à avancer.
Merci d'avance à vous!

15/11/2013, 18h22
rv26t

Bonjour,

Il faut utiliser les requêtes paramétrées. Voir Tuto ou Faq.

salam
faire passer ce code

Code:

1
2
3
4
5
6
7
8
9
Dim cmd As New OleDb.OleDbCommand
            Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; DatSource=" & Application.StartupPath & "\GestionLoyers1.mdb"
            Dim conection As New OleDbConnection(ConStr)
            cmd.Connection = conection
            cmd.CommandType = CommandType.Text
            cmd.CommandText = "INSERT INTO LOCATAIRES(Nom, Adresse,Ville,Pays)values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "') "
            conection.Open()
            cmd.ExecuteNonQuery()
            conection.Close()

avant tu doit déclarer au debut du code de la forme et tu places ta base du donnée au dossier Bin/debug mais avant tu doit convertir la base en .mdb(2003)

Code:

1
2
3
Imports System.Data
Imports System.Data.OleDb
Public Class Form1

16/11/2013, 15h58
bijbaj

1 pièce(s) jointe(s)

salam
faire voir ce exemple ci joint
l'exemple est bien testé ,il est fonctionnel:):)

Citation:

Envoyé par bijbaj

salam
faire passer ce code

Code:

1
2
3
4
5
6
7
8
9
Dim cmd As New OleDb.OleDbCommand
            Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; DatSource=" & Application.StartupPath & "\GestionLoyers1.mdb"
            Dim conection As New OleDbConnection(ConStr)
            cmd.Connection = conection
            cmd.CommandType = CommandType.Text
            cmd.CommandText = "INSERT INTO LOCATAIRES(Nom, Adresse,Ville,Pays)values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "') "
            conection.Open()
            cmd.ExecuteNonQuery()
            conection.Close()

C'est une mauvaise solution, même si elle est fonctionnelle.
Par exemple, s'il y a une cote ( ' ) dans le nom (ex: O'Hara) la requête sera fausse et générera une erreur.
Il est donc fortement conseillé d'utiliser les requêtes paramétrées.

Citation:

Envoyé par bijbaj

... mais avant tu doit convertir la base en .mdb(2003)

Mauvais conseil que de convertir vers une version antèrieure.
J'utilise access2007 et cela fonctionne parfaitement avec PROVIDER=Microsoft.ACE.OLEDB.12.0.

Je n'avais pas donné directement de solution afin que strafor cherche un peu (on apprend mieux et on retient mieux ainsi)
Voici un exemple d'utilisation.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    Sub InsertLocataire()
        Dim MaRequete As String = "INSERT INTO LOCATAIRES (Nom, Adresse,Ville,Pays) VALUES (?,?,?,?)"
        Dim DataSource = "C:\Users\ROLAND KOFFI\Documents\Visual Studio 2010\Projects\WindowsApplication3_LOYERS\WindowsApplication3_LOYERS\GestionLoyers1.accdb"
        Using cn As New OleDbConnection("PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source =" & DataSource), cmd As New OleDbCommand(MaRequete, cn)
            With cmd.Parameters
                .AddWithValue("?", Me.txtNom.Text)
                .AddWithValue("?", Me.txtAdresse.Text)
                .AddWithValue("?", Me.txtVille.Text)
                .AddWithValue("?", Me.txtPays.Text)
            End With
            Try
                cn.Open()
                cmd.ExecuteNonQuery()
            Catch ex As Exception
                MsgBox(ex.ToString)
            End Try
        End Using
    End Sub

Citation:
Envoyé par rv26t
C'est une mauvaise solution, même si elle est fonctionnelle.
Par exemple, s'il y a une cote ( ' ) dans le nom (ex: O'Hara) la requête sera fausse et générera une erreur.
Il est donc fortement conseillé d'utiliser les requêtes paramétrées.

Mauvais conseil que de convertir vers une version antèrieure.
J'utilise access2007 et cela fonctionne parfaitement avec PROVIDER=Microsoft.ACE.OLEDB.12.0.

Je n'avais pas donné directement de solution afin que strafor cherche un peu (on apprend mieux et on retient mieux ainsi)
Voici un exemple d'utilisation.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Sub InsertLocataire() Dim MaRequete As String = "INSERT INTO LOCATAIRES (Nom, Adresse,Ville,Pays) VALUES (?,?,?,?)" Dim DataSource = "C:\Users\ROLAND KOFFI\Documents\Visual Studio 2010\Projects\WindowsApplication3_LOYERS\WindowsApplication3_LOYERS\GestionLoyers1.accdb" Using cn As New OleDbConnection("PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source =" & DataSource), cmd As New OleDbCommand(MaRequete, cn) With cmd.Parameters .AddWithValue("?", Me.txtNom.Text) .AddWithValue("?", Me.txtAdresse.Text) .AddWithValue("?", Me.txtVille.Text) .AddWithValue("?", Me.txtPays.Text) End With Try cn.Open() cmd.ExecuteNonQuery() Catch ex As Exception MsgBox(ex.ToString) End Try End Using End Sub
oui tt ce qui tu'a dis est parfait , je lui donné une simple solution c'est tt.
alors :zoubi: tu a oublie de fermer la connection cn.close
apres
Code:

1 2 3 4 5 cn.Open() cmd.ExecuteNonQuery() cn.close ' <==== Catch ex As Exception MsgBox(ex.ToString)

17/11/2013, 01h54
rv26t
Citation:
Envoyé par bijbaj

tu a oublie de fermer la connection cn.close
apres

Code:

1 2 3 4 5 cn.Open() cmd.ExecuteNonQuery() cn.close Catch ex As Exception MsgBox(ex.ToString)
Non je ne l'ai pas oublié. ;)
L'utilisation du Using avec la connexion fera que lorsque l'on passera par le End Using la connexion sera fermée. Donc inutile de rajouter la méthode close.
De plus, (tel que tu l'as écrit) si tu as une erreur sur ta commande cmd.ExecuteNonQuery (ce qui peut arriver) tu passeras directement dans le Catch, et donc tu n'exécuteras pas la méthode close.
Avec le Using End Using tu assures ainsi la fermeture de ta connexion (quoi qu'il arrive — erreur ou pas).