create a login form that checks info against a database

[peterhinett]

Hi. iv been able to create a loin form bu I am stuck on the code. what i want is for a manager to be able to enter his manager ID and password and it to be checked against a database. I have set up the various connections but I cant figure out the code.
Thanks

[debasisdas]

when the user logs in to database using username and password

1.check for existance of the user name and the corresponding password .
2. if it exists then login.
else
deny login.

[jamesd0142]

Here's an example using sql server 2000

Imports System.Data.OleDb
 
Public Class Form1
 
    '---Database Declarations
    Dim Cmd As OleDb.OleDbCommand
    Dim Con As OleDb.OleDbConnection
    Dim Sql As String = Nothing
    Dim Reader As OleDb.OleDbDataReader
    Dim ComboRow As Integer = -1
    Dim Columns As Integer = 0
    Dim Category As String = Nothing
    Dim da As System.Data.OleDb.OleDbDataAdapter
    Dim oDS2 As New System.Data.DataSet
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        oDS2.Clear()
        Dim Password As String
        Sql = "select * from Users where [Login] = " & "'" & txtLogin.Text & "'"
        Con = New OleDbConnection("Provider=sqloledb;Data Source=Server;Initial Catalog=Database;User ID=sa;Password=Password")
        Con.Close()
        Cmd = New OleDb.OleDbCommand(Sql, Con)
        Try
            Con.Open()
            da = New OleDbDataAdapter(Sql, Con)
            da.Fill(oDS2, "login")
            If oDS2.Tables("login").Rows.Count = 1 Then
                Password = oDS2.Tables("login").Rows(0)("Password")
 
                If txtPassword.Text = Password Then
                    'login successful
                    Form2.Show()
                    Me.Hide()
                End If
            End If
        Catch
        End Try
    End Sub
End Class