通過對VB.NET的學習，大家可能會對這款功能強大的編程語言有些愛不釋手。尤其是在數據庫的操作上，體現了簡便靈活的特性。下面我們就來看看有關VB.NET操作MySql數據庫的一些應用技巧。#t#

這是在VB.NET中為連接MySql中編寫的一個類庫。你可以使用這個類庫直接操作MySql數據庫。

在使用這個類庫之前，你必須安裝

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

在這個庫中有三個類：

ManipStringForMySQL: 此類修改SGBD的字符串

MySQL_Requettes: 發送請求

MySQL_Utils : 對SGBD數據進行測試

下面是VB.NET操作MySql數據庫的一個例子

對DataSet進行操作

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  

對函數的調用
 

Dim MonDatasetTemp As 
DataSet = MySQL_Requettes
.MyODBCDataset(  
SQL,  
constantes.ODBCBase,   
constantes.ODBCServer,   
constantes.ODBCPwd,   
constantes.ODBCUser,   
"MonDataset") 

此VB.NET操作MySql數據庫實現程序用到的類庫可在如下地址下載：http://www.codeproject.com/dotnet/MySQLConnexion/MySQLConnexion.zip