| 種別 | データベース操作 |
|---|---|
| 説明 | SQLで操作するレコードの削除 |
| 構文 | DbRecordDelete([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) '指定行へのレコード移動 DbRecordDelete()'移動レコードの削除 DbRecordClose()'レコードセットのクローズ DbClose()'データベースのクローズ |
| 実例 | |
| 備考 | 関連する関数（DbClose、DbRecordOpen、DbRecordClose、 DbRecordData、DbRecordSet、DbRecordMove、DbRecordMoveNo、 DbRecordAddNew、DbRecordDelete、DbRecordUpdate） ver8以降 |