DbRecordUpdate

種別 データベース操作
説明 SQLで操作するレコードの変更(更新)

構文 DbRecordUpdate([rno])
引数 rno:レコードセット番号。省略時は0
戻り値 正常なら0、異常なら0以外
使用例 Dim i,s
i = ActionTabelNo()'クリックされた行を取得
s = i & "行を変更しますか?"

if MsgBox(s, 4) = 7 Then exit sub

Dim sFile,sDir,sName,sCn,ret

'SQLサーバーに接続するための文字列
sCn = "Provider=SQLOLEDB;Data Source=(local)\SQLEXPRESS;Initial Catalog=PckDB;Trusted_Connection=Yes;"

ret = DbOpen(sCn) 'データベースのオープン
if ret < 0 then
  MsgBox("データベースのオープン エラー = " & ret)
  exit sub
endif

Dim sSQL,CursorType,LockType,Options

sSQL = "SELECT * FROM 健診テーブル"
CursorType=0
LockType=2'編集する場合は「2」
Options=0

'レコードセットのオープン
ret = DbRecordOpen(sSQL, CursorType, LockType, Options)

if ret < 0 then
  MsgBox("レコードのオープン エラー = " & ret)
  exit sub
endif

DbRecordMoveNo(i)'指定行へのレコード移動

DbRecordSet("検査日", 検査日[i])
DbRecordSet("患者ID", 患者ID[i])
DbRecordSet("氏名", 氏名[i])

DbRecordUpdate()'レコードの変更

DbRecordClose()'レコードセットのクローズ
DbClose()'データベースのクローズ
実例  
備考 関連する関数(DbClose、DbRecordOpen、DbRecordClose、
DbRecordData、DbRecordSet、DbRecordMove、DbRecordMoveNo、
DbRecordAddNew、DbRecordDelete、DbRecordUpdate)


ver8以降