Siouplait je suis en panique, ca fait 3 jours de recherche

Messages postés
17
Date d'inscription
lundi 24 juin 2002
Statut
Membre
Dernière intervention
22 juillet 2004
-
Messages postés
73
Date d'inscription
lundi 16 octobre 2000
Statut
Membre
Dernière intervention
20 février 2003
-
Me revoila avec les meme probleme et j'aimerais bien que quelqu'un m'explique car moi ca va faire 3 jours que je suis dessus et sans msdn c assez chaud alors si quelqu'un pouvais ne seraisse trouver 1 de tous mes problèmes... Merci d'avance !!

voila mon code :

Private Sub Form_Load()

Dim db As DAO.Database

Dim db2 As DAO.Database

If GetSetting(App.EXEName, "information logiciel", "nombre de fois lancer") = "" Then

SaveSetting App.EXEName, "information logiciel", "nombre de fois lancer", 0

Else

SaveSetting App.EXEName, "information logiciel", "nombre de fois lancer", GetSetting(App.EXEName, "information logiciel", "nombre de fois lancer") + 1

End If

'si le logiciel n'a jamais ete lancer alors les bases vont se créées

If GetSetting(App.EXEName, "information logiciel", "nombre de fois lancer") = 0 Then

'Création d'une base vide pour les utilisateurs

Set db = DAO.Workspaces(0).CreateDatabase(base, dbLangGeneral)

'Création d'une table avec une requête

db.Execute "CREATE TABLE [info] ( [utilisateur] Text(50),[prenom] Text(50),[mot de passe] Text(50),[droit] Text(100),[datenaiss] Text(50) );"



'Création d'une base vide pour les contacts

Set db2 = DAO.Workspaces(0).CreateDatabase(annuaire, dbLangGeneral)

End If

'******************************************

'Etablir la connexion avec la base

'******************************************

cnnADO.Provider = "Microsoft.jet.OLEDB.4.0"

cnnADO.ConnectionString = "G:\Maxime\vb\nouveau\base.mdb" 'Remplacer ici par l'adresse de la base

cnnADO.Open

'configurer la commande

cmdADO.ActiveConnection = cnnADO

rsADO.Open "info", cnnADO, adOpenDynamic, adLockOptimistic

'acces complet par defaut

Label6.Caption = "acces Complet"

Set Text1.DataSource = rsADO

Set Text3.DataSource = rsADO

Set Label6.DataSource = rsADO

Text1.DataField = "utilisateur"

Text3.DataField = "mot de passe"

Label6.DataField = "droit"

j'ai 2 problemes :

le premier le plus simple c'est que je voudrait créer cette base par exemple dans c:\ et ca je n'arrive pas a trouver comment faire, au passage j'aimerais savoir se que ca signifit "dbLangGeneral", merci

le deuxieme c'est que lorsque je remplit mon premier champs "text1" et que je clique sur text2 pour le remplir, ce qu'il y avait dans text 1 s'efface, pareil pour text3, le text2 fonctionne tres bien puisque lui n'est pas relier a la base de donnée, mais alors pourquoi ce que j'écrit s'efface lorsque je change de textbox ?? je pense que text1 prend la valeur de rsADO, et comme il n'y a rien dedans et bien ca s'efface !!!
mais alors qu'est ce que je doit faire pour eviter ca ??

merci beaucoup !!

a oui encore une petit chose, pourquoi les bases que je créer ne soont pas au format acces XP, et comment y remédier ??

merci beaucoup encore une fois !!
------------------------------------------------------------
Quand l'empire est attaqué, l'empire contre attaque

1 réponse

Messages postés
73
Date d'inscription
lundi 16 octobre 2000
Statut
Membre
Dernière intervention
20 février 2003

Pour creer une base de données nommée base dans un répertoire dont le chemin est stocké dans la chaine Database_Path tu utilise

Set db = DAO.Workspaces(0).CreateDatabase(Database_Path+"base.mdb", dbLangGeneral)

dbLangGeneral indique l'ordre de priorité de recherche de la langue a utiliser pour créer ta base.

Pour l'effacement de tes TextBox c'est logique car ils sont liés à l'objet rsADO et ne peuvent donc afficher que les informations du recordset. Fais deux groupes de cotrôles un pour la consultation d'un enregistrement et un pour la modification.