Connexion de base de données et à l'identification formulaire 6 Tutoriel Visual Basic


2. Sélectionnez EXE standard. Un projet sera créé avec un défaut de form1 sur elle.


3. Pour utiliser le ADDODB libre, sélectionnez Projet> références et vérifiez Microsoft ActiveX Data Objects 2.8 Library




4. Ajoutez un nouveau module pour la chaîne de connexion à la base de données

5. Sélectionnez Ouvrir et ajoutez le code suivant dans le module venez d'ajouter

Connecte bases de données publiques comme nouvelle ADODB.Connection

Sub Main ()

dbconnect.CursorLocation = adUseClient

dbconnect.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & App.Path & 'chaîne de connexion à la base de données MS Access "\ sample.mdb"

Si dbconnect.State = adStateOpen Then 'Vérifie si la connexion de base de données est un succès

MsgBox "correctement connecté à la base de données"

Form1.Show 'après la connexion à la base de données montrera form1

Autre

MsgBox "connexion de base de données a échoué"

End If

End Sub

6. Faites un clic droit sur le projet et sélectionnez Propriétés du projet

Changez l'objet de démarrage à Sub Main Form1 et cliquez sur OK. De cette façon, le terme principal sous avant

7. Le module 1, le bouton doit mettre zones de texte, étiquettes et commande au formulaire de connexion.

8. Double-cliquez sur le bouton de connexion et collez le code suivant

Private Sub Command1_Click ()

Dim rslogin comme nouvelle ADODB.Recordset 'déclare une nouvelle série de documents qui contiennent la valeur de la connexion de base de données

rslogin.Open "Select * from Tuser où username =" & Text1.Text & "'et mot de passe =" & Text2.Text & "'", la connexion de base de données, adOpenKeyset, adLockOptimistic 'ouvrir la connexion à la base de données et vérifier si le nom d'utilisateur et mot de passe existe sur la table Tuser

Si rslogin.RecordCount 0 Then 'si le dossier existe,

MsgBox "Connexion réussie"

'Vous pouvez ajouter le code que mdimain.show et télécharger le formulaire de connexion

Autre

MsgBox "nom d'utilisateur valide/mot de passe"

End If

End Sub

9. Après cela, vous pouvez ajouter MDIForm pour le module principal et toute autre forme.

(0)
(0)

Commentaires - 0

Sans commentaires

Ajouter un commentaire

smile smile smile smile smile smile smile smile
smile smile smile smile smile smile smile smile
smile smile smile smile smile smile smile smile
smile smile smile smile
Caractères restants: 3000
captcha