如何使用visual basic参数调用此函数?

问题描述:

Private Function SelectSqlRows(ByVal connectionString As String,
    ByVal queryString As String, ByVal tableName As String) As DataSet


        Using connection As New SqlConnection(connectionString)



            Dim adapter As New SqlDataAdapter()
            adapter.SelectCommand = New SqlCommand(queryString, connection)
            Dim builder As SqlCommandBuilder = New SqlCommandBuilder(adapter)

            connection.Open()

            Dim DS As DataSet = New DataSet
            adapter.Fill(DS, tableName)

            ' Code to modify data in DataSet here 

            builder.GetUpdateCommand()

            ' Without the SqlCommandBuilder this line would fail.
            adapter.Update(DS, tableName)

            Return DS

        End Using
    End Function





我尝试过:



Form1_Load:



SelectSqlRows(connectionString,queryString,tblCustomers)



它在connectionString上显示错误:slqconnection无法转换为字符串



What I have tried:

At Form1_Load :

SelectSqlRows(connectionString, queryString, tblCustomers)

It shows error at connectionString : slqconnection cannot be converted to string

您的语句
Using connection As New SqlConnection(connectionString)



不对。



您要做的是将字符串对象设置为sqlconnection对象而不是SQLConnect.ConnectString对象(这是一个字符串)



以下链接提供了一个很好的示例。



请参阅 SqlConnection.ConnectionString Property [ ^ ]