【发布时间】:2019-03-27 14:33:59
【问题描述】:
我不知道如何解决这个问题,我已经尝试了所有方法。
错误 System.Data.dll 中发生 System.InvalidOperationException'
附加信息:提供程序“Microsoft.ACE.Oledb.12.0”未在本地计算机上注册。
在此代码行上弹出 commLogin.Connection.Open()
我需要帮助!
If TextBox1.Text = "" Then
MessageBox.Show("Username!", "Login", MessageBoxButtons.OK, MessageBoxIcon.Error)
TextBox1.Focus()
ElseIf TextBox2.Text = "" Then
MessageBox.Show("Password!", "Login", MessageBoxButtons.OK, MessageBoxIcon.Error)
TextBox2.Focus()
Else
Dim conLogin As New OleDb.OleDbConnection("PROVIDER=Microsoft.ACE.Oledb.12.0; Data Source = E:\projeto.mdb")
Dim commLogin As New OleDb.OleDbCommand("SELECT login.password FROM login WHERE nome_util = @username AND password = @password", conLogin)
Dim usernameParam As New OleDb.OleDbParameter("@username", Me.TextBox1.Text)
Dim passwordParam As New OleDb.OleDbParameter("@password", Me.TextBox2.Text)
commLogin.Parameters.Add(usernameParam)
commLogin.Parameters.Add(passwordParam)
commLogin.Connection.Open()
Dim reader As OleDb.OleDbDataReader = commLogin.ExecuteReader()
If reader.HasRows Then
MessageBox.Show("ggwp", "Login", MessageBoxButtons.OK, MessageBoxIcon.Information)
principal.Show()
Me.Hide()
Else
MessageBox.Show("Keep Trying", "Login", MessageBoxButtons.OK, MessageBoxIcon.Error)
TextBox1.Clear()
TextBox2.Clear()
TextBox1.Focus()
End If
commLogin.Connection.Close()
End If
【问题讨论】: