|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
使用DBaaS能让收入损失从其他业务上得到弥补,如软件更新和硬件管理。也许决定走DBaaS之路的客户可能会跳过解决方案提供商,尽管这个决策看起来有点短视。这是在VB.net中为毗连MySql中编写的一个类库。你可使用这个类库间接操纵MySql数据库。
在利用这个类库之前,你必需安装
在这个库中有三个类:
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")
越来越多的开发者将继续选择MySQL。Evans的总裁JohnAndrews表示,MySQL学习教程用户对MySQL和其他开源数据库的评价正在赶上甚至超过很多专有商业数据库软件。 |
|