種別 | データベース操作 |
---|---|
説明 | SQLで操作するレコードのクローズ |
構文 | DbRecordClose() |
引数 | |
戻り値 | 正常なら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以降 |