[VB.NET]VB6.0代码转VB.NET
发布时间：2020-12-16 23:48:52 所属栏目：大数据 来源：网络整理
导读：VB6.0代码转VB.NET 大家好,能否帮我把下面代码转成VB.NET的?谢谢! 其实中UnzipPhoto是我引用的外部DLL文件 dim strSQL as string Dim test As UnzipPhoto.clsUnzipPhoto Dim cnDataBase As ADODB.Connection Dim rsExpPortPhoto As ADODB.Recordset Set rsEx
|
VB6.0代码转VB.NET 大家好,能否帮我把下面代码转成VB.NET的?谢谢! 其实中UnzipPhoto是我引用的外部DLL文件 dim strSQL as string Dim test As UnzipPhoto.clsUnzipPhoto Dim cnDataBase As ADODB.Connection Dim rsExpPortPhoto As ADODB.Recordset Set rsExpPortPhoto = New ADODB.Recordset Set test = New UnzipPhoto.clsUnzipPhoto strSQL = "SELECT top 1 number,Photo FROM Employees WHERE Photo IS NOT NULL " rsExpPortPhoto.Open strSQL,cnDataBase,adOpenForwardOnly,adLockReadOnly aa.PhotoUnZip rsExpPortPhoto,"C:/photo" __________________________________________________________________________ __________________________________________________________________________ VB.NET codetest __________________________________________________________________________ 现在对数据库的操作基本上是使用ADO.NET 我在这里给你使用ADO.NET的代码，希望对你有帮助： Imports System.Data.SqlClient Imports System.Data Public Class clsExecuteSQL Shared Function ExecuteSQL(ByVal SQL As String) As DataTable Try Dim CONN As String ''对数据库连接的配制 CONN = "data source=localhost;Database=HAWK;Integrated Security=SSPI;" Dim sqlConn As New SqlConnection(CONN) Dim cmd As SqlCommand = New SqlCommand(SQL,sqlConn) cmd.CommandType = CommandType.Text Dim sTokens() As String sTokens = SQL.Split(" ") ''执行数据库的插入、删除、更新等操作 If Strings.InStr("INSERT,DELETE,UPDATE",sTokens(0).ToUpper) Then If sqlConn.State <> ConnectionState.Open Then sqlConn.Open() ''打开数据库连接 End If cmd.ExecuteNonQuery() ''执行SQL语句 If sqlConn.State <> ConnectionState.Closed Then sqlConn.Close() ''关闭数据库连接 End If Return Nothing ''执行数据库的查询操作 Else Dim ObjectdsDataSet As New DataSet() Dim adapter As New SqlDataAdapter() adapter.SelectCommand = cmd If sqlConn.State <> ConnectionState.Open Then sqlConn.Open() ''打开数据库连接 End If cmd.ExecuteNonQuery() ''执行SQL语句 If sqlConn.State <> ConnectionState.Closed Then sqlConn.Close() ''关闭数据库连接 End If adapter.Fill(ObjectdsDataSet) ''填充数据集 Return ObjectdsDataSet.Tables(0) End If Catch MsgBox(Err.Description) End Try Return Nothing End Function End Class __________________________________________________________________________ （编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |