un fatal erreur dans VB6
pdhjd01
Messages postés
6
Date d'inscription
jeudi 3 janvier 2008
Statut
Membre
Dernière intervention
25 août 2010
-
4 juin 2008 à 18:08
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 5 juin 2008 à 06:13
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 5 juin 2008 à 06:13
A voir également:
- un fatal erreur dans VB6
- Erreur d'exécution 424 ✓ - Forum Visual Basic
- Erreur 424 "Objet requis" ✓ - Forum Visual Basic 6
- Message d'erreur 424: objet requis ✓ - Forum VBA Office (Excel, Word ...)
- Erreur d'execution 9 ✓ - Forum Visual Basic 6
- Erreur 302 ✓ - Forum PHP
6 réponses
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
74
4 juin 2008 à 18:13
4 juin 2008 à 18:13
API mal controlée, je pense
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
79
4 juin 2008 à 18:42
4 juin 2008 à 18:42
Ou Parkinson
cs_DARKSIDIOUS
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Membre
Dernière intervention
4 mars 2013
130
4 juin 2008 à 19:07
4 juin 2008 à 19:07
Salut,
Ou encore un abus de SMS ce qui semble être la mode en ce moment
______________________________________
DarK Sidious
Ou encore un abus de SMS ce qui semble être la mode en ce moment
______________________________________
DarK Sidious
us_30
Messages postés
2065
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
10
4 juin 2008 à 21:05
4 juin 2008 à 21:05
Trop fort les Admins... à 3 pour répondre...
Très amicalement, et bon courage pour solutionner avec la solution dissoute dans ce problème de solution liquide...
Us.
Très amicalement, et bon courage pour solutionner avec la solution dissoute dans ce problème de solution liquide...
Us.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
pdhjd01
Messages postés
6
Date d'inscription
jeudi 3 janvier 2008
Statut
Membre
Dernière intervention
25 août 2010
5 juin 2008 à 04:33
5 juin 2008 à 04:33
Je créer une application de gestion, j'utilise une base de donnée access. Bien sûr il est protégé par un mot de passe, donc la connexion fait d’une façon différente.
Impossible de répéter la connexion chaque fois qu’on ajoute un ADODC (10 ADODC dans plus de 20 Form ) donc la solution et de défini un variable global ex : pdhbase de type string dans un module, et quand je besoin d’un nouveau ADODC je fais « copier coller« et je modifier Adodc1.RecordSource.
<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>
Dans la form de démarrage :
pdhbase = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" + App.Path + "\pdhpw.mdb;Uid=Administrateur;Pwd=pdhjd01;"
Dans chaque form et pour chaque ADODC :
Adodc1.ConnectionString = pdhbase
Adodc1.RecordSource = "table1"
Adodc1.CommandType = adCmdTable
Adodc1.Refresh
Le problème c’est : quand je compile le projet et j’ouvrir le fichier EXE avec bloc note je fais un recherche sur « P w d « je trouve :
<?xml:namespace prefix v ns "urn:schemas-microsoft-com:vml" /??>
<v:shapetype id="_x0000_t75" stroked="f" filled="f" path="m@4@5l@4@11@9@11@9@5xe" o:preferrelative="t" o:spt="75" coordsize="21600,21600">
<v:stroke joinstyle="miter">
</v:stroke>
<v:formulas>
<v:f eqn="if lineDrawn pixelLineWidth 0">
</v:f>
<v:f eqn="sum @0 1 0">
</v:f>
<v:f eqn="sum 0 0 @1">
</v:f>
<v:f eqn="prod @2 1 2">
</v:f>
<v:f eqn="prod @3 21600 pixelWidth">
</v:f>
<v:f eqn="prod @3 21600 pixelHeight">
</v:f>
<v:f eqn="sum @0 0 1">
</v:f>
<v:f eqn="prod @6 1 2">
</v:f>
<v:f eqn="prod @7 21600 pixelWidth">
</v:f>
<v:f eqn="sum @8 21600 0">
</v:f>
<v:f eqn="prod @7 21600 pixelHeight">
</v:f>
<v:f eqn="sum @10 21600 0">
</v:f>
</v:formulas>
<v:path o:connecttype="rect" gradientshapeok="t" o:extrusionok="f">
</v:path>
<o:lock aspectratio="t" v:ext="edit">
</o:lock>
</v:shapetype>
Le mot de passe clair, donc à quoi sert, le VB6 de sa puissance perd, et jamais utiliser dans la terre, son sécurité serra comme un siége de verre, rien caché derrière, et peut casser par des molécules d’air, donc à quoi sert !!!!!!!
Pardonner ma langue française, ce n’est pas ma langue d’origine.
pdh,
Impossible de répéter la connexion chaque fois qu’on ajoute un ADODC (10 ADODC dans plus de 20 Form ) donc la solution et de défini un variable global ex : pdhbase de type string dans un module, et quand je besoin d’un nouveau ADODC je fais « copier coller« et je modifier Adodc1.RecordSource.
<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>
Dans la form de démarrage :
pdhbase = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" + App.Path + "\pdhpw.mdb;Uid=Administrateur;Pwd=pdhjd01;"
Dans chaque form et pour chaque ADODC :
Adodc1.ConnectionString = pdhbase
Adodc1.RecordSource = "table1"
Adodc1.CommandType = adCmdTable
Adodc1.Refresh
Le problème c’est : quand je compile le projet et j’ouvrir le fichier EXE avec bloc note je fais un recherche sur « P w d « je trouve :
<?xml:namespace prefix v ns "urn:schemas-microsoft-com:vml" /??>
<v:shapetype id="_x0000_t75" stroked="f" filled="f" path="m@4@5l@4@11@9@11@9@5xe" o:preferrelative="t" o:spt="75" coordsize="21600,21600">
<v:stroke joinstyle="miter">
</v:stroke>
<v:formulas>
<v:f eqn="if lineDrawn pixelLineWidth 0">
</v:f>
<v:f eqn="sum @0 1 0">
</v:f>
<v:f eqn="sum 0 0 @1">
</v:f>
<v:f eqn="prod @2 1 2">
</v:f>
<v:f eqn="prod @3 21600 pixelWidth">
</v:f>
<v:f eqn="prod @3 21600 pixelHeight">
</v:f>
<v:f eqn="sum @0 0 1">
</v:f>
<v:f eqn="prod @6 1 2">
</v:f>
<v:f eqn="prod @7 21600 pixelWidth">
</v:f>
<v:f eqn="sum @8 21600 0">
</v:f>
<v:f eqn="prod @7 21600 pixelHeight">
</v:f>
<v:f eqn="sum @10 21600 0">
</v:f>
</v:formulas>
<v:path o:connecttype="rect" gradientshapeok="t" o:extrusionok="f">
</v:path>
<o:lock aspectratio="t" v:ext="edit">
</o:lock>
</v:shapetype>
Le mot de passe clair, donc à quoi sert, le VB6 de sa puissance perd, et jamais utiliser dans la terre, son sécurité serra comme un siége de verre, rien caché derrière, et peut casser par des molécules d’air, donc à quoi sert !!!!!!!
Pardonner ma langue française, ce n’est pas ma langue d’origine.
pdh,
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
74
5 juin 2008 à 06:13
5 juin 2008 à 06:13
crypte le ^^