Mysql数据库连接vb.net

我正在尝试连接到数据库，但它不工作

代码：

它还说连接到数据库时出错

---

有什么问题吗

您不能使用

http://www.*****.net/phpMyAdmin

作为您的服务器名称。它应该只是您的域名（主机名）

mydomain.com

或IP地址

192.168.0.10

它应该如下所示：

Dim conn As MySqlConnection = New MySqlConnection
conn.ConnectionString = "Host=192.168.0.10;user=root;password=root"
conn.Open()

---

您不能使用

http://www.*****.net/phpMyAdmin

作为您的服务器名称。它应该只是您的域名（主机名）

mydomain.com

或IP地址

192.168.0.10

它应该如下所示：

Dim conn As MySqlConnection = New MySqlConnection
conn.ConnectionString = "Host=192.168.0.10;user=root;password=root"
conn.Open()

---

首先确保安装了MySQL Connector/NET。检查所有凭据是否正确。然后试试这个片段

    Imports MySql.Data.MySqlClient
Public Class MySQLConnect
    Private db_con As New MySqlConnection
    Private Sub connect()
        Dim dbname As String = "DBNAME"
        Dim dbhost As String = "localhost"
        Dim user As String = "root"
        Dim pass As String = "DBPASSWORD"


        If Not db_con Is Nothing Then db_con.Close()
        db_con.ConnectionString = String.Format("server={0}; user id={1}; password={2}; database={3}; pooling=false", dbhost, user, pass, dbname)

        Try
            db_con.Open()
        Catch ex As MySqlException
            MsgBox("Database Error:[" & ex.Message & "]")
        End Try
    End Sub
End Class

---

试试看，这很简单。

首先确保安装了MySQL Connector/NET。检查所有凭据是否正确。然后试试这个片段

    Imports MySql.Data.MySqlClient
Public Class MySQLConnect
    Private db_con As New MySqlConnection
    Private Sub connect()
        Dim dbname As String = "DBNAME"
        Dim dbhost As String = "localhost"
        Dim user As String = "root"
        Dim pass As String = "DBPASSWORD"


        If Not db_con Is Nothing Then db_con.Close()
        db_con.ConnectionString = String.Format("server={0}; user id={1}; password={2}; database={3}; pooling=false", dbhost, user, pass, dbname)

        Try
            db_con.Open()
        Catch ex As MySqlException
            MsgBox("Database Error:[" & ex.Message & "]")
        End Try
    End Sub
End Class

Imports System.Data.SqlClient
Imports MySql.Data.MySqlClient
Public Class LoginForm1
    Dim mysqlconnection As MySqlConnection

    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        mysqlconnection = New MySqlConnection
        mysqlconnection.ConnectionString = "server=servername.com;port=portnum;user id=username ;pwd=password;database=databasename"
        'mysqlconnection.Open()
        Try
            mysqlconnection.Open()
        Catch myerror As MySqlException
            MsgBox("Error connecting to database!")
            Exit Sub
        End Try
        MsgBox("connected to database!")
    End Sub

---

试试看，这很简单。

即使我这样做了，用户id=******；密码=*******“'也不起作用..即使我这样做了，'conn.ConnectionString=“Host=**********”；用户id=****；密码=****“'也不起作用..

试试conn.Open（）捕获myerror作为MySqlException MsgBox（myerror.message）End Try

这将为您提供更详细的异常信息。

尝试conn.Open（）捕获myerror作为MySqlException MsgBox（myerror.message）End Try

这将为您提供更详细的异常信息。欢迎使用StackOverflow。您的代码有一些格式问题。通常还需要添加一点文字来解释您的解决方案。您可以编辑您的帖子以进行这些更改。欢迎使用StackOverflow。您的代码有一些格式问题。通常还需要添加一点文字来解释您的解决方案。您可以编辑您的帖子以进行这些更改。

Imports System.Data.SqlClient
Imports MySql.Data.MySqlClient
Public Class LoginForm1
    Dim mysqlconnection As MySqlConnection

    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        mysqlconnection = New MySqlConnection
        mysqlconnection.ConnectionString = "server=servername.com;port=portnum;user id=username ;pwd=password;database=databasename"
        'mysqlconnection.Open()
        Try
            mysqlconnection.Open()
        Catch myerror As MySqlException
            MsgBox("Error connecting to database!")
            Exit Sub
        End Try
        MsgBox("connected to database!")
    End Sub