Discussion :

[bscorpion]

salut, j'ai un problem avec ce code:

Private Sub Command2_Click()
Dim cin As String * 8
Dim nom As String * 20
Dim prenom As String * 20
Dim datene As Date
Dim lieune As String * 30
Dim situationfamille, nompere, nommere As String * 10
Dim sexe As String * 1
Dim adresse As String * 50
Dim photo As String * 60
cin = Text1.Text
nom = Text2.Text
prenom = Text3.Text
datene = CDate(Text4.Text)
lieune = Text5.Text
situationfamille = Text6.Text
nompere = Text7.Text
nommere = Text8.Text
adresse = Text9.Text
If Option1.Value Then
sexe = "M"
Else
sexe = "F"
End If
photo = CStr(CmDial.FileName)
conCMD.CommandText = "INSERT into personnel VALUES(cin,nom,prenom,datene,lieune,situationfamille,nompere,nommere,adresse,sexe,photo)"
Set Tpersonnel = conCMD.Execute

End Sub

le problem lorsque j'execute ce code je recois le message:
Erreur d'execution'-2147217904(80040e10)'
[Microsoft][Pilot ODBC MicroSoft Access] trop peu de paramétre 11 attendu.
aide moi SVP
Merci

[rsc]

Si tu visualises ta requête telle qu'elle sort (sous Delphi, je ferais ShowMessage (SQL .Text), sous VB, tu dois savoir ), je suppose que tu t'apercevras que tes "Values" de type alphanumérique ou date ne sont pas entourées de quotes.

Ta SQL devrait sortir comme ceci :

Code :

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

INSERT into personnel VALUES(1,'DUPONT','Jean','07/25/1980',...

NB : J'ai supposé que cin était un champ numérique.

Roland

[soazig]

Bonjour,
Ton problème est un problème pratiquement purement VB (ou access ), tu devrais demander à un modérateur par message privé de déplacer ton post sur le forum ad hoc.

Néanmoins voilà quelques remarques :
1/Pour voir le contenu de ce que tu passes à ton objet Commande tu peux utiliser debug.print.
Ce qui donnes:

Code :

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

1
2
3
conCMD.CommandText = "INSERT into personnel VALUES(cin,nom,prenom,datene,lieune,situationfamille,nompere,nommere,adresse,sexe,photo)"
S
Debug.print conCMD.CommandText

2/ tu devrais nommer tes objets avec des noms parlants, il est beaucoup plus simple de lire
nompere = TxtNomMere.Text et de se dire zut, je me suis trompé entre le père et la mère, plutot que de s'en rendre compte en lisant :nompere = Text7.Text

3/ Si tu fais ce que je t'ai suggéré en 1/ tu te rendras compte que conCMD.CommandText ne ressemble pas du tout à INSERT into personnel VALUES(1,'DUPONT','Jean','07/25/1980' . en effet il n'ya aucun lien entre la chaine de caractère "lieune" et la variable lieune.
Pour avoir ce que tu souhaites il te faudrait concaténer une chaine de caractères avec les valeurs.

Code :

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

conCMD.CommandText = "INSERT into personnel VALUES('" & cin & "'," & nom ...

J'ai juste commencé pour que tu comprennes le principe.
4/ au niveau SQL il faut toujours éviter de mettre des insert sans préciser la liste des champs avant values car lorsque tu rajoutes un champ cela ne fonctionne plus
A+
Soazig

[Médiat]

On ne devrait JAMAIS, dans un programme, émettre la commande
INSERT INTO xxx VALUES ... sans liste les colonnes que l'on va retrouver dans le values, c'est aussi dangereux qu'un SELECT *

[bscorpion]

salut,
je tiens de vous remercier une autre fois , et que le probleme est resolu

[rsc]

N'oublie pas d'ajouter le tag [Résolu] au titre du sujet