如何用ADO的Recordset对象生成本地ACCESS表？

t小宝

没看到9楼的....应该是红尘的方法对

xingzhihao

感谢红尘、小宝二位版主热心解答！！

以上方法绑定窗体成功。

前几天看到一篇文章提到ACCESS只能用只向前和静态2种游标，但是一带而过，没有深入理解
现在想起，才有深刻体会。
关于这2种游标，太遗憾的是 【只读 】的，不能编辑。

如何实现编辑，或者间接实现编辑数据呢？

xingzhihao

我发现不管使用客户端游标，还是服务器游标
运行生成表查询，生成的表都在服务器上。
如何生成本地表呢？

xingzhihao

Dim Conn As New ADODB.Connection
Dim Rst As New ADODB.Recordset
Dim NetRst As New ADODB.Recordset
Dim NetConn As New ADODB.Connection
Dim Server As String
Dim sql As String
Server = "\\Dateserver\Access<\数据库\数据分析主体.mdb"
Set Conn = CurrentProject.Connection
NetConn = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Trim(Server) + ";"
sql = "select * from 排单表"
NetRst.Open "select * from 排单表", NetConn, adOpenDynamic, adLockOptimistic

Rst.Open sql, Conn, adOpenDynamic, adLockOptimistic
'把记录写到本地表
Do While Not NetRst.EOF
Rst.AddNew
Rst.Fields("A") = NetRst.Fields("A")
Rst.Update
NetRst.MoveNext
Loop
Set NetRst = Nothing
Set Rst = Nothing

t小宝

我发现不管使用客户端游标，还是服务器游标
运行生成表查询，生成的表都在服务器上。
如何生成本地表呢？ ...
xingzhihao 发表于 2010-9-19 15:53

以下为在mdb中从SQL数据库表(js_qyrk)生成本地同名表的2种语句：
第一种，建立了DSN数据源(js1)
DoCmd.RunSQL "Select * INTO js_qyrk From [ODBC;DSN=js1;Trusted_Connection=Yes].[dbo.js_qyrk]"
第二种，不建立DSN数据源，直接引用数据库名(jsdat)
DoCmd.RunSQL "Select * INTO js_qyrk From [ODBC;driver={sqlserver};server=(Local);uid=;pwd=;Database=jsdat].[dbo.js_qyrk]"

xingzhihao

向小宝老师献花，呵呵。再次感谢！！！