给你一个VB数据层操作的例子: Public Function QueryOrderItem(ByVal strsql As String) As ADODB.Recordset On Error GoTo 0 Dim objContext As ObjectContext Set objContext = GetObjectContext() Set QueryOrderItem = RunSQLReturnRS(strsql, "") If Err.Number <> 0 Then objContext.SetAbort Set objContext = Nothing End If objContext.SetComplete Set objContext = Nothing End Function
当然,现在时髦的做法是用xml
可以说具体点吗
1。打开记录集
2。设置游标类型
3。AddRef
4。返回记录集的diptch接口
Public Function QueryOrderItem(ByVal strsql As String) As ADODB.Recordset
On Error GoTo 0
Dim objContext As ObjectContext
Set objContext = GetObjectContext()
Set QueryOrderItem = RunSQLReturnRS(strsql, "")
If Err.Number <> 0 Then
objContext.SetAbort
Set objContext = Nothing
End If
objContext.SetComplete
Set objContext = Nothing
End Function