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