avec tout le respect que je vous doix,
ce code marche nikel et je pense qu'il va servir qqun d'autre.

voila l'appliquation est a jour,
il reste un truc, vous trouverez frmSplash.show alors remplacer la par End et le Form22 par Form2 comme ca vous etes obligés de lire le code entier ;D
Bonne continuation

je suis desolé le Zip ne contient pas tous les fichiers , je vai mettre a jour .

personne ne t'a repondu,
bref tu ouvre le projet File et regarde bien tu trouve ce ke tu cherche.

bonjour MAY
je suis aussi debutant en VB, apres quelque recherche sur le net j'au pu acceder à un fichier text et mettre son contenu dans une BDD acces. alors je vai le mettre dans le Zip comme ca tu pe l'executer.

ok merci de toute facon

BONJOUR tout le monde
je suis tout petit developpeur je vien d'apprendre le VB6
j'ai un probleme de vitesse :p
mon prob c'est qu'au debut j'ai utilisé VB6 avec access et lorske je veux afficher un tableau de 5.6 Mo il prend pas mal du temps alors j'ai changé à MySql easyphp mais le probleme c'est que le temps qu'il a pri pour afficher le meme tableau a pri plus de temps qu'avec access .
voila c'est ca mon probleme
j'utilise ADODB et j'ai installé le ODBC
est ce que qq1 de vous peut m'aider pour resoudre ce prob ??
merci d'avance

bonjour
c'est bon j'ai reussi à resoudre le probleme

bonjour
je suis un petit debutant en VB6
j'ai lu tous les codes existants mais j arrive pas à conclure une solution pour mon probleme
en fait j'ai un fichier .txt de forme a;z;f;a;e
                                      e;g;r;t;e
                                      m;k;f;d;s
et je voudrai connecter à ce fichier et recuperer ses lignes sans les ";"
j'ai essayé d'utiliser la fonction split mais l'affichage dans le text box est tuojours alligné genre s f s z r f s z r f s e r f  t s
est ce que vous pouvez me passer une solution
voici mon code
private sub command1_Click
Dim VarTimeBase() as String
dim i as integer
i=0
Open"C:\test.txt" for input as #1
while not EOF(1)
input #1,a$
VarTimeBase()=split(a$,";")
for i=0 to Ubound(VarTimeBase)
Text1.text=Text1+VarTimeBase(i)+chr$(10)
next i
wend
close #1
end sub

merci d avance