在VB.NET中如何操作MySQL数据库

发布时间：2020-12-16 23:27:07 所属栏目：大数据来源：网络整理

导读：这是在VB.NET中为连接MySql中编写的一个类库。你可以使用这个类库直接操作MySql数据库。在使用这个类库之前，你必须安装 ODBC MYSQL 3.51下载地址：http://www.mysql.com/downloads/api-myodbc-3.51.html Driver ODBC.NET下载地址：http://www.microsoft.co

这是在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的一个例子

Code:

'对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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!