vb中如何向ACCESS数据库中添加记录（ADO写代码，在线等待）

Question

1。 在With RSfitjc 后加
    .Addnew '插入新记录2。提取时若有记录，记录集默认在第一条记录
你的语句执行等于更新了第一条记录

Answer 1

1>对于“实时错误”可能是因为“strSqlfitjc = "select * from 配件进出表"”的错误，建议屏蔽select功能。
2>在With RSfitjc 后加 .Addnew '插入新记录 ，可解决“数据表中记录不会增加”的错误。

Answer 2

你的if endif有逻辑错误，放在这里赶什么的？

Answer 3

在 .Fields("配件编号") = frmfitjc.Text1(0).Text
之前添加:.AddNew