0

Hi, luc001!

I am using VB 2008 Express Edition and Access 2007. Here, i want some codes over the database connection issues like successful record updates after the connection is get closed, report generations and all with error handlings. So ll u please help me out with the issues.

Edited by pritaeas: Removed email. Keep it on-site.

5
Contributors
5
Replies
30
Views
3 Years
Discussion Span
Last Post by kRod
0

Imports System.Data.OleDb
Public Class LoginForm1

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
    Try
        Dim con As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;data source=C:\Users\Euphoria\Documents\VodStore\VodStore\bin\Debug\VodStock.mdb")
        Dim cmd As OleDbCommand = New OleDbCommand("SELECT * FROM Users WHERE userid = '" & UsernameTextBox.Text & "' AND password = '" & PasswordTextBox.Text & "' ", con)
        cmd.Connection.Open()
        'con.Open()
        Dim sdr As OleDbDataReader = cmd.ExecuteReader()
        ' If the record can be queried, Pass verification and open another form.   
        If (sdr.Read() = True) Then
            MessageBox.Show("Access Granted!")
            Form1.Show()
            Me.Hide()
        Else
            MessageBox.Show("Access Denied! Invalid username or password.")
        End If
    Catch es As Exception
        Beep()
        MsgBox(es.Message)
    End Try
End Sub

Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
    Me.Close()
End Sub

End Class

Here, i got a message of "Data type mismatch in crietria expression.". Please help me

0

What is the datatype of your UserID in the "User" table? You are providing String Type to check against them in your table.

This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.