Plusieurs updates (probleme)

Bonjour à tous.

Voilà, j'ai de nombreux champs de ma table à mettre à jour quand j'appuie sur un bouton.
J'ai essayé de tout mettre sur la meme ligne, mais il y en a trop, donc ca passe à la ligne...mais là message d'erreur, VB n'accepte pas et comprend ca comme une nouvelle instruction, alors que c'est la suite...
J'ai donc essayé de mettre ca dans un nouvel update à la ligne, mais celui ci ne s'execute pas. Le premier marche mais pas le deuxieme.

Si vous pouviez m'aider à updater tous ces champs, parce que je vois pas trop...

Merci d'avance

Zik'

Salut,
Comment sépares tu tes lignes?

Methode:

Dim Requete As String Requete = "Ceci est exemple" & _ "de ligne coupée en plusiers" & _ "Lignes"

By Renfield

@+: Ju£i€n
Pensez: Réponse acceptée

Faut préciser que le _ permet à VB de voir que l'instruction continu sur la ligne suivante.

(J'anticipe la question "à quoi sert le "?" ? ", merci ma boule de cristal)

Apparement le " & _ " n'est pas accepté dans une ligne SQL...

Il me souligne la deuxieme ligne, comme quoi il ne la comprends pas.
Je vous copie une partie du code :

sql = "UPDATE Facture SET Fact_adr_cli = '" + cliad.Text + "' & _   ......... *passage à la ligne*

"Fact_mt1 = '" + montant1.Text + "' etc...

Il n'aime pas ca apparement : message :"attendu numero de ligne ou étiquette..."

Zik'

Et ceci?

sql = "UPDATE Facture SET Fact_adr_cli = '" + cliad.Text + "'" & _ "......... *passage à la ligne*" & _ "Fact_mt1 = '" + montant1.Text + "        "

By Renfield

@+: Ju£i€n
Pensez: Réponse acceptée

Je pige pas trop ce que tu veux faire là.
Avant le *passage à la ligne* jdois ecrire la suite de mes instructions ou je mets rien ?
Et je peux pas passer à la ligne sans fermer le double-cote, il en met un automatiquement à la fin de la ligne...

Si tu pouvais juste eclaircir ce point là s'il te plait.


Zik'

SAlut,
Voici l'equivalent sur une ligne puis sur plusieurs.
A toi de comprendre la méthode.

Dim Requete As String
Requete = "Ceci est exemplede ligne coupée en plusiersLignes"

Requete = "Ceci est exemple" & _
"de ligne coupée en plusiers" & _
"Lignes"

Est ce que c'est plus clair?


@+: Ju£i€n
Pensez: Réponse acceptée

Salut,

Regarde cet exemple(qui fonctionne) d'une requête update sur plusieurs lignes :

             Sql = "UPDATE Expéditions " & _
                  "SET Demandeur = '" & Txt_Livraison(3).Text & "', Société = '" & Txt_Livraison(4).Text & "', " & _
                  "Désignation = '" & Txt_Livraison(5).Text & "', Délai = '" & Txt_Livraison(6).Text & "', " & _
                  "Transporteur = '" & Txt_Livraison(7).Text & "', Départ = '" & Txt_Livraison(8).Text & "', " & _
                  "Affaire = '" & Txt_Livraison(9).Text & "', ModifierPar = '" & Var_Pseudo & "'," & _
                  "DateModife = '" & MyDateModife & "'   Where Bl = '" & Txt_Livraison(0).Text & "'"

A+
Exploreur

 Linux a un noyau, Windows un pépin

 

Bon, ca ne marche toujours pas, je ne vois toujours pas mes enregistrements dans ma BDD.
Jvous donne les codes de ma sub, comme ca vous verrez que j'ai fait exactement pareil qu'Exploreur... (merci en tout cas )

sql = "INSERT INTO Facture(Fact_cli) Values('" + client.Text + "')"
cnx.Execute sql

'Mise à jour des champs Nom, Adresse, Mode de paiement, Montant HT, TVA et Montant TTC

Ligne 1 :sql = "UPDATE Facture " & _
Ligne 2 :"SET Fact_adr_cli = '" + cliad.Text + "', Modep = '" + Combo1.Text + "', fact_montht = '" + montht.Text + "', fact_tva = '" + tva.Text + "', fact_montttc = '" + montttc.Text + "', " & _
Ligne 3 :"Fact_mt1 = '" + montant1.Text + "', Fact_mt2 = '" + montant2.Text + "', Fact_mt3 = '" + montant3.Text + "', Fact_mt4 = '" + montant4.Text + "', Fact_mt5 = '" + montant5.Text + "', Fact_mt6 = '" + montant6.Text + "', Fact_mt7 = '" + montant7.Text + "', Fact_mt8 = '" + montant8.Text + "', Fact_mt9 = '" + montant9.Text + "'"
Ligne 4 :  cnx.Execute sql


Si vous trouvez l'erreur...
Merci d'avance !

Zik'

Salut,
Avec cette requete il semble que tout tes champs soient de type Text (ou string) est ce réellement le cas?

@+: Ju£i€n
Pensez: Réponse acceptée