Syntax INSERT INTO

Version imprimable

Syntax INSERT INTO

Voiloù maintenant c'est mon SQListpretsauteur qui ne marche qu'à moitié.
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub btnsauver_Click() Dim SQLEnr As String Dim SQListpretsauteur SQLEnr = "SELECT prets.auteur, prets.titre INTO " & Replace(Me.txtauteur, "'", "''") & " FROM prets;" DoCmd.RunSQL (SQLEnr) SQListpretsauteur = "INSERT INTO listpretsauteur VALUES " & Replace(Me.txtauteur, "'", "''") & ";" DoCmd.RunSQL (SQListpretsauteur) Debug.Print SQListpretsauteur End Sub
donc le "DoCmd.RunSQL (SQListpretsauteur)", ouvre une boite de dialogue "Entrez une valeur de paramêtre", qui, si j'y ré-entre la valeur contenue dans "Me.txtauteur", insère bien la valo dans la table listpretsauteur. mais moi, j'en veux pas de la boite de dialogue... :P

si vous voyez mieux que moi :D

Mets le debug.print avant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub btnsauver_Click()
Dim SQLEnr As String
Dim SQListpretsauteur
dim iDB as database
 
    set iDB = currentDB
    SQLEnr = "SELECT prets.auteur, prets.titre INTO " & Replace(Me.txtauteur, "'", "''") & " FROM prets;"
        DoCmd.RunSQL (SQLEnr)
    SQListpretsauteur = "INSERT INTO listpretsauteur VALUES '" & Replace(Me.txtauteur, "'", "''") & "'"
    Debug.Print SQListpretsauteur
    iDB.execute SQListpretsauteur, dbfailonerror
End Sub

A quoi sert le SQLEnr ?
Qu'est ce que tu veux faire exactement ?

14/09/2006, 14h51
Muffyn

SQLEnr sert à créer une table nommé d'aprés une zone de texte de mon formulaire et à la remplir d'après une autre table de ma base.

je test ta méthode et je te tiens au courant.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub btnsauver_Click()
Dim SQLEnr As String
Dim SQListpretsauteur
dim iDB as database
 
    set iDB = currentDB
    SQLEnr = "SELECT prets.auteur, prets.titre INTO " & Replace(Me.txtauteur, "'", "''") & " FROM prets;"
    iDB.execute SQListpretsauteur, dbfailonerror
    SQListpretsauteur = "INSERT INTO listpretsauteur VALUES select * from " & Replace(Me.txtauteur, "'", "''")
    Debug.Print SQListpretsauteur
    iDB.execute SQListpretsauteur, dbfailonerror
End Sub

Ca ira sans doute mieux.

14/09/2006, 14h59
Muffyn

oui mais selon ce code "SQListpretsauteur" rempli la table selon les champ de la table créée par "SQLEnr", Or je souhaite juste que "SQListpretsauteur" enregistre la valeur du txtauteur dans ma table "listpretsauteur"...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub btnsauver_Click()
Dim SQLEnr As String
Dim SQListpretsauteur
dim iDB as database
 
    set iDB = currentDB
    SQLEnr = "SELECT prets.auteur, prets.titre INTO " & Replace(Me.txtauteur, "'", "''") & " FROM prets;"
    iDB.execute SQListpretsauteur, dbfailonerror
    SQListpretsauteur = "INSERT INTO listpretsauteur VALUES '" & Replace(Me.txtauteur, "'", "''") & "'"
    Debug.Print SQListpretsauteur
    iDB.execute SQListpretsauteur, dbfailonerror
End Sub

14/09/2006, 15h30
Muffyn
La requete :
Code:

1 2 "INSERT INTO listpretsauteur VALUES '" & Replace(Me.txtauteur, "'", "''") & "'"
renvoit une erreur de syntax... :/

Je commence à me demander si "VALUES" ne peut pas faire référence uniquement à des champs...

Je continu de chercher :)
14/09/2006, 15h53
soltani1

Bonjour,

Code:

Insert into listpretsauteur VALUES ('" & Replace(Me.txtauteur, "'", "''") & "')"

il y'a des parenthèses après Values ()

A+
14/09/2006, 15h58
Muffyn

Nikel ca roule impec :)

Merci bien !