Requete insertion a l'aide d'une boucle
Mr Capone
Messages postés
21
Date d'inscription
vendredi 21 janvier 2005
Statut
Membre
Dernière intervention
19 juin 2005
-
27 janv. 2005 à 10:11
Mr Capone Messages postés 21 Date d'inscription vendredi 21 janvier 2005 Statut Membre Dernière intervention 19 juin 2005 - 27 janv. 2005 à 11:33
Mr Capone Messages postés 21 Date d'inscription vendredi 21 janvier 2005 Statut Membre Dernière intervention 19 juin 2005 - 27 janv. 2005 à 11:33
2 réponses
cs_corsica
Messages postés
147
Date d'inscription
lundi 13 mai 2002
Statut
Membre
Dernière intervention
15 février 2010
27 janv. 2005 à 10:40
27 janv. 2005 à 10:40
Dim Chaine as String
Dim Champs() as String
Dim Max_Champs as integer
Dim Min_Champs as integer
Dim i as integer
Chaine = "1;2546;Netbios;Antivir;250;12/12/2004"
Champs = Split(Chaine,";")
' Je split le tableau sur le ";"
Min_Champs = LBound(Champs)
Max_Champs = UBound(Champs)
' Je récupére le plus petit et le plus grand indice de mon tableau
cnx.BeginTrans
req = "Insert into test values ("
For i=Min_Champs to Max_Champs
Req = Req + "'" + Champs(i) & "',"
next j
Req = Mid$(Req ,1,Len(Req)-1) + ")"
' ça c pour enlever la derniére virgule sur le dernier champs
' et rajouter la paranthése de fin
cnx.Execute sql
cnx.CommitTrans
Voilà ...
Mais franchement , si tu dois faire évoluer ton nombre de champs dans la chaine , tu devras aussi faire évoluer le nombre de champs de ta table alors quel est l'intéret de faire comme çà ??? Je ne sais pas ... Enfin c pas grave , j'espère avoir répondu à ta question , @ +
Dim Champs() as String
Dim Max_Champs as integer
Dim Min_Champs as integer
Dim i as integer
Chaine = "1;2546;Netbios;Antivir;250;12/12/2004"
Champs = Split(Chaine,";")
' Je split le tableau sur le ";"
Min_Champs = LBound(Champs)
Max_Champs = UBound(Champs)
' Je récupére le plus petit et le plus grand indice de mon tableau
cnx.BeginTrans
req = "Insert into test values ("
For i=Min_Champs to Max_Champs
Req = Req + "'" + Champs(i) & "',"
next j
Req = Mid$(Req ,1,Len(Req)-1) + ")"
' ça c pour enlever la derniére virgule sur le dernier champs
' et rajouter la paranthése de fin
cnx.Execute sql
cnx.CommitTrans
Voilà ...
Mais franchement , si tu dois faire évoluer ton nombre de champs dans la chaine , tu devras aussi faire évoluer le nombre de champs de ta table alors quel est l'intéret de faire comme çà ??? Je ne sais pas ... Enfin c pas grave , j'espère avoir répondu à ta question , @ +
Mr Capone
Messages postés
21
Date d'inscription
vendredi 21 janvier 2005
Statut
Membre
Dernière intervention
19 juin 2005
27 janv. 2005 à 11:33
27 janv. 2005 à 11:33
Merci pour cette réponse rapide, j'ai essayé ton code, je pense que le next j est en faite un next i non ??
Ensuite un probleme que je n'avait pas évoqué... et qui risque de
fortement posé probleme... le premier champ de ma table est un Numero
Auto... je n'ai donc pas a inseré de valeur dans ce premier champ... le
premier element de ma chaine en l'ocurence "1" ici est en faite la
valeur qui doit etre inseré dans le 2eme champ de ma table... ca me
parait complexe desormais...
Ensuite un probleme que je n'avait pas évoqué... et qui risque de
fortement posé probleme... le premier champ de ma table est un Numero
Auto... je n'ai donc pas a inseré de valeur dans ce premier champ... le
premier element de ma chaine en l'ocurence "1" ici est en faite la
valeur qui doit etre inseré dans le 2eme champ de ma table... ca me
parait complexe desormais...
