这是在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数据进行测试
下面是使用此类库操作MysqL的一个例子
- '对DataSet进行操作
- PublicSharedFunctionMyODBCDataset(ByValReqsqlAsString,_
- ByValLaBaseAsString,ByValServerAsString,_
- ByValPasswordAsString,ByValUserAsString,_
- ByValNomDataSetAsString)AsDataSet
- 'ConnexionàunserverMysqL
- 'avecleDriverODBC3.51avecrequettequirenvoieundataset
- DimMyConStringAsString=_
- "DRIVER={MysqLODBC3.51Driver};SERVER="&Server_
- &";DATABASE="&LaBase&";UID="&User_
- &";PASSWORD="&Password&";OPTION=3;"
- DimMyODBCConnexionAsNewOdbcConnection(MyConString)
- Try
- DimdsAsNewDataSet()
- DimcmdAsOdbcDataAdapter=New
- OdbcDataAdapter(Reqsql,MyConString)
- DimMyCommandAsNewOdbcCommand()
- DimMyDataReaderAsOdbcDataReader
- cmd.Fill(ds,NomDataSet)
- MyODBCConnexion.Close()
- Returnds
- CatchMyOdbcExceptionAsOdbcException
- '
- HttpContext.Current.Response.Write(MyOdbcException.ToString)
- CatchMyExceptionAsException
- '
- HttpContext.Current.Response.Write(MyException.ToString)
- EndTry
- EndFunction
- '对函数的调用
- DimMonDatasetTempAsDataSet=MysqL_Requettes.MyODBCDataset(
- sql,
- constantes.ODBCBase,
- constantes.ODBCServer,
- constantes.ODBCPwd,
- constantes.ODBCUser,
- "MonDataset")
此程序用到的类库可在如下地址下载：http://www.codeproject.com/dotnet/MysqLConnexion/MysqLConnexion.zip
原文链接：https://www.f2er.com/vb/262890.html