请高手帮忙看下，谢谢！

bjyutong　发表于：2009-11-24 15:29:04 　

Private Sub Command29_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
Set conn = New ADODB.Connection
conn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=zhs;UID=sa;PWD=;DATABASE=pubs"
Set rs = New ADODB.Recordset
sql = "insert into 报表 select * from jobs"
rs.Open sql, conn, 3, 2

End Sub

＂报表＂为ACCESS表，＂jobs＂为数据库，请问，这样的功能能实现嘛？

Top

竹笛发表于：2009-11-24 23:35:25

从哪里将数据写入到哪个数据库中的Access的表“报表”？

Top

钱玉炜发表于：2009-11-25 08:58:15

sql = "insert into 报表 select * from jobs"
rs.Open sql, conn, 3, 2

这里的rs.open后面能打开的一般是表，或者选择查询等能筛选出数据的查询，而不能是你这中追加查询

Top

朱亦文发表于：2010-03-16 15:42:26

Private Sub Command29_Click()
Dim sql As String
Set conn = New ADODB.Connection
conn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=zhs;UID=sa;PWD=;DATABASE=pubs"
conn.execute "insert into 报表 select * from jobs"
conn.close

set conn=nothing

End Sub

Top

龚明华发表于：2010-05-31 10:08:59

楼上的肯定能行吧。

Top

龚明华发表于：2010-05-31 10:09:55

或者，直接用DOCMD来执行也应当能行。

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

请高手帮忙看下，谢谢！