| 種別 | データベース操作 |
|---|---|
| 説明 | SQLで操作するレコードのオープン |
| 構文 | DbRecordOpen(sql[, CursorType][, LockType][, Options][, cno][, rno]) |
| 引数 | sql ：SQLステートメント CursorType：Recordsetカーソルの種類。0:前方スクロール、 1：キーセットカーソル、2：動的カーソル、3：静的カーソル。初期値は0 LockType ：ロックの種類。1：読み取り専用。2：レコード単位の排他的ロック 3：レコード単位の共有的ロック、4：共有バッチ更新。初期値は1 Options ：オプション。初期値は0 cno ：データベースのコネクト番号。省略時は0 rno ：レコードセット番号。省略時は0 CursorType・LockType・Optionsの詳細は、こちら を参照ください。 |
| 戻り値 | 正常なら0、異常なら0以外 |
| 使用例 | 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,i 'レコードセットのオプション sSQL = "SELECT * FROM 健診テーブル" CursorType=0 LockType=1 Options=0 'レコードセットのオープン ret = DbRecordOpen(sSQL, CursorType, LockType, Options) if ret < 0 then MsgBox("レコードのオープン エラー = " & ret) exit sub endif i = 1 Do 検査日[i] = DbRecordData("検査日") 患者ID[i] = DbRecordData("患者ID") 氏名[i] = DbRecordData("氏名") i = i + 1 if i >= 10 then exit do ret = DbRecordMove() '次のレコードを取得 Loop While ret = 0 DbRecordClose() 'レコードセットのクローズ DbClose() 'データベースのクローズ |
| 実例 | |
| 備考 | 関連する関数（DbClose、DbRecordOpen、DbRecordClose、 DbRecordData、DbRecordSet、DbRecordMove、DbRecordMoveNo、 DbRecordAddNew、DbRecordDelete、DbRecordUpdate） ver8以降 |