Question

我正在使用ms access数据库和包含字段的表格库：

品牌名称

型号名称

股票

现在我想更新特定产品的库存价值。为此，我使用两个输入框。

我使用下面的代码。

Private Sub cmddelstock_Click()
Dim a As String
Dim b As Integer
a = InputBox("ENTER THE MODEL NAME HERE")
b = Val(InputBox("ENTER NEW STOCK VALUE OF THE MODEL"))
Adodc1.RecordSource = "UPDATE stock SET Stock='b' where Model_Name='a' "
Adodc1.Refresh

错误iam在from子句中有语法错误。我没有使用编码连接数据库，而是通过右键单击连接它然后转到属性然后使用连接字符串= microsoft jet oledb 4.0

然后在记录源选项卡命令type = 1-adcmd type

现在我应该在命令文本中使用什么？

iam使用UPDATE stock

plz help

我是初学者

谢谢

Answer 1

.RecordSource属性就是：从中填充ADODBGrid的源。因此，您不能使用此属性来发出Update SQL命令（顺便说一下，它有一些语法错误）。

您需要将SQL字符串放在处理基础数据的类的某种.Execute Sub中。

我不是ADO的家庭（我只使用DAO），但在DAO中看起来像

dbStockDatabase.Execute "UPDATE Stock SET Stock.Stock=" & b & " WHERE Stock.Model_Name='" & a & "'"

Answer 2

用这种语法

：

Adodc1.RecordSource = "UPDATE stock SET Stock='b' where Model_Name='a' "

a和b不是变量而是它的角色，改为：

"UPDATE stock SET Stock='" & b & "' where Model_Name='" & a & "'"

如何更新单个字段值？

2 个答案: