如何使用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 [ ^ ]