Dim conn As OleDb.OleDbConnection = New OleDb.OleDbConnection
Dim comm As OleDb.OleDbCommand = New OleDb.OleDbCommand("Select User Name, Password From AuthorizedInventoryStaff.mdb Where User Name='" & txtUserName.Text & "'and Password='" & txtPassword.Text & "'", conn)
Dim ds As New DataSet
comm.fill(ds, "AuthorizedInventoryStaff.mdb")
If ds.Tables("AuthorizedInventoryStaff.mdb").Rows.Count > 0 Then
response.redirect("Welcome.vb")
Else
response.redirect("Login.vb")
End If
2006-07-21
17:50:41
·
4 answers
·
asked by
braich_gal
3