提问: 怎么利用vb方法(函数)返回一个记录集

Question

Option Explicit
Private conn As ADODB.Connection
Private rs As ADODB.Recordset
Private rs1 As ADODB.Recordset
----------------------------------------------------------------------------------------Private Sub Form_Load()Dim sql As String
Dim connstring As String
sql = "select * from News "
connstring = "Driver={SQL server};server=(LOCAL);Uid=sa;pwd=198071;database=web_db;"
rs1 = SqlExecute(connstring, sql)End Sub
--------------------------------------------------------------------------------------
Public Function SqlExecute(ConnectionString As String, SqlString As String) As ADODB.RecordsetSet conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Open ConnectionString
rs.Open SqlString, conn
SqlExecute = rsEnd Function
--------------------------------------------------------------------------------总是出错,不知道是什么原因,高手帮帮我啊,谢谢了

Answer 1

Private Sub Form_Load()Dim sql As String
Dim connstring As String
sql = "select * from News "
connstring = "Driver={SQL server};server=(LOCAL);Uid=sa;pwd=198071;database=web_db;"
rs1 = SqlExecute(connstring, sql) '-------->改为Set rs1 = SqlExecute(connstring, sql)End Sub
'--------------------------------------------------------------------------------------
Public Function SqlExecute(ConnectionString As String, SqlString As String) As ADODB.RecordsetSet conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Open ConnectionString
rs.Open SqlString, conn
SqlExecute = rs'-------->改为：Set SqlExecute = rsEnd Function