无效的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

ADAM

加個括號試試:
DoCmd.RunSQL "INSERT INTO 员工 ( 姓名 ) valueS ('" & BB & "')"

dgx1995

谢了。
那我在请问，如何判断rstTemp，一共有几个字段呀，因为我不想每个字段都用
“BB = rstTemp.Fields(0)“这个语句来实现。

ADAM

是不是這個..呵呵...
rstTemp.Fields.count

dgx1995

谢谢,万分感谢！

dgx1995

又有问题了。
请问 DoCmd.RunSQL "INSERT INTO 员工 ( 姓名 ) valueS '" & BB & "'"
这句中的姓名，如何能够变为自动的
即如何判断本地表的字段名称

ADAM

試試:
姓名改成:
Currentdb.tabledefs("姓名").fields(i).name
當然要用&連接喔...

dgx1995

sorry,我就是不会怎么用連接

dgx1995

对ACCESS,我是看得懂，不会写。

ADAM

DoCmd.RunSQL "INSERT INTO 员工 ( " &Currentdb.tabledefs("姓名").fields(i).name
& ") valueS '" & BB & "'"