我在VB.NET中有一个函数,它在启动主应用程序之前对MySQL数据库对用户进行身份验证。下面是函数的代码:
Public Function authConnect() As Boolean
Dim dbserver As String
Dim dbuser As String
Dim dbpass As String
dbserver = My.Settings.dbserver.ToString
dbuser = My.Settings.dbuser.ToString
dbpass = My.Settings.dbpass.ToString
conn = New MySqlConnection
myConnString = "server=" & dbserver & ";" & "user id=" & dbuser & ";" & "password=" & dbpass & ";" & "database=rtadmin"
Dim myCommand As New MySqlCommand
Dim myAdapter As New MySqlDataAdapter
Dim myData As New DataTable
Dim myDataReader As New MySqlDataReader
Dim query As String
myCommand.Parameters.Add(New MySqlParameter("?Username", login_usr_txt.Text))
myCommand.Parameters.Add(New MySqlParameter("?Password", login_pass_txt.Text))
query = "select * from users where user = ?Username and passwd = ?Password"
conn.ConnectionString = myConnString
Try
conn.Open()
Try
myCommand.Connection = conn
myCommand.CommandText = query
myAdapter.SelectCommand = myCommand
myDataReader = myCommand.ExecuteReader
If myDataReader.HasRows() Then
MessageBox.Show("You've been logged in.", "RT Live! Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
Catch ex As Exception
End Try
Catch ex As Exception
End Try
End Function 函数尚未完成,在启动应用程序之前还需要做一些其他的事情,因为我使用MessageBox来显示登录尝试的结果。
我得到的错误如下:
'MySql.Data.MySqlClient.MySqlDataReader.Friend错误1
Sub New(cmd作为MySql.Data.MySqlClient.MySqlCommand,语句为MySql.Data.MySqlClient.PreparableStatement,行为为System.Data.CommandBehavior)在此上下文中无法访问,因为它是“朋友”。C:\User\Mario\documents\visual studio 2010\Projects\Remote Techs Live!\Remote Techs Live!\Login.vb 43 13远程技术直播!
有什么想法吗?
发布于 2010-05-12 14:19:31
尝试创建一个MySqlDataReader然后扔掉它是没有意义的!
首先,您要尝试创建一个读取器:
Dim myDataReader As New MySqlDataReader然后,当你这样做的时候,你试着扔掉它:
myDataReader = myCommand.ExecuteReader只需从初始声明中删除New。我怀疑MySqlDataReader的构造函数是不可公开访问的。
发布于 2010-05-12 14:03:02
您可以尝试.AddWithValue而不是.Add。
例如:
cmd.Parameters.AddWithValue("?Username", login_usr_txt.Text)https://stackoverflow.com/questions/2819445
复制相似问题