erreur de syntaxe INSERT INTO

Question

Bonjour,

J'ai une erreur au niveau du passage de la chaine de la requete SQL mais je ne vois pas trop, si quelqu'un à une idée ou un tutorial ?


    Public Sub InsertRow(ByVal insertSQL As String)
        MessageBox.Show(insertSQL)
        Using connection As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & createChemin())
            Dim command As New OleDb.OleDbCommand(insertSQL)
            command.Connection = connection
            Try
                connection.Open()
                command.ExecuteNonQuery()
            Catch ex As Exception
                Console.WriteLine(ex.Message)
            End Try
        End Using
    End Sub




    Public Function insertUSER(ByVal username As String, ByVal mdp As String, ByVal quest As String, ByVal rep As String) As String
        Return "Insert into (`login`,`password`,`question`,`reponse`) values (" & username & "," & mdp & "," & quest & "," & rep & ")"
    End Function

cs_Julien39 · Answer

Bonjour,

Il faut que tu donnes le nom de la table dans laquelle tu souhaites insérer ces données : 
INSERT INTO TableUtilisateur ...

cs_Jack · Answer

Salut

De pkus, il faut respecter les normes de syntaxe SQL :
Les noms des champs( login, password ...) n'ont pas besoin d'encadrement par '
Eventuellement, un encadrement par [ et ] si leur orthographe comporte des espaces ou des caractères autres que US.
En revanche, les données, elles, doivent être encadrées par des '
Ce qui donnerait
Return "Insert into maTable" & _
       "(login, password, question, reponse) " & _
       "values ('" & username & "','" & _
                     mdp & "','" & _
                     quest & "','" & _
                     rep & "')"
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

cs_Jack · Answer

Précision
En revanche, les données, elles, doivent être encadrées par des '
Les données de type Texte

cs_Julien39 · Answer

Oui en effet, j'ai fait comme le compilateur, je me suis arrêté à la première erreur.

thomasaurelien · Answer

rebonjour, merci pour votre aide mais même avec de simple cote cela marque toujours une erreur de syntaxe. Je me demande si par hazard ce ne serait pas une erreur dans ma fonction de création de tables.


    Public Sub createBase()
        Dim tblu As New ADOX.Table()
        Dim keyu As New ADOX.Key()
        'déclaration BASE
        Dim db As New ADOX.Catalog
        'création BASE
        db.Create("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & createChemin())
        tblu.Name = "USERS"
        tblu.Columns.Append("login", ADOX.DataTypeEnum.adWChar, 15)
        tblu.Columns.Append("password", ADOX.DataTypeEnum.adWChar, 8)
        tblu.Columns.Append("question", ADOX.DataTypeEnum.adWChar, 30)
        tblu.Columns.Append("reponse", ADOX.DataTypeEnum.adWChar, 10)
        db.Tables.Append(tblu)
        keyu.Name = "cleprimaireu"
        keyu.Type = ADOX.KeyTypeEnum.adKeyPrimary
        keyu.RelatedTable = "USERS"
        keyu.Columns.Append("login")
        tblu.Keys.Append(keyu)

    End Sub

thomasaurelien · Answer

J'ai voulu tenter autre chose :


    Public Sub InsertRow(ByVal insertSQL As String)
        MessageBox.Show(insertSQL)
        Dim con As ADODB.Connection
        Dim rs As ADODB.Recordset

        con = New ADODB.Connection
        con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & createChemin()
        con.Open()
        rs = con.Execute(insertSQL)
        rs.Fields.Refresh()
        rs = Nothing
        con.Close()
        con = Nothing
    End Sub


Mais toujours une erreur de syntaxe au niveau de rs.Fiels.Refresh() me precisant de regarder le propriété ErrorCode de l'exception

cs_Jack · Answer

Reprends tes manuels
Une commande Execute n'a nullement besoin de RecordSet

+
Après un .Open, il faut absolument vérifier l'état de la connexion avant de poursuivre, sinon, tu vas avoir des erreurs sur les lignes suivantes sans même soupçonner la connexion.

thomasaurelien · Answer

voici se que j'ai après quelques recherches, le code se trouve dans un module


    Dim con As New OleDb.OleDbConnection

    Public Sub insertUser()
        con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & createChemin()
        Dim cmd As OleDb.OleDbCommand
        Dim sqlinsert As String

        sqlinsert = "INSERT INTO USERS (login, password, question, reponse) VALUES (@vlogin, @vpassword, @vquestion, @vreponse)"
        cmd = New OleDb.OleDbCommand(sqlinsert, con)
        cmd.Parameters.AddWithValue("vlogin", inscription.TBlogin.Text)
        cmd.Parameters.AddWithValue("vpassword", inscription.TBmdp.Text)
        cmd.Parameters.AddWithValue("vquestion", inscription.CBquest.Text)
        cmd.Parameters.AddWithValue("vreponse", inscription.TBrep.Text)
        cmd.Connection.Open()
        cmd.ExecuteReader()
        cmd.Connection.Close()
    End Sub

DevLama · Answer

Bon je penses que tu dois verifier le nom de la Table,puis Ta connexion si tu utilise le vb 6:
la connexion:

dim Con As New Connection
dim Rec As New Recordset
dim SQL As New String
con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.path & "\Nom_dela_Bdd.Accdb"
Rec.CursorLOcation=adUseClient
Rec.Open SQL,Con,adOPenDynamic,adLockOptimistic,adCmdText

'********Pour Inserer ********************
Insert Into Table(Champs1,Champs2) Value ('" & text1.text & "','" & text2.text & "')"
Con.Close

DevLama · Answer

salut  thomasaurelien
j'ai vu ton intervation mais un ADOX permet la manupilation de la Table d'une Bdd,pour Manupiler les données utilse ADO ce Mieux

thomasaurelien · Answer

Merci a vous pour votre aide j'y suis arrivé finalement. J'ai tous repris depuis le début tranquillement.
Voici le code si cela peut aider quelqu'un.


    Public Function insert_user(ByVal login As String, ByVal mdp As String, ByVal question As String, ByVal rep As String) As Boolean

        connection()
        Try
            'Indiquer le type de commande
            Cmd.CommandType = CommandType.Text
            Cmd.CommandText = "INSERT INTO USERS (LOGIN, MDP, QUESTION, REPONSE) VALUES ('" & login & "','" & mdp & "','" & question & "','" & rep & "')"
            'on exécute la commande
            Cmd.ExecuteNonQuery()
            'Fermer la connexion
            Cnx.Close()
            Return True
        Catch ex As Exception
            MsgBox("Erreur dans l'insertion de d'un USERS" & vbCrLf & ex.Message, , "Erreur")
            Return False
        End Try

    End Function

Erreur de syntaxe INSERT INTO

11 réponses

Votre réponse

Discussions similaires