8369
Messages postés15Date d'inscriptionmardi 9 janvier 2007StatutMembreDernière intervention22 septembre 2008
-
28 juil. 2008 à 21:50
8369
Messages postés15Date d'inscriptionmardi 9 janvier 2007StatutMembreDernière intervention22 septembre 2008
-
29 juil. 2008 à 09:49
Bonjour à tous,
je suis à la recherche d'un code vb6 pour, copier une table dans la même base de données et vider certains cahmps de son contenu.
Merci de votre aide
Nik
cs_ghuysmans99
Messages postés3982Date d'inscriptionjeudi 14 juillet 2005StatutMembreDernière intervention30 juin 201316 28 juil. 2008 à 22:38
Ne rêve pas, je ne te donnerai pas le code, mais uniquement la méthode.
<ol><li>Tu crées une nouvelle table avec les même champs et en retirant ensuite les champs que tu ne veux pas</li><li>Tu parcoures la première table et tu n'insères dans la deuxième table que les champs qu'il te faut
</li></ol>_______________________________________________________________________
VB.NETis good ...VB6is better
8369
Messages postés15Date d'inscriptionmardi 9 janvier 2007StatutMembreDernière intervention22 septembre 2008 28 juil. 2008 à 22:59
Salut ghuysmans99 et merci de ta reponse, pour copier les tables j'ai le code, mais j'ai besoin d'un coup de main code pour vider les champs
Peut etre avec Update ??
merci encore
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 29 juil. 2008 à 05:31
salut,
dans l'idée, après avoir dupliqué ta table
requête select les_champs_que_tu_veux_vider from table_duplication
dans un RS (recordset)
rs.movefirst
boucle while not rs.eof
boucle for i 0 à N (tes champs, représentés par les colonnes)
rs.fields(i).value=vbnullstring
next i
rs.update
rs.movenext
wend
++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
cs_ghuysmans99
Messages postés3982Date d'inscriptionjeudi 14 juillet 2005StatutMembreDernière intervention30 juin 201316 29 juil. 2008 à 09:31
Bah je crois avoir une méthode plus simple,
<ol><li>Tu copies entièrement la table via Access (données + structure)</li><li>Tu exécutes ce code en VB6 (pas testé mais ça doit aller) :</li></ol>Dim rs As ADODB.Recordset
Dim SQL As String
SQL = "SELECT * FROM table2;"
Set rs = Conn.Execute(SQL)
While Not (rs.EOF)
SQL = "UPDATE table2 SET asupprimer=NULL;"
Conn.Execute SQL
rs.MoveNext
Wend
rs.Close
Set rs = Nothing , ----
[code.aspx?ID=41455 Colorisation syntaxique par Renfield]
_______________________________________________________________________
VB.NETis good ...VB6is better
8369
Messages postés15Date d'inscriptionmardi 9 janvier 2007StatutMembreDernière intervention22 septembre 2008 29 juil. 2008 à 09:49
Merci beaucoup ghysmann99 , ton code fonctionne tres bien
et encore merci pour ta disponibilité.
Merci aussi à PCPT pour m'avoir repondu
Salut à tous et bonne journée