通过对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