VB.NET操作MySql的一个例子

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

上述内容就是VB.NET中怎么操作MySql数据库,你们学到知识或技能了吗?如果还想学到更多技能或者丰富自己的知识储备,欢迎关注本站行业资讯频道。