Remplir une base de données ACCESS à partir des textBoxRésolu

Question

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

NHenry · Answer

Bonjour,

As-tu affiché la requête SQL exécutée pour essayer de comprendre d'où vient le problème ?
As-tu essayer d'exécuter la requête générée directement dans Access ?

Attention aux injections SQL, car si un des TextBox contient un apostrophe, ta requête sera incorrecte.

cs_ShayW · Answer

Salut

Private Function InsertLocataire() As Boolean

        Dim conection As New OleDb.OleDbConnection
        Dim command As OleDbCommand
        Try
            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"
            command.Connection = conection
            command = New OleDbCommand()
            command.CommandText = "INSERT INTO  LOCATAIRES (Nom, Adresse,Ville,Pays)  VALUES (?,?,?,?);"
            command.Parameters.Add("?", OleDbType.BSTR).Value = textbox1.text
            command.Parameters.Add("?", OleDbType.BSTR).Value = TextBox2.Text
            command.Parameters.Add("?", OleDbType.BSTR).Value = TextBox3.Text
            command.Parameters.Add("?", OleDbType.BSTR).Value = TextBox4.Text
            command.ExecuteNonQuery()
            conection.Close()
            Return True
        Catch ex As Exception
            Return False
        End Try

    End Function

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

2 réponses

Votre réponse