无效的INSTER INTO语句

dgx1995

在次感谢！！
又有一问题。
Dim wrkODBC As Workspace
    Dim yc As DAO.Connection
    Set wrkODBC = CreateWorkspace("NewODBCWorkspace", _
        "admin", "", dbUseODBC)
    Set yc = wrkODBC.OpenConnection("lx", , _
True, "ODBC;DATABASE=fuzhuang;UID=saWD=;")
    Dim rstTemp As DAO.Recordset
    '------下载员工资料
    Set rstTemp = yc.OpenRecordset("SELECT * FROM 员工", dbOpenDynaset)
    DoCmd.SetWarnings False
    DoCmd.RunSQL "delete * from 员工"
    i = 0
    c = rstTemp.Fields.Count
    Do While i < c
        
    Do Until rstTemp.EOF = True
   
    BB = rstTemp.Fields(i)
        DoCmd.RunSQL "INSERT INTO 员工 ( " & CurrentDb.TableDefs("员工").Fields(i).Name & ") valueS ('" & BB & "')"
   rstTemp.MoveNext
    Loop
     i = i + 1
     rstTemp.MoveFirst
    Loop
    yc.Close
    wrkODBC.Close
    DoCmd.SetWarnings True


执行后结果为
1
    张小燕
              女
                  库房主管

，请问这个怎么办？

ADAM

請檢查你的循環

試試這樣吧..

Do Until rstTemp.EOF

      for i=0 to c-1
        DoCmd.RunSQL "INSERT INTO 员工 ( " & CurrentDb.TableDefs("员工").Fields       (i).Name & ") valueS ('" & rstTemp.Fields(i) & "')"

   next
   rstTemp.Movenext
    Loop

dgx1995

我試了，结果还是这样，我想是因为在插入的时候，字段1占据了第一条记录，字段2在插入的时候，便从记录2开始插入了。才会出现这样的结果。
应该是sql语句的想法不对，现在的语句还可在加WHERE否

1
    张小燕
              女
                  库房主管

ADAM

哦,糊涂了:

CurrentDb.TableDefs("员工").Fields       (i).Name & ") valueS ('" & rstTemp.Fields(i) & "')"

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

另外
你的目地是把網上的員工資料讀到本地來,可以這樣的...
INSERT INTO 員工
SELECT 員工.*
FROM 員工 in '網上路徑'[Provider=Microsoft.Jet.OLEDB.4.0] ;

dgx1995

'網上路徑'？？

ADAM

就是你要讀取的資料路徑:
如
\\SERVER\123\TEST.MDB

dgx1995

远程的数据库是SQL SERVER 2000

ADAM

哦,難怪

dgx1995

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

ADAM

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