尝试:
Dim conn As SqlConnection = New SqlConnection("server='h'; user id='w'; password='w'; database='w'; pooling='false'")
conn.Open()
Dim query As New SqlCommand("DECLARE @investor varchar(10), @sql varchar(1000) Select @investor = 69836 select @sql = 'SELECT * FROM OPENQUERY(db,''SELECT * FROM table WHERE investor = ''''' + @investor + ''''''')' EXEC(@sql)", conn)
Dim rdr as SqlDataReader
rdr = query.ExecuteReader()
if (rdr.HasRows) then
dgBookings.DataSource = rdr
dgBookings.DataBind()
else
.....
end if
很明显,您可以确保对象被清理/处理,所以这只是为了演示
HasRows