Pb ouverture de base de données!!!!

Question

Voici mon code:

Private Sub Command5_Click()
Dim base As Database
Dim sql As String
    
    Set base = OpenDatabase("CD.mdb")
    'MsgBox (Ouverture fonctionne)
    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.Text5 & "','" & Ajout.Text6 & "','" & Ajout.Text7 & "')"
    'MsgBox (sql)
    base.Execute (sql)
    Ajout.Text1 = ""
    Ajout.Hide
    Confirmation.Show

Pouvez vous m'aider svp??
Merci de votre aide.

cs_Jack · Answer

R&#232;gles de base :
Respecter les espaces, notamment entre le nom de ta table et la parenth&#232;se.
Ta syntaxe sugg&#232;re que tous tes champs sont d&#233;finis en type texte dans ta DB. Est-ce vrai ?
R&#232;gles :
- pas de ' pour les valeurs num&#233;riques
- les dates s'encadrent avec des # et pas des '

+ Pas de () apr&#232;s le Execute :
Base.Execute sql

Option :
Base.Execute sql, r
et la variable r te renverra le nombre de records touch&#233;s par ta commande.
Normalement, ce devrait &#234;tre 1. Si r = 0 c'est que &#231;a a merdouill&#233;.

... et puis il faudrait peut-&#234;tre nous dire ce qui ne marche pas, quelle erreur tu as, &#224; quelle ligne ... on n'est pas devins

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)

Pb ouverture de base de données!!!!

1 réponse

Discussions similaires