Insert Into 报错

fanjohnson

最近写一个程序，其中有一段语句是用来连接Orcal数据库并取数据到Access表中的，连接数据都正常，但在Insert into 往表写数据时总是提示让我手动输入值，下面是语句
While Not rs.EOF
  DoCmd.RunSQL "INSERT INTO Table_A([Part_Number],[Batch],[Date],[Status]) VALUES (rs![part_no],rs![lot_batch_no],rs![Manufactured_Date],'NO')"
  rs.MoveNext
Wend
rs.Close
Set rs = Nothing

我对insert into 语句不太懂，所以在这里运行时总是弹出个框让我输入rs![part_no],rs![lot_batch_no],rs![Manufactured_Date]的值，我原意是这三个值是从Orcal取出来的数据，所以，请高手帮下忙解一下我的难题，我是想从ORCAL取出数据（有很多)，然后一次性写到表Table_B中，而不是每次取一条，然后会提示你确定是否要写入一条新数据到表里，确定后再取下一条，小弟在此感激不尽，谢谢！

fanjohnson

或者是如果我要从Orcal数据库中取出数据，一般是怎么做用什么语句呢？是用select into 吗？但是据我所知这个是会创建新表的，总的我是想要这样的，在access数据库里有表Table_A([PTN],[LTN],[Date],[Status]),其中LTN是关键字段,Status默认值是NO，然后实现更新功能--将从数据库里取出3个字段值，分别是PartN,LBachN,MDate从某个表A中,现在是要将从数据库里取出来的数据写入表Table_A中，条件是如果LBachN值在Table_A中对应的LTN已存在，那么不写入，否则写入，这个语句要怎么写呢？数据库连接已经OK了，感谢

styhs

假如记录集各字段的的数据类型如下：

part_no：文本
lot_batch_no：文本
Manufactured_Date：日期

则代码修改为：

Dim part_no As String, lot_batch_no AS String, Manufactured_Date AS Date
While Not rs.EOF
  part_no = rs![part_no]: lot_batch_no = rs![lot_batch_no]: Manufactured_Date = rs![Manufactured_Date]
  CurrentDB.Execute "INSERT INTO Table_A([Part_Number],[Batch],[Date],[Status]) " _
        & "VALUES ('" & part_no & "', '" & lot_batch_no & "', '" & Manufactured_Date & "','NO')"
  rs.MoveNext
Wend
rs.Close
Set rs = Nothing

fanjohnson

非常感谢styhs,一切运行正常并且就是我想要的，谢谢！