Answers

Apr 18, 2012 - 08:47 PM
Public Class Form1
Inherits System.Windows.Forms.Form
Dim g_login As String
Dim iCount As Integer
Dim frmMain As New Mainscreen
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ConString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Password=;User ID=;Data Source=C:\All Databases\PWord.mdb"
Dim DBCon As New OleDb.OleDbConnection(ConString)
g_login = Textbox1.Text
Dim strPassword As String = TextBox2.text
If g_login = "" Or strPassword = "" Then
MessageBox.Show("Missing username or password.", "Missing Info")
TextBox1.Focus()
Return
End If
Dim strsql As String = "SELECT [usernamefield], [passwordfield] FROM Table1 WHERE [usernamefield]='" & g_login & "' "
Dim cm As New OleDb.OleDbCommand(strsql, DBCon)
Dim dr As OleDb.OleDbDataReader
Dim valid As Boolean = False
Dim HasRows As Boolean = False
Try
DBCon.Open()
dr = cm.ExecuteReader
If dr.HasRows Then
While dr.Read
If strPassword = dr.Item("passwordfield") Then
valid = True
End If
End While
HasRows = True
End If
dr.Close()
Catch exO As OleDb.OleDbException
Catch ex As Exception
Finally
If DBCon.State = ConnectionState.Open Then
DBCon.Close()
End If
cm = Nothing
dr = Nothing
DBCon.Dispose()
GC.Collect()
End Try
iCount = iCount + 1
If valid = True Then
Me.Hide()
Mainscreen.Show()
ElseIf iCount = 3 Then
MessageBox.Show("Invalid Info")
Me.Close()
End If
End Sub
End Class
Inherits System.Windows.Forms.Form
Dim g_login As String
Dim iCount As Integer
Dim frmMain As New Mainscreen
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ConString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Password=;User ID=;Data Source=C:\All Databases\PWord.mdb"
Dim DBCon As New OleDb.OleDbConnection(ConString)
g_login = Textbox1.Text
Dim strPassword As String = TextBox2.text
If g_login = "" Or strPassword = "" Then
MessageBox.Show("Missing username or password.", "Missing Info")
TextBox1.Focus()
Return
End If
Dim strsql As String = "SELECT [usernamefield], [passwordfield] FROM Table1 WHERE [usernamefield]='" & g_login & "' "
Dim cm As New OleDb.OleDbCommand(strsql, DBCon)
Dim dr As OleDb.OleDbDataReader
Dim valid As Boolean = False
Dim HasRows As Boolean = False
Try
DBCon.Open()
dr = cm.ExecuteReader
If dr.HasRows Then
While dr.Read
If strPassword = dr.Item("passwordfield") Then
valid = True
End If
End While
HasRows = True
End If
dr.Close()
Catch exO As OleDb.OleDbException
Catch ex As Exception
Finally
If DBCon.State = ConnectionState.Open Then
DBCon.Close()
End If
cm = Nothing
dr = Nothing
DBCon.Dispose()
GC.Collect()
End Try
iCount = iCount + 1
If valid = True Then
Me.Hide()
Mainscreen.Show()
ElseIf iCount = 3 Then
MessageBox.Show("Invalid Info")
Me.Close()
End If
End Sub
End Class
Add New Comment