虽然我确实阅读了大量的stackoverflow帖子,并检查了很多教程网站,但我无法让我的代码工作。
我想使用sqlBulkCopy。因此,我需要一个'SqlConnection'类的实例。我有一个MySQL数据库正在运行,我完全没有问题打开与'MySqlConnection'类的连接。
我已经尝试了几种方法来使SqlConnection正常工作。
MySqlConnection(有效):
Dim a = "Server=localhost;Initial Catalog=hauptdatenbank;User Id=johnny;Password=123456;"
Using cn As New MySqlConnection(a)
cn.Open()
End Using
SqlConnection(不起作用):
Dim a = "Server=localhost;Initial Catalog=hauptdatenbank;User Id=johnny;Password=123456;"
Using cn As New SqlConnection(a)
cn.Open()
End Using
抛出SqlException之后:
建立与SQL Server的连接时发生与网络相关或特定于实例的错误。服务器未找到或无法访问。验证实例名称是否正确,以及SQL Server是否配置为允许远程连接。 (提供者:命名管道提供程序,错误:40 - 无法打开与SQL Server的连接)
SqlBulk仅适用于SQL DB。 MySqlBulkLoader用于MySQL数据库。
感谢您的评论!
导入MySql.Data.MySqlClient
模块连接
Public str1 As String = "data source=localhost;user id= root;password=;database= parisbugdb;"
结束模块
If Len(Trim(PassBox.Text)) = 0 Then
AlertLabel.Visible = True
AlertLabel.Text = "Password required!"
PassBox.SelectAll()
PassBox.Focus()
Return
End If
con.Open()
Dim Sql = "SELECT * FROM userx WHERE username ='" & UserBox.Text & "' AND password = '" & PassBox.Text & "'"
scmd = New MySqlCommand(sql, con)
Dim sdr As MySqlDataReader = scmd.ExecuteReader
Try
If sdr.Read = False Then
AlertLabel.Visible = True
AlertLabel.Text = "Login denied!"
con.Close()
Else
UserBox.Clear()
PassBox.Clear()
UserBox.Focus()
Me.Hide()
Dashboard.Show()
End If
Catch ex As Exception
MsgBox(ex.ToString())
End Try
结束子