<script type="text/javascript">
</script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
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
__________________________________________________________________________
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
__________________________________________________________________________