kg_online
Messages postés39Date d'inscriptiondimanche 28 novembre 2004StatutMembreDernière intervention 4 juin 2007
-
4 juin 2007 à 07:46
cs_Nicko11
Messages postés1141Date d'inscriptionmercredi 7 mars 2007StatutMembreDernière intervention19 septembre 2007
-
4 juin 2007 à 15:28
Bonjour tout le monde,
J'ai crée une base de données access au début,elle était non sécurisée et j'arrivais à avoir accés par le biais de vb6:
Public db As Database
Public rs As Recordset
Public sql As String
Set db = OpenDatabase("C:\Documents and Settings\Khadime\Mes documents\mabase0.mdb")
Maintenant, j'ai sécurisé la base de données avec des comptes d'utilisateur ( pour acceder à la base de données il faut un username et un password).Mon problème est maintenant de savoir comment, avec vb6, se connecter à la base de données sécurisée? Quelles instructions me permettraients soit d'ouvrir directement un compte utilisateur , soit afficher la page d'authentification d'access.
cs_Nicko11
Messages postés1141Date d'inscriptionmercredi 7 mars 2007StatutMembreDernière intervention19 septembre 20073 4 juin 2007 à 15:28
Habitues toi a bien dire ce qui ne fonctionne pas quand c'est le cas. Pour utiliser ADO, il faut aller dans Projet -> Référence et cocher Microsoft Active Data Object 2.8.
Bon si tu insistes pour DAO (pas de soucis, on va trouver).
Deja, j'ai l'impression que maintenant tu crées ton fichier par code, non ? ton code est différent, pourquoi ?
Si tu veux plus de renseignements sur les fichiers Sécurité, regardes ca (c'est ce que j'ai suivi)
Tu peux voir qu'il n'y a pas qu'un seul argument pour cette méthode. Donc, il faut que tu cherches les arguments correspondants a ce que tu recherches.
Au pif, je dirais un truc du genre
"UID Nom_utilisateur; PWD Password_Utilisateur"
Sinon, regardes les sources de ce site et vois s'il n'y en a pas qui t'aiderait.
kg_online
Messages postés39Date d'inscriptiondimanche 28 novembre 2004StatutMembreDernière intervention 4 juin 2007 4 juin 2007 à 11:15
J'ai la procedure en DAO mais un petit problème bloque tout.
La procédure :
Dim MyWorkspace As Workspace
Dim SecuredDB As String
Dim slUserName As String
Dim slPassword As String
Dim db As Database
Dim rs As Recordset 'Définit l'emplacement de la base de données système
DBEngine.SystemDB = App.Path & "\Sécurisé.mdw"
'Crée un objet Espace de travail
slUserName = Text1.Text
slPassword = Text2.Text
Set MyWorkspace = DBEngine.CreateWorkspace("New", slUserName, slPassword)
'Ouvre la base de données
SecuredDB = App.Path & "\lrobase0.mdb"
Set db = DBEngine.Workspaces("New").OpenDatabase(SecuredDB)
Set rs = db.OpenRecordset("Name", dbOpenDynaset)
rs.MoveFirst
Label3.Caption = _
"The first record is " & rs.Fields("LastName").Value
'Ferme les jeux d'enregistrements et la base de données
rs.Close
L'erreur c'est :
Impossible de lancer votre application. Le fichier d'informations du groupe de travail est manquant ou ouvert en mode exclusif par un autre utilisateur. (Erreur 3028)