Sql VBa插入快捷方式_Sql_Ms Access_Forms_Vba

Sql VBa插入快捷方式

sql ms-access forms vba

Sql VBa插入快捷方式,sql,ms-access,forms,vba,Sql,Ms Access,Forms,Vba,我计划将vba access窗体文本框中的值插入同一access文件中的表中在这里，我将在submit button click事件上编写一个插入查询是否有任何快捷方式将值添加到表中例如设置textbox的数据源，并使用单击按钮在表单中插入所有textbox的值没有插入查询哪一个更好？不太清楚你在问什么要在VBA代码中将行添加到表中，可以使用如下DAO记录集： Dim rs As DAO.Recordset Set rs= CurrentDb.OpenRecordset("Table

我计划将vba access窗体文本框中的值插入同一access文件中的表中

在这里，我将在submit button click事件上编写一个插入查询

是否有任何快捷方式将值添加到表中

例如设置textbox的数据源，并使用单击按钮在表单中插入所有textbox的值

没有插入查询

哪一个更好？

不太清楚你在问什么

要在VBA代码中将行添加到表中，可以使用如下DAO记录集：

Dim rs As DAO.Recordset
Set rs= CurrentDb.OpenRecordset("TableName", dbOpenDynaset)

rs.AddNew
rs![ColumnName1] ="Some Value"
rs![ColumnName2] ="Some Value"
rs.Update
rs.Close

CurrentDb.Execute strSQLText, dbFailOnError

或者，要在VBA中运行追加查询，请将SQL语句构建为字符串，并执行如下语句：

Dim rs As DAO.Recordset
Set rs= CurrentDb.OpenRecordset("TableName", dbOpenDynaset)

rs.AddNew
rs![ColumnName1] ="Some Value"
rs![ColumnName2] ="Some Value"
rs.Update
rs.Close

CurrentDb.Execute strSQLText, dbFailOnError

FWIW我使用currentdb，而不是调暗和设置db变量。最后一个代码示例无论如何都不会工作，因为db变量尚未实例化。我自己不太使用CurrentDB，因为我有一个dbLocal函数，它可以自动缓存并返回一个用CurrentDB实例化的变量。OK修改了使用CurrentDB的答案