Discussion :

[meloo]

Bonjour,
Je suis sous VB6, et j'ai un probleme lorsque je veux envoyer une requete (INSERT INTO), les requetes de selection marchent pourtant...
le message d'erreur est :

Aucune valeur donnée pour un ou plusieur parametre requis

la partie ouverture de la connection (fichier accueil.frm)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public MaConn As ADODB.Connection
Public RS As ADODB.Recordset
Public req As String
Private Sub cmdConnection_Click()
    Set MaConn = New ADODB.Connection
        MaConn.Provider = "Microsoft.Jet.OLEDB.4.0"
        MaConn.Open App.Path & "\" & txtDb.Text
    If MaConn.State = ADODB.adStateOpen Then
    '    MsgBox ("Connexion réussie.")
    Else
        MsgBox ("Echec de la connexion.")
End If
End Sub

une partie qui à besoin de la connection (saisie.frm)

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
            Dim tablo() As String

            req = "SELECT NomAuteur, PrenomAuteur FROM Auteur ORDER BY NomAuteur"
            Set RS = Accueil.MaConn.Execute(req)

    ' On fais defiler toute la liste d'auteurs
        While m < nbMaxAuteur
            'on récupère le Nom et le Prenom grâce au séparateur " " :
            tablo() = Split(ListNomsAuteur.List(m), " ")
            auteurTrouve = False
            While (Not auteurTrouve And Not RS.EOF)
                If tablo(0) = RS!NomAuteur And tablo(1) = RS!PrenomAuteur Then
                    auteurTrouve = True
                End If
                RS.MoveNext
            Wend
            If (Not auteurTrouve) Then
                req = "INSERT INTO Auteur (NomAuteur, PrenomAuteur) VALUES (NomAuteur='" & tablo(0) & "' ,PrenomAuteur='" & tablo(1) & "')"
                Set RS = Accueil.MaConn.Execute(req)
            End If
            m = m + 1
        Wend

L'erreur vient de la ligne ecrite en rouge
pourtant tablo(0) et tablo(1) ont bien des données...
J'ai l'impression que c'est une erreur "bete" mais je n'arrive pas a la trouver !
Vous auriez une idée ?
merci d'avance,
marie-laure

[LedZeppII]

Bonjour,

Essaie avec cette syntaxe pour INSERT :

Code :

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

1
2
3
4
5
6
 
' INSERT INTO Auteur (NomAuteur, PrenomAuteur)
' VALUES ('Hugo', 'Victor')
req = "INSERT INTO Auteur (NomAuteur, PrenomAuteur) " & _
      "VALUES ('" & tablo(0) & "' ," & _
              "'" & tablo(1) & "')"

A+