VB.NET 連接 MySQL 類庫完整實作：ODBC 驅動封裝與 DataSet 操作範例

VB.NET 專用 MySQL 類庫，封裝 ODBC 3.51 驅動，提供三大核心類別。

前置需求

• 安裝 MySQL ODBC 3.51 Driver
• 專案參考 System.Data.Odbc

三大類別

• ManipStringForMySQL：字串預處理 (防注入、轉義)
• MySQL_Requettes：SQL 指令執行與 DataSet 填充
• MySQL_Utils：資料驗證、連線測試

核心方法：MyODBCDataset (回傳 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

  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 New OdbcDataAdapter(ReqSQL, MyConString)
    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")

現代化建議

• 新專案改用 MySQL Connector/NET (原生 ADO.NET 提供者)，效能更好、功能更全
• 參數化查詢防 SQL 注入，勿手工拼接字串
• 連線字串儲存於 web.config <connectionStrings>，勿硬編碼