針對 VB.NET 開發者,封裝 MySQL ODBC 3.51 驅動的資料存取類庫,含連線字串建構、DataSet 填充、參數化查詢、例外處理與呼叫範例。
https://dev.mysql.com/downloads/connector/odbc/3.51.htmlhttps://www.microsoft.com/downloads/details.aspx?FamilyId=6CCD8427-1017-4F33-A062-D165078E32B1| 類別 | 職責 |
|---|---|
ManipStringForMySQL | 字串處理:跳脫單引號、日期格式化、LIKE 萬用字元轉義 |
MySQL_Requettes | SQL 執行:SelectDataSet、ExecuteNonQuery、ExecuteScalar |
MySQL_Utils | 工具方法:測試連線、取得版本、檢查表是否存在 |
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 ex As OdbcException
HttpContext.Current.Response.Write(ex.ToString())
Catch ex As Exception
HttpContext.Current.Response.Write(ex.ToString())
End Try
Return Nothing
End Function
Dim MonDatasetTemp As DataSet = MySQL_Requettes.MyODBCDataset( _
SQL, _
constantes.ODBCBase, _
constantes.ODBCServer, _
constantes.ODBCPwd, _
constantes.ODBCUser, _
"MonDataset")
Server=localhost;Database=test;Uid=root;Pwd=xxx;CharSet=utf8mb4;await cmd.ExecuteReaderAsync()ODBC 3.51 是歷史遺產,適合維護舊專案。新專案請直接使用 MySQL Connector/NET,獲得原生效能、型別安全、LINQ/EF Core 整合與長期支援。