Question

我正在尝试将数据插入MS Access数据库的表中。

这样做时MS Access会通知我我要追加1行。

当我返回桌面检查数据时，我仍然有一张空白表。

如果我点击表格上的过滤器，我可以看到我的数据作为选项，但它们不会显示在实际的表格中。

INSERT INTO PATIENTS (PatID, FirstName, LastName, Age, Phone, InsuranceCompany)
VALUES (00000090, 'Luke', 'Howell', 42, 7709999785, 'Blue Cross Blue Shield' );

Answer 1

当INSERT运行时没有错误，但也没有实际向表中添加行，这可能是密钥违规的结果。但是，如果您使用DoCmd.RunSQL执行语句，Access将不会通知您。在其他情况下，如果您关闭SetWarnings，则可以取消通知。

使用INSERT方法及其 dbFailOnError 选项运行DAO.Database.Execute。还要确保SetWarnings已开启...

Dim strInsert As String
strInsert = "INSERT INTO PATIENTS (PatID, FirstName, LastName, Age, Phone, InsuranceCompany) " & _
    "VALUES (00000090, 'Luke', 'Howell', 42, 7709999785, 'Blue Cross Blue Shield' );"
Debug.Print strInsert '<- view this in Immediate window; Ctrl+g will take you there
DoCmd.SetWarnings True
CurrentDb.Execute strInsert, dbFailOnError

Answer 2

所以我想出来了。

我不在“数据表视图”中

使用SQL将数据插入MS Access数据库表

2 个答案: