UpdateDB

更新已打开数据库内检索的表格中的数据。

格式
UpdateDB #数据库编号, 项目, 值

参数

数据库编号

指定利用OpenDB指定的数据库编号(501～508的整数值)。

项目

指定要更新的表格的项目名。

值

指定要更新的值。

说明
以指定项目值更新已打开数据库的Select的表格中的数据。

在更新数据之前，必须执行SelectDB并选择要更新的记录。

注意

---

• 需要连接已安装RC+的PC。

---

参阅
OpenDB, CloseDB, SelectDB函数, DeleteDB

UpdateDB使用示例
SQL数据库的使用示例

如下所示为在SQL 服务器2000的样本数据库Northwind的表格Employees中登记数据，并更新已登记数据的项目的简单示例。

  Integer count, i, eid
  String Lastname$, Firstname$, Title$

  OpenDB #501, SQL, "(LOCAL)", "Northwind"
  count = SelectDB(#501, "Employees", "TitleOfCourtesy = 'Mr.'")
  Print #501, "Epson", "Taro", "Engineer", "Mr."
  count = SelectDB(#501, "Employees", "LastName = 'Epson' and 	FirstName = 'Taro'")
  Input #501, eid, Lastname$, Firstname$, Title$
  Print eid, ",", Lastname$, ",", Firstname$, ",", Title$
  UpdateDB #501, "Title", "Chief Engineer"
  count = SelectDB(#501, "Employees", "LastName = 'Epson' and 	FirstName = 'Taro'")
  Input #501, eid, Lastname$, Firstname$, Title$
  Print eid, ",", Lastname$, ",", Firstname$, ",", Title$
  CloseDB #501

Excel工作簿的使用示例

下面给出一个简单示例，在RC+8.0附带的示例项目“DrawEpsonLogo”中的Excel工作簿EPSON_LOGO.xls的LOGO表单中注册数据，并更新已注册数据的项目。
示例中使用的Excel工作簿，请参见以下内容。
示例文件

Integer count, p, x, y
String desc$

OpenDB #501, Excel, "C:\EpsonRC80\projects\Samples\Database\DrawEpsonLogo\EPSON_LOGO.xls"
count = SelectDB(#501, "[LOGO$]")
Print #501, "999", "222", "222", ""
count = SelectDB(#501, "[LOGO$]", "Point = 999")
UpdateDB #501, "Description", "EPSON"
count = SelectDB(#501, "[LOGO$]", "Point = 999")
Input #501, p, x, y, desc$
Print "Point", p, ", X:", x, ", Y:", y, ", Descripption:", desc$

'输出结果
`Point 999, X: 222, Y: 222, Descripption:EPSON