Salut tout le monde !!
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