Discussion :

[strafor]

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 :

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

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!

[rv26t]

Bonjour,

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

[bijbaj]

salam
faire passer ce code

Code :

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

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 :

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

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

[bijbaj]

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

[rv26t]

salam
faire passer ce code

Code :

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

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.

... 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 :

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
    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

[bijbaj]

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 :

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
    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 tu a oublie de fermer la connection cn.close
apres

Code :

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

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

[rv26t]

tu a oublie de fermer la connection cn.close
apres

Code :

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

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).