连接到使用VB.Net

Question

我已搜索周围，一直没能找到沿着这样的线任何一个在线MySQL数据库。

Answer 1

您需要安装Connector/Net，这会给你的MySQL完整的ADO.Net提供商可以使用。被警告这是GPL软件，这意味着如果您将其作为商业产品的一部分进行分发，则还必须分发您的源代码。这是一个公开的法律问题，但最后我听说大多数网站都可以，因为你没有分发你的服务器代码。不过，桌面应用程序可能有问题。

Answer 2

我使用C＃：

const String ConnectionString = "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Port=3306;Database=test;User=root;Password=;Option=3;"; 

OdbcConnection conn = new OdbcConnection(ConnectionString); 

conn.Open(); 

OdbcCommand command = new OdbcCommand(); 

command.CommandType = CommandType.StoredProcedure; 

command.Connection = conn; 

command.CommandText = "insert into search (tempsearchKey, state, suburb) values ('" + tempsearchKey+"','"+state+"','"+suburb+"')"; 

command.ExecuteNonQuery(); 

command.Cancel(); 

从MySQL网站

安装ODBC驱动程序和它转换为VB.NET，

也许这个链接可以帮助：

http://dev.mysql.com/tech-resources/articles/ebonat-load-and-search-mysql-data-using-vbnet-2005.html

Answer 3

首先你需要安装MySQL connector for .NET。

Imports MySql.Data.MySqlClient 

Dim myConnection As MySqlConnection = New MySqlConnection() 
Dim myConnectionString As String = "Server=SERVERNAME;Database=DATABASE;Uid=root;Pwd=password;" 
myConnection.ConnectionString = myConnectionString 
myConnection.Open() 

//execute queries, etc 

myConnection.Close() 

Answer 4

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) 
     Me.Close() 
    End Sub 

    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
     Me.Close() 
    End Sub 

    Private Sub Cancel_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click 
     End 
    End Sub 
Private Sub OK_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click 
     MySQLConnection = New MySqlConnection 
     MySQLConnection.ConnectionString = "server=db4free.net;Port=3306; User ID=db4freeusername; password=db4freepassword; database=nameofyourdatabase" 
     MySQLConnection.Open() 

     Dim MyAdapter As New MySqlDataAdapter 
     Dim SqlQuary = "SELECT * From nameofthetable WHERE Username='" & UsernameTextBox.Text & "' AND password = '" & PasswordTextBox.Text & "';" 
     Dim Command As New MySqlCommand 
     Command.Connection = MySQLConnection 
     Command.CommandText = SqlQuary 
     MyAdapter.SelectCommand = Command 
     Dim Mydata As MySqlDataReader 
     Mydata = Command.ExecuteReader 
     If Mydata.HasRows = 0 Then 
      MsgBox("Error During Login:Please Enter Valid Data") 
     Else 
      Form1.Show() 
      Me.Hide() 
     End If 
    End Sub 
End Class 

Answer 5

安装MySQL Connector为.NET和Apache，还要安装XAMPP，所以你可以使用phpMyAdmin