reza_vb64
یک شنبه 06 بهمن 1387, 12:52 عصر
Imports System.Data.OleDb
Public Class LoginForm1
Dim con As OleDbConnection
Dim ol_cm As OleDbCommand
Dim dr As OleDbDataReader
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
con = New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=user1.mdb")
If (((UsernameTextBox.Text <> "" And PasswordTextBox.Text <> ""))) Then
' cm= New OleDbCommand("Select * From user where username ='" & UsernameTextBox.Text & "' and password = '" & PasswordTextBox.Text & "' ", con)
con.Open()
dr = ol_cm.ExecuteReader
If dr.HasRows = True Then
dr.Read()
'Me.Visible = False
AboutBox1.Show()
Else
MsgBox("error")
End If
Else
MsgBox("erro")
End If
End Sub
Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
Me.Close()
End Sub
Private Sub LoginForm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
erro:
An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in System.Data.dll
Additional information: Syntax error in FROM clause.
Public Class LoginForm1
Dim con As OleDbConnection
Dim ol_cm As OleDbCommand
Dim dr As OleDbDataReader
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
con = New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=user1.mdb")
If (((UsernameTextBox.Text <> "" And PasswordTextBox.Text <> ""))) Then
' cm= New OleDbCommand("Select * From user where username ='" & UsernameTextBox.Text & "' and password = '" & PasswordTextBox.Text & "' ", con)
con.Open()
dr = ol_cm.ExecuteReader
If dr.HasRows = True Then
dr.Read()
'Me.Visible = False
AboutBox1.Show()
Else
MsgBox("error")
End If
Else
MsgBox("erro")
End If
End Sub
Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
Me.Close()
End Sub
Private Sub LoginForm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
erro:
An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in System.Data.dll
Additional information: Syntax error in FROM clause.