Discussion :

[sviolette]

Bonjour les amis,

Je n'arrive pas à exécuter cette commande SQL sous VB.NET :
J'utilise VS 2010.

Je vous prie de me corriger.

Code :

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

("INSERT INTO HistoMvt (REF_MODULE,CODE_INDUS,OPERATION,QTE,PERSONNE,EQUIPE,DATE,HEURE) VALUES('" & data.Tables.Item(0).Rows.Item(0).Item(0).ToString & "','" & data.Tables.Item(0).Rows.Item(0).Item(2).ToString & "', 'Stockage' ,'" & Val(txtB_qte.Text).ToString() & "','" & PersonneD.Tables.Item(0).Rows.Item(0).Item(1).ToString & PersonneD.Tables.Item(0).Rows.Item(0).Item(2).ToString & "','" & PersonneD.Tables.Item(0).Rows.Item(0).Item(4).ToString & "','" & Date.Now.Date.ToString & "','" & Date.Now.TimeOfDay.ToString & "' )")

Merci

[BenoitM]

1) le message d'erreur ca peut être utile
2) Je dirai que c'est du aux dates, si Date et Heure sont des champs de type datetime, tu y stocks un string à la place d'une date, tu dois faire une Conversion
3) Passer par un SP est plus facile et plus optimisé

[sviolette]

Bonjour,

Le message d'erreur me dit qu'il est impossible d'établir la connexion à la base et qu'il y a une erreur de syntaxe dans la requête INSERT INTO.

J'ai supprimé les champs Date et Heure de la requête et j'ai essayé mais ça n'a pas marché.

En fait ma base est une base Access.

Merci BenoitM,

[sviolette]

Le problème vient peut être de l'utilisation des ", ' et &.

Y aurait-il un lien ou un tutoriel qui expliquerait bien comment saisir des requêtes SQL sous VB.NET ?

Merci

[BenoitM]

Tu as un tas de tutoriels sur ce site

[sviolette]

Je sais bien merci mais je n'ai pas trouvé ce que je cherchais : "écrire correctement une requête SQL avec le langage VB"

[BenoitM]

http://dotnet.developpez.com/cours/?...bnet#sqlservvb

[sviolette]

Ça a marché quand j'ai ajouté les (`) c'est à dire Alt Gr + 7.

Voici le code :

Code :

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

"INSERT INTO `HistoMvt` (`REF_MODULE`,`CODE_INDUS`,`OPERATION`,`QTE`,`PERSONNE`,`EQUIPE`,`DATE`,`HEURE`) VALUES('" & data.Tables.Item(0).Rows.Item(0).Item(0).ToString & "','" & data.Tables.Item(0).Rows.Item(0).Item(2).ToString & "', 'Stockage' ," & Val(txtB_qte.Text).ToString() & ",'" & PersonneD.Tables.Item(0).Rows.Item(0).Item(1).ToString & PersonneD.Tables.Item(0).Rows.Item(0).Item(2).ToString & "'," & PersonneD.Tables.Item(0).Rows.Item(0).Item(4).ToString & ",'" & Now.ToString.Replace("/", "-") & "','" & Now.ToString.Replace("/", "-") & "' )")

Mais là j'ai une autre question : Comment avoir juste la partie date ou heure de Now ??

Merci

[sviolette]

J'ai réussi ! et toute seule

Voici le code final :

Code :

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

("INSERT INTO `HistoMvt` (`REF_MODULE`,`CODE_INDUS`,`OPERATION`,`QTE`,`PERSONNE`,`EQUIPE`,`DATE`,`HEURE`) VALUES('" & data.Tables.Item(0).Rows.Item(0).Item(0).ToString & "','" & data.Tables.Item(0).Rows.Item(0).Item(2).ToString & "', 'Stockage' ," & Val(txtB_qte.Text).ToString() & ",'" & PersonneD.Tables.Item(0).Rows.Item(0).Item(1).ToString & PersonneD.Tables.Item(0).Rows.Item(0).Item(2).ToString & "'," & PersonneD.Tables.Item(0).Rows.Item(0).Item(4).ToString & ",'" & Now.ToShortDateString & "','" & Now.ToShortTimeString & "' )")

Merci

[BenoitM]

Je te conseil aussi d'utiliser String.Format pour rendre ton code plus lisible

Code :

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

SqlReq = String.Format ("Insert into {0} ('Col1','Col2') values ({1},{2})",matableName,data.Tables.Item(0).Rows.Item(0).Item(0).ToString,valeur2 )