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

Question

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

Calade · Answer

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

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

1 réponse

Votre réponse

Discussions similaires