AdODB.RecordSet

[yangsaibing]

听说不建立数据库连接，也能使用adodb.recordset，有哪位大虾知道吗？

[wyo]

是不经过ADO控件吧？
Dim MYSS As New ADODB.Recordset '定义ADO
g_dbname="d:\cmis\sale.mdb"
strconnect = "User ID=Admin;Password=;Data Source=" & g_dbname & _
";Provider=Microsoft.Jet.OLEDB.3.51"


sql$ = "select * from 临时售货"
myss.Open sql$, strconnect, adOpenStatic, adLockOptimistic, adCmdText

接着就可以对MYSS进行操作了
如：myss.MoveNext

[yangsaibing]

strconnect还是数据库连接字符串

[liu_feng_fly]

这种不用定义数据源呀，很灵活了，连strconnect都不用的是不可能的

[yangsaibing]

Data Source=" & g_dbname & ,这不是数据源吗?

[好人不好153]

AdODB.RecordSet的确可以建立一个虚记录集。
我常用来传大量数据，比数组好用多了