| 種別 | データベース操作 |
|---|---|
| 説明 | SQLで操作するレコードの新規追加 |
| 構文 | DbRecordAddNew([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 DbRecordAddNew()'レコードの新規追加 DbRecordSet("検査日", 検査日[i]) DbRecordSet("患者ID", 患者ID[i]) DbRecordSet("氏名", 氏名[i]) DbRecordUpdate() 'レコードの変更 DbRecordClose()'レコードセットのクローズ DbClose()'データベースのクローズ |
| 実例 | |
| 備考 | 関連する関数（DbClose、DbRecordOpen、DbRecordClose、 DbRecordData、DbRecordSet、DbRecordMove、DbRecordMoveNo、 DbRecordAddNew、DbRecordDelete、DbRecordUpdate） ver8以降 |