问题描述
大家好,能否帮我把下面代码转成VB.NET的?谢谢!其实中UnzipPhoto是我引用的外部DLL文件dimstrSQLasstringDimtestAsUnzipPhoto.clsUnzipPhotoDimcnDataBaseAsADODB.ConnectionDimrsExpPortPhotoAsADODB.RecordsetSetrsExpPortPhoto=NewADODB.RecordsetSettest=NewUnzipPhoto.clsUnzipPhotostrSQL="SELECTtop1number,PhotoFROMEmployeesWHEREPhotoISNOTNULL"rsExpPortPhoto.OpenstrSQL,cnDataBase,adOpenForwardOnly,adLockReadOnlyaa.PhotoUnZiprsExpPortPhoto,"C:photo"
解决方案
解决方案二:
解决方案三:
test
解决方案四:
现在对数据库的操作基本上是使用ADO.NET我在这里给你使用ADO.NET的代码,希望对你有帮助:ImportsSystem.Data.SqlClientImportsSystem.DataPublicClassclsExecuteSQLSharedFunctionExecuteSQL(ByValSQLAsString)AsDataTableTryDimCONNAsString '对数据库连接的配制CONN="datasource=localhost;Database=HAWK;IntegratedSecurity=SSPI;"DimsqlConnAsNewSqlConnection(CONN)DimcmdAsSqlCommand=NewSqlCommand(SQL,sqlConn)cmd.CommandType=CommandType.TextDimsTokens()AsStringsTokens=SQL.Split("")'执行数据库的插入、删除、更新等操作IfStrings.InStr("INSERT,DELETE,UPDATE",sTokens(0).ToUpper)ThenIfsqlConn.State<>ConnectionState.OpenThensqlConn.Open()'打开数据库连接EndIfcmd.ExecuteNonQuery()'执行SQL语句IfsqlConn.State<>ConnectionState.ClosedThensqlConn.Close()'关闭数据库连接EndIfReturnNothing'执行数据库的查询操作ElseDimObjectdsDataSetAsNewDataSet()DimadapterAsNewSqlDataAdapter()adapter.SelectCommand=cmdIfsqlConn.State<>ConnectionState.OpenThensqlConn.Open()'打开数据库连接EndIfcmd.ExecuteNonQuery()'执行SQL语句IfsqlConn.State<>ConnectionState.ClosedThensqlConn.Close()'关闭数据库连接EndIfadapter.Fill(ObjectdsDataSet)'填充数据集ReturnObjectdsDataSet.Tables(0)EndIfCatchMsgBox(Err.Description)EndTryReturnNothingEndFunctionEndClass