Question

嘿大家好我是VB.NET的新手，我正在寻找创建一个包含所有常规SQL功能的模块，如connect，disconnect和execute sql query等。

我想我差不多了，但是代码在一个地方继续轰炸。

任何人都可以看到以下代码有什么问题吗？

它在这里炸弹，将命令对象设置为连接对象。连接的打开和关闭工作正常。

cmdSystem.Connection = cnSystem

或者也许我只是在考虑旧的VB，而且我认为这一切都错了。

Public Module modGeneral

Private cnSystem As New SqlClient.SqlConnection
Private cmdSystem As SqlClient.SqlCommand

Public Sub ConnectToSQL()

    Dim sConnectionString As String = "Data Source=SQL;Initial Catalog=XXXX;User ID=XXXX;Password=XXXX"

    Try
        cnSystem.ConnectionString = sConnectionString
        cnSystem.Open()
    Catch ex As Exception

    End Try

End Sub
Public Sub DisconnectFromSQL()

    Try
        cnSystem.Close()
        cnSystem.Dispose()
    Catch ex As Exception

    End Try

End Sub
Public Function lExecuteSQL(ByVal sSQL As String) As Long

    Dim lRecordsAffected As Long = 0

    Try
        cmdSystem.Connection = cnSystem
        cmdSystem.CommandText = sSQL
        lRecordsAffected = cmdSystem.ExecuteNonQuery()
        cmdSystem.Dispose()
    Catch ex As Exception

    End Try

    Return lRecordsAffected

End Function

End Module

提前致谢。

Answer 1

在某些时候，您需要像连接一样实例化命令对象。

您是否考虑过在课堂而不是模块中使用这些功能？

在VB.NET中创建通用SQL模块

1 个答案: