VB.NET經(jīng)過長時(shí)間的發(fā)展，很多用戶都很了解VB.NET操作MySql數(shù)據(jù)庫了，這里我發(fā)表一下個(gè)人理解，和大家討論討論。這是在VB.NET中為連接MySql中編寫的一個(gè)類庫。你可以使用這個(gè)類庫直接VB.NET操作MySql數(shù)據(jù)庫。

在使用這個(gè)類庫之前，你必須安裝
ODBC MYSQL 3.51下載地址：http://www.mysql.com/downloads/api-myodbc-3.51.html
Driver ODBC.NET下載地址：http://www.microsoft.com/downloads/details.aspx?FamilyId=6CCD8427-1017-4F33-A062-D165078E32B1&displaylang=en

在這個(gè)庫中有三個(gè)類：
◆ManipStringForMySQL: 此類修改SGBD的字符串
◆MySQL_Requettes: 發(fā)送請(qǐng)求
◆MySQL_Utils : 對(duì)SGBD數(shù)據(jù)進(jìn)行測試

下面是使用VB.NET操作MySql的一個(gè)例子

Public Shared Function MyODBCDataset(ByVal ReqSQL As String, _ByVal LaBase As String, 
ByVal Server As String, _ByVal Password As String, 
ByVal User As String, _ByVal NomDataSet As String) As DataSet  
'Connexion à un server MySQL  
'avec le Driver ODBC 3.51 avec requette qui renvoie un dataset  
Dim MyConString As String = _ 
"DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & Server _& ";DATABASE=" & LaBase & ";
UID=" & User _& ";PASSWORD=" & Password & ";OPTION=3;"  
 
Dim MyODBCConnexion As New OdbcConnection(MyConString)  
Try  
Dim ds As New DataSet()  
Dim cmd As OdbcDataAdapter = New 
OdbcDataAdapter(ReqSQL, MyConString)  
Dim MyCommand As New OdbcCommand()  
Dim MyDataReader As OdbcDataReader  
cmd.Fill(ds, NomDataSet)  
MyODBCConnexion.Close()  
Return ds  
Catch MyOdbcException As OdbcException  
'  
HttpContext.Current.Response.Write(MyOdbcException.ToString)  
Catch MyException As Exception  
'  
HttpContext.Current.Response.Write(MyException.ToString)  
End Try  
End Function 

【編輯推薦】

1. 三步了解VB.NET串口通訊如何發(fā)送接收數(shù)據(jù)
2. 是否了解VB.NET Derived Class
3. 迅速掌握VB.NET Shared變量技能
4. 事例講解VB.NET Constructor函式
5. 剖析VB.NET寫Object Oriented編程