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

創(chuàng)新互聯(lián)公司是創(chuàng)新、創(chuàng)意、研發(fā)型一體的綜合型網(wǎng)站建設公司，自成立以來公司不斷探索創(chuàng)新，始終堅持為客戶提供滿意周到的服務，在本地打下了良好的口碑，在過去的十年時間我們累計服務了上千家以及全國政企客戶，如銅雕雕塑等企業(yè)單位，完善的項目管理流程，嚴格把控項目進度與質量監(jiān)控加上過硬的技術實力獲得客戶的一致贊譽。

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

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

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: 發(fā)送請求

MySQL_Utils : 對SGBD數(shù)據(jù)進行測試

下面是VB.NET操作MySql數(shù)據(jù)庫的一個例子

對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  
 
 

對函數(shù)的調用

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

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

文章標題：VB.NET操作MySql數(shù)據(jù)庫代碼范例解讀
URL分享：http://uogjgqi.cn/article/cdocehe.html