请教一个函数

[wenbin304]

Public Function exesql(ByVal sql As String) As ADODB.Recordset
sql = Trim$(sql)
Set conn = New ADODB.Connection
Set rst = New ADODB.Recordset
conn.ConnectionString = "DSN=Stud"
conn.Open
Set rst.ActiveConnection = conn
rst.LockType = adLockOptimistic
rst.CursorType = adOpenKeyset
rst.Open sql
Set exesql = rst
Set rst = Nothing
Set conn = Nothing
End Function
运行时rst.Open sql出错,没有为命令对象设置命令...??
初学vb,请帮小弟注释一下每行代码,先谢了....

[tztz520]

rst.Open sql,conn

[flyingZFX]

if len(sql )=0 then exit function

[flyingZFX]

最好加上错误处理

On error goto err1

.......

exit function

err1:
debug.print err.description,vbokonly,"system msg"
err.clear

[tztz520]

Public Function exesql(ByVal sql As String) As ADODB.Recordset
sql = Trim$(sql)'去掉sql字符串两边的空格
Set conn = New ADODB.Connection'实例化conn
Set rst = New ADODB.Recordset'实例化rst
conn.ConnectionString = "DSN=Stud"'设置连接字符串
conn.Open'打开连接
Set rst.ActiveConnection = conn
rst.LockType = adLockOptimistic
rst.CursorType = adOpenKeyset
rst.Open sql,conn
Set exesql = rst
Set rst = Nothing
Set conn = Nothing
End Function

[flyingZFX]

if len(trim$(sql) )=0 then exit function

[flyingZFX]

其实根本不用这样麻烦的


直接可以这样的，，


Dim Rs as Adodb.Recordset


set Rs=Conn.Execute(SQL,,adcmdtext)

这样就可以返回一个结果集了。

[flyingZFX]

不过，这样返回的结果集， 是只读的，，且 游标 只向前。

[Mars.CN]

听听他们的意见