PB ajout dans une base de données

Question

Bonjour voici mon code:

Private Sub Command5_Click()
Dim base As Database
Dim sql As String
    
    Set base = OpenDatabase("E:\VB\Projet1\CD.mdb")
    sql = "INSERT INTO Emprunteur(Nom,Prenom,Adresse,Telephone,Titre_de_l'element_prete,Date_du_pret,Nombre_de_cds) Values ('" & Ajout.Text1 & "','" & Ajout.Text2 & "','" & Ajout.Text3 & "','" & Ajout.Text4 & "','" & Ajout.Text7 & "','" & Ajout.Text6 & "','" & Ajout.Text5 & "')"
    MsgBox (sql)
    base.Execute (sql)
    AjoutSuppr.Text1 = ""
    AjoutSuppr.Hide
    AjoutSuppr.Show
    
   
End Sub

J'ai 7 textbox et j'aimerai ajouter les infos que l'on saisie dedfans dans une base de donn&#233;es. Mais avec ce code ca ne marche pa! Pouvez vous me dire ce qu'il ne va pas ou vers quelle autre solution m'orient&#233;e.
Merci de votre aide.

cs_Jack · Answer

Mets des [ et ] pour encadrer les noms des champs qui ne sont pas standards (avec accents ou signes comme le ')
Tu peux en mettre &#224; tous les noms de champ, ce n'est pas g&#234;nant

sql = "INSERT INTO Emprunteur(Nom, Prenom, Adresse, Telephone, [Titre_de_l'element_prete], Date_du_pret, Nombre_de_cds) Values ('" & Ajout.Text1 & "','" & Ajout.Text2 & "','" & Ajout.Text3 & "','" & Ajout.Text4 & "','" & Ajout.Text7 & "','" & Ajout.Text6 & "','" & Ajout.Text5 & "')"

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_Jack · Answer

De plus, si les valeurs des champs que tu ins&#232;res (comme Ajout.Text2) contient des ', il y aura aussi un probl&#232;me.
Pour le r&#233;soudre, il suffit de doubler les ' avec ceci :
ChaineCorrecte = Replace(Ajout.Text2, "'", "''")

SUPERCREATOR · Answer

salut
je comprends pas pourquoi vous utilisez du code (vous aimez vous faire mal?)
alors que VB6 vous permet de mettre un contrôle ADODC et un DATAGRID
SANS AUCUN CODE .
vous liez adodc à la base de données et le datagrid à l'adodc .
ensuite il suffit de lier les textbox à l' adodc et choisir le champ lié.
(tous ça dans les propriétés et sans aucun code)
de temps en temps il faut mettre un peu de code quand même : 
ajout d'enregistrement:adodc1.recordset.addnew
etc...etc...
étant fainéant de nature ça me parait être une solution plus efficace.

PB ajout dans une base de données

3 réponses

Discussions similaires