authentification à partir d'une base de données Access

Signaler
Messages postés
1
Date d'inscription
dimanche 24 avril 2011
Statut
Membre
Dernière intervention
17 mai 2011
-
Messages postés
1207
Date d'inscription
dimanche 20 avril 2003
Statut
Membre
Dernière intervention
4 juin 2016
-
salut,je besoin de savoir comment faire une authentification à partir d'une base de données Access, mon problème est que je ne connaitre pas comment parcourir les colonnes de ma base pour comparer le champ mot de passe et la login avec les valeurs saisies par l'utilisateur dans TextBox.
j'ai déjà faire quelque essai et voila mon code:
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Inherits System.Windows.Forms.Form
Private ObjetConnection As OleDbConnection
Private ObjetCommand As OleDbCommand
Private ObjetDataAdapter As OleDbDataAdapter
Private ObjetDataSet As New DataSet
Private ObjetDataReader As OleDbDataReader
Private strSql As String
Private ObjetDataTable As DataTable
Private strConn As String
'Déclaration de la variable pour le datarow
Private dtr As DataRow

'Déclaration de la variable pour le Nº de l'enregistrement
Private rownum As Integer
Private Sub OuvrirCnx()
ObjetConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & "C:\Users\betoul\Documents\Analyste.mdb")
Try
ObjetConnection.Open()
Catch ex As OleDbException
MsgBox(ex.Message)
End Try
End Sub
Private Sub FermerCnx()
Try
ObjetConnection.Close()
Catch ex As OleDbException
MsgBox(ex.Message)
End Try

End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim dtt As New DataTable
Call OuvrirCnx()
'Création de la commande et on l'instancie (sql)
ObjetCommand = New OleDbCommand("select * from analyste")

'Création du dataadapter (dta) et on l'instancie (cmd)
ObjetDataAdapter = New OleDbDataAdapter(ObjetCommand)

'On instancie la commande (cmd) à la connection (cnx)
ObjetCommand.Connection() = ObjetConnection

'On charge le dataset (dts) grace à la propriété fill du dataadapter (dta)
ObjetDataAdapter.Fill(ObjetDataSet, "table")

'On charge la datatable (dtt) grace à la propriété tables du dataset (dts)
dtt = ObjetDataSet.Tables("table")
rownum = 0
'si la table est vide alors
Do While (rownum > dtt.Rows.Count - 1)
If ((dtt.Rows(rownum).Item("Matricule") CInt(TextBox1.Text)) And (dtt.Rows(rownum).Item("Nom") TextBox2.Text)) Then
MsgBox("ok")
TextBox1.Clear()
TextBox2.Clear()
Exit Sub
Else
rownum += 1
End If
Loop
Call FermerCnx()
End Sub
End Class
je suis vraiment besoin de ce code

1 réponse

Messages postés
1207
Date d'inscription
dimanche 20 avril 2003
Statut
Membre
Dernière intervention
4 juin 2016
10
Bonjour,

Mauvaise catégorie, ton code est du .NET et non du VB6.


Calade