mysql使用vb.net？

Question

我在 VB.NET 中开发了一个项目

在这个项目中，我想使用驻留在我的 WEB 服务器中的 MySQL 数据。

我可以和本地的 MySQL 服务器通信，但不能和 WEB 服务器通信。

在我的 CPanel 中，我从远程数据库访问中添加了主机

但我无法与 WEB MySQL 服务器通信。

请帮帮我。

    Dim connection As MySqlConnection
    connection = New MySqlConnection()

    connection.ConnectionString = "Server=saver ip; Port=2082; Uid=username; Pwd=password; Database=database; Connect Timeout=60;"

    Try
        connection.Open()
        MessageBox.Show("Connection Opened Successfully")
        connection.Close()
    Catch mysql_error As MySqlException
        MessageBox.Show("Error Connecting to Database: " & mysql_error.Message)
    Finally
        connection.Dispose()
    End Try

当我尝试运行它时。我收到此错误“连接到数据库时出错：从流中读取失败。”

注意*：我的数据库名称如“myweb_dbname”和我的用户名“myweb_username”可以吗？我正在使用 cPanal1.0 (RC1) 和 mysql5.1.56-log 和 os linux。

杰夫 V： 谢谢！当我尝试你的代码时..

Dim dataConnection As New MySql.Data.MySqlClient.MySqlConnection()
dataConnection.ConnectionString = "Server = xx.xx.xxx.xxx; Database = dbNAME; Uid = userID; Pwd = password;"


Dim dataCommand As MySql.Data.MySqlClient.MySqlCommand = New MySqlCommand()
dataCommand.Connection = dataConnection


Try
    dataConnection.Open()
    dataConnection.Close()
Catch x As Exception
    Console.WriteLine(x.Message.ToString())
    MsgBox(x.ToString)
End Try

我收到此错误消息：

MySql.Data.MySqlClient.MySqlException：无法连接到任何 指定的 MySQL 主机。在 MySql.Data.MySqlClient.NativeDriver.Open() 在 MySql.Data.MySqlClient.Driver.Open() 在 MySql.Data.MySqlClient.Driver.Create(MySqlConnectionStringBuilder 设置）在 MySql.Data.MySqlClient.MySqlPool.CreateNewPooledConnection() 在 MySql.Data.MySqlClient.MySqlPool.GetPooledConnection() 在 MySql.Data.MySqlClient.MySqlPool.TryToGetDriver() 在 MySql.Data.MySqlClient.MySqlPool.GetConnection() 在 MySql.Data.MySqlClient.MySqlConnection.Open() 在 mysql.Form1.Button3_Click(Object sender, EventArgs e) in C:\Users\pram\Documents\Visual Studio 2008\Projects\mysql\mysql\Form1.vb：第 48 行

在第 48 行“dataConnection.Open()”

Answer 1

我不确定那里发生了什么，但如果这是 MSSQL，我通常会检查协议、防火墙

Answer 2

试试这个。我正在使用这个 sn-p 来执行命令。

Imports MySql.Data.MySqlClient
Dim strConnString As String = "server=xxx.x.x.x;uid=user;pwd=password;database=xxx"
Dim objConn As New MySqlConnection(strConnString)

Public Function MyDataSet(ByVal strSQL As String) As DataSet
        Dim ds As New DataSet
        Dim mycmd As MySqlCommand = New MySqlCommand(strSQL, objConn)
        Dim ad As MySqlDataAdapter = New MySqlDataAdapter
        ad.SelectCommand = mycmd
        objConn.Open()
        ad.Fill(ds, "a")
        objConn.Close()
        Return ds
End Function

最好的问候， @iamsupergrasya

Answer 3

这就是我的做法（使用 C#）：

using System.Data.Sql;
using MySql.Data.MySqlClient;

        MySql.Data.MySqlClient.MySqlConnection dataConnection =  new MySql.Data.MySqlClient.MySqlConnection();
        dataConnection.ConnectionString = "Server = xx.xx.xxx.xxx; Database = dbNAME; Uid = userID; Pwd = password;";


        MySql.Data.MySqlClient.MySqlCommand dataCommand = new MySqlCommand();
        dataCommand.Connection = dataConnection;

        //tell the compiler and database that we're using parameters (thus the @first, @last, @nick)
        dataCommand.CommandText = ("INSERT INTO ...;");

        //add our parameters to our command object
        dataCommand.Parameters.AddWithValue("@recordId", dataString[0].ToString());
        ...

        try{
            dataConnection.Open();
            dataCommand.ExecuteNonQuery();
            dataConnection.Close();
        }catch (Exception x){
            Console.WriteLine(x.Message.ToString());
        }

我认为我最初可能在 VB.Net 中拥有它，但您“应该”能够相当容易地将其转换为 VB。如果您仍然需要帮助，请告诉我。今晚我会尝试转换它。

让我知道它是否适合你。

更新 - VB.NET 代码：

Dim dataConnection As New MySql.Data.MySqlClient.MySqlConnection()
dataConnection.ConnectionString = "Server = xx.xx.xxx.xxx; Database = dbNAME; Uid = userID; Pwd = password;"


Dim dataCommand As MySql.Data.MySqlClient.MySqlCommand = New MySqlCommand()
dataCommand.Connection = dataConnection

'tell the compiler and database that we're using parameters (thus the @first, @last, @nick) 
dataCommand.CommandText = ("INSERT INTO ...;")

'add our parameters to our command object 
dataCommand.Parameters.AddWithValue("@recordId", dataString(0).ToString())

Try
    dataConnection.Open()
    dataCommand.ExecuteNonQuery()
    dataConnection.Close()
Catch x As Exception
    Console.WriteLine(x.Message.ToString())
End Try

我使用了这个转换器工具 (http://www.developerfusion.com/tools/convert/csharp-to-vb/) - 所以试试这个。

更新 - 对评论问题的回答：

您可以使用命令提示符 ping 您的站点：

cmd.exe

然后在命令窗口中输入您网站的 URL。这将返回您网站的 IP 地址。