ADO et Syntaxe VB

Question

Bonjour,

Je voudrais faire une requête d'insertion de valeurs contenues dans un formulaire pour les mettre dans ma base Access en ADO. Seulement, il y a bien longtemps que je n'ai pas touché à l'ADO et à VB et je ne suis pas sur de ma syntaxe. Pour le code suivant, on me dit "erreur de syntaxe dans l'instruction Insert Into". 
Merci de bien vouloir m'aider :-)


Private Sub b_ok_Click()
Dim req As String
Dim cnx As New ADODB.Connection
Dim rs As New ADODB.Recordset
req = "Insert into VEHICULE Values "
cnx.ConnectionString = ajout_veh.ConnectionString
cnx.Open
cnx.Execute (req & TXT_immat.Text & ", " & TXT_date.Text & ", " & CMB_Service.Text & ", " & CMB_carburant.Text & ", " & CMB_type.Text & " ;")

End Sub

cs_Jack · Answer

Salut ZarnoVB 
Ce n'est pas un problème d'ADO ni VB, mais de SQL :
req = "Insert Into VEHICULE " & _
"(NomChamp1, NomChamp2, ..., NomChampN) " & _
"Values ('TextePourChamp1', ChiffrePourChamp2, ... );"
Règles :
- Si le champ est du texte : Mettre des ' devant et derrières les valeurs à insérer
- Si le champ est numérique, pas de '
- Si le champ est Date : ' et # comme    '#01/01/2004#'

Vala
Jack

ZarnoVB · Answer

Merci à toi, ça fonctionne :)

Tant que j'y suis, une fois l'enregistrement effectué et une msg box le confirmant, j'aimerais que le form se ferme automatiquement (il fait parti d'une MDI). Il me semblait qu'il fallait faire Unload!Me ou quelque chose comme ça, mais ça ne fonctionne pas, comment faire ?

ADO et Syntaxe VB

2 réponses

Discussions similaires