运行下面代码时出现“未处理的System.Data.Ole.OleDbException类型的异常出现在System.Data.dll中”的错误提示,怎么回事,高手帮帮忙~~
Imports System.Data.OleDb
Public Class LoginForm
Dim objConn As OleDbConnection
Private Sub btnConfirm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConfirm.Click
Dim SQLStr As String = "select * from 用户信息表 where Username='" + ComboBox1.Text + _
"' and Password='" + txtPassWord1.Text + " ' and Usertype ='" + GroupBox1.Text + "'"
Dim objCom As New OleDbCommand
objCom.Connection = objConn
objCom.CommandType = CommandType.Text
objCom.CommandText = SQLStr
Dim objDataReader As OleDbDataReader = objCom.ExecuteReader()
If objDataReader.Read = False Then
MsgBox("用户名或密码或用户类型输入错误,请重新输入!")
ElseIf ComboBox1.Text = Nothing Then
MsgBox("请输入用户名!", MsgBoxStyle.Exclamation, "警告")
ElseIf txtPassWord1.Text = Nothing Then
MsgBox("请输入密码!", MsgBoxStyle.Exclamation, "警告")
ElseIf RadioButton1.Checked = False And RadioButton2.Checked = False Then
MsgBox("请选择用户类型", MsgBoxStyle.Exclamation, "警告")
Me.Enabled = True
Else
Mainfrm.Show()
Me.Hide()
End If
objConn.Close()
End Sub
Private Sub LoginForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ConnString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=FamilyFinancing.accdb;" & "Persist Security Info=False"
objConn = New OleDbConnection(ConnString)
Try
objConn.Open()
MessageBox.Show("欢迎使用家庭财务管理系统", "提示")
Catch OleDbe As OleDbException
MessageBox.Show(OleDbe.Message, "连接失败对话框")
End Try
Exit Sub
End Sub Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
Me.Close()
End Sub
End Class
Imports System.Data.OleDb
Public Class LoginForm
Dim objConn As OleDbConnection
Private Sub btnConfirm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConfirm.Click
Dim SQLStr As String = "select * from 用户信息表 where Username='" + ComboBox1.Text + _
"' and Password='" + txtPassWord1.Text + " ' and Usertype ='" + GroupBox1.Text + "'"
Dim objCom As New OleDbCommand
objCom.Connection = objConn
objCom.CommandType = CommandType.Text
objCom.CommandText = SQLStr
Dim objDataReader As OleDbDataReader = objCom.ExecuteReader()
If objDataReader.Read = False Then
MsgBox("用户名或密码或用户类型输入错误,请重新输入!")
ElseIf ComboBox1.Text = Nothing Then
MsgBox("请输入用户名!", MsgBoxStyle.Exclamation, "警告")
ElseIf txtPassWord1.Text = Nothing Then
MsgBox("请输入密码!", MsgBoxStyle.Exclamation, "警告")
ElseIf RadioButton1.Checked = False And RadioButton2.Checked = False Then
MsgBox("请选择用户类型", MsgBoxStyle.Exclamation, "警告")
Me.Enabled = True
Else
Mainfrm.Show()
Me.Hide()
End If
objConn.Close()
End Sub
Private Sub LoginForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ConnString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=FamilyFinancing.accdb;" & "Persist Security Info=False"
objConn = New OleDbConnection(ConnString)
Try
objConn.Open()
MessageBox.Show("欢迎使用家庭财务管理系统", "提示")
Catch OleDbe As OleDbException
MessageBox.Show(OleDbe.Message, "连接失败对话框")
End Try
Exit Sub
End Sub Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
Me.Close()
End Sub
End Class
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货