无效的INSTER INTO语句

dgx1995

Private Sub 下载基础资料_Click()

   
    Dim wrkODBC As Workspace
    Dim a As DAO.Connection
    Set wrkODBC = CreateWorkspace("NewODBCWorkspace", _
        "admin", "", dbUseODBC)
     
    Set a = wrkODBC.OpenConnection("lx", , _
True, "ODBC;DATABASE=fuzhuang;UID=saWD=;")
        
    Dim rstTemp As DAO.Recordset
    Set rstTemp = a.OpenRecordset("SELECT * FROM 员工", dbOpenDynaset)
        
        
   Do Until rstTemp.EOF = True
   
   BB = rstTemp.Fields(0)
   DoCmd.RunSQL "INSERT INTO 员工 ( 姓名 ) VALUES '" & BB & "'"
   rstTemp.MoveNext
   
   Loop
    a.Close
    wrkODBC.Close

'为什么总是提示我INSERT INTO 语法错误。第一个员工为SQL SERVER上的表，第二
'个为本地表。
End Sub

dgx1995

我要是不用循环，怎么能把RSTTEMP中的数据全部插入到RST中呢？

ADAM

你有沒加一句
RST.UPDATE

...
rst.addnew
FOR 語句
rst.fields(i)=rsttemp.fields(i)
RST.UPDATE
NEXT
Rsttemp.movenext
....

dgx1995

改成:
DIM dbs as database
dim rst as recordset
set dbs=currentdb
set rst=dbs.openrecordset("員工")
...
rst.addnew
rst.fields(i)=rsttemp.fields(i)
...

后，为什么执行结果为空，就是本地员工表没有记录。
请在给予帮助。
谢谢

ADAM

就是不要用循環來實現,
用INSERT INTO 語句來完成...

dgx1995

thank you
我的问题比较多，
應該用SQL語句一次性填入 ？
不太明白
万分感谢！

ADAM

不好意思,我沒用過SQL,ADP
所以,接不下去了....
但是,你如果不是一條一條判斷的讀入數據
應該用SQL語句一次性填入
是最好的...
上面那句呢,要改的不是網上路徑,而是后面的[...]
試試改成
Provider=sqloledb
這個只能你自已試試了,
祝你成功...
呵呵...

dgx1995

都怪我太笨，不明白什么意思。
INSERT INTO 員工
SELECT 員工.*
FROM 員工 in '網上路徑'[Provider=Microsoft.Jet.OLEDB.4.0] ;
这句，中的网上路径，能不能通过ODBC来实现。
谢谢！

ADAM

哦,難怪

dgx1995

远程的数据库是SQL SERVER 2000