|目次|前ページ|次ページ|
───────────────────────────────────
4.プログラミングの説明
───────────────────────────────────
---------------------------------------------------------------
◆テーブル読み込みのデータのサンプル
---------------------------------------------------------------
※※ ZDBxxxx.RTN がサンプルプログラムです
---------------------------------------------------------------
● データベース環境を初期化
※※必ず1回すべての関数の前に必要です。
<esc>%0;0 sp D
● オープンデータベース
※※標準データベースをオープンします。
<esc>%59;8 sp FSIMDB1<CR> <- データベースエイリアス
<esc>%1;15;8;1;0;0;0 sp D
---------------------------------------------------------------
15(DBid) --> データベースを識別する番号(1<->1023)
使われていない番号を指定します
0(edit) --> 環境設定ファイルのデータベースエイリアス文字列の編集領域番号
0:標準データベース(Paradoxなど)
1(ret) --> リスポンスを戻すかのフラグ(0:無 1:リスポンスを戻す)
0(DBtype) --> データベースの種類(現在 0のみ可能)
0:標準データベース(Paradoxなど)
0(Openmd) --> オープンモード(0:読み書き,1;読み取り専用)
0(Sharmd) --> 共有モード(0:共有オープン, 1:排他オープン)
---------------------------------------------------------------
● オープンテーブル
※※特定のテーブルをオープンしカーソルハンドルをオープンしたテーブルに結び付けます。
<esc>%59;32 sp F SIMTBL1<CR>
<esc>%101;14;32;1;15;0;0;0;0;0;0 sp D
---------------------------------------------------------------
14(CurID) --> オープンしたテーブルのカーソルハンドルを識別する番号(1<->1023)
オープンされていない番号を指定します
32(edit) --> オープンするテーブル名文字列の編集領域番号
1(ret) --> リスポンスを戻すかのフラグ(0:無 1:リスポンスを戻す)
15(DBid) --> データベースを識別する番号(1<->1023)
オープンされている番号を指定します
0(Openmd) --> オープンモード(0:読み書き,1;読み取り専用)
0(Sharmd) --> 共有モード(0:共有オープン, 1:排他オープン)
0(Driver) --> ドライバの種類(0:PARADOX 1:DBASE 2:ASCII)
現在 0:PARADOX のみ動作
0;0;0 --> 将来の追加の為のリザーブド
---------------------------------------------------------------
● 次のレコードを読み取ります
※※レコードは内部バッファに保存されます。
<esc>%112;CurID;;1;0;0;0 sp D
---------------------------------------------------------------
14(CurID) --> オープンしたテーブルのカーソルハンドルを識別する番号(1<->1023)
オープンされている番号を指定します
1(ret) --> リスポンスを戻すかのフラグ(0:無 1:リスポンスを戻す)
0(lock) --> ロック要求の種類
0: ロック無し
1: 読み取りロック
2: 書き込みロック
---------------------------------------------------------------
● 現在のレコードバッファから指定したフィールドのデータを取得
※※ホストにフィールドのデータが転送されます。
<esc>%351;14;0;1;1;;0;0 sp D
---------------------------------------------------------------
14(CurID) --> オープンしたテーブルのカーソルハンドルを識別する番号(1<->1023)
オープンされている番号を指定します
0(edit) --> (1)フィールド名を示す文字列の置かれている編集領域番号
1(ret) --> リスポンスを戻すかのフラグ(0:無 1:リスポンスを戻す)
1(field) --> (2)フィールド番号
edit=0 の時 fieldで指定したフィールド番号が使用されます
※※フィールドが空白がどうかが取得できます
---------------------------------------------------------------
● クローズテーブル ※※カーソルハンドルをクローズします。
<esc>%102;14;0;1;0 sp D
---------------------------------------------------------------
(14)CurID --> オープンしたテーブルのカーソルハンドルを識別する番号(1<->1023)
オープンされている番号を指定します
1(ret) --> リスポンスを戻すかのフラグ(0:無 1:リスポンスを戻す)
---------------------------------------------------------------
● クローズデータベース
<esc>%2;15;0;1 sp D
---------------------------------------------------------------
15(DBid) --> データベースを識別する番号(1<->1023)
データベースクローズされていない番号を指定します
1(ret) --> リスポンスを戻すかのフラグ(0:無 1:リスポンスを戻す)
---------------------------------------------------------------
● データベース環境を解放
※※これ以降データベース関数は一切無効です。
<esc>%999;0 sp D
※※終了時この動作を行います。
───────────────────────────────────
4-1
───────────────────────────────────
---------------------------------------------------------------
◆テーブルにレコードを追加のサンプル
---------------------------------------------------------------
● オープンデータベース
<esc>%59;8 sp FSIMDB1<CR> <- データベースエイリアス
<esc>%1;15;8;1;0;0;0 sp D
● オープンテーブル
<esc>%59;32 sp F SIMTBL1<CR>
<esc>%101;14;32;1;15;0;0;0;0;0;0 sp D
● フィールドのデータ型に従ってレコードバッファを空白レコードで初期化します
<esc>%310;14;;1;0;0;0 sp D
---------------------------------------------------------------
● 指定したフィールドに現在のレコードバッファにデータを格納
※※予め編集領域番号にフィールドに格納するデータ文字列をダウンロード
しておきます。
<esc>%59;33 sp Fnewkey1<CR>
<esc>%59;34 sp FnewDATA1<CR>
<esc>%352;14;33;1;1;0;0 sp D <-- フィールド(1)
<esc>%352;14;34;1;2;0;0 sp D <-- フィールド(2)
---------------------------------------------------------------
● テーブルの最後にレコードを追加
<esc>%311;14;;1;0;0;0 sp D
---------------------------------------------------------------
● クローズテーブル ※※カーソルハンドルをクローズします。
<esc>%102;14;0;1;0 sp D
● クローズデータベース
<esc>%2;15;0;1 sp D
---------------------------------------------------------------
───────────────────────────────────
4-2
---------------------------------------------------------------
◆テーブル更新のサンプル
---------------------------------------------------------------
● データベース環境を初期化
<esc>%0;0 sp D
● オープンデータベース ※※標準データベースをオープンします。
<esc>%59;8 sp FSIMDB1<CR> <- データベースエイリアス
<esc>%1;15;8;1;0;0;0 sp D
● オープンテーブル
<esc>%59;32 sp F SIMTBL1<CR>
<esc>%101;14;32;1;15;0;0;0;0;0;0 sp D
● カーソルを先頭に位置づけ
<esc>%111;14;;1;0;0;0 sp D
---------------------------------------------------------------
● 次のレコードを読み取ります
※※レコードは内部バッファに保存されます。
<esc>%112;14;;1;0;0;0 sp D
● レコードバッファを更新します
<esc>%59;29 sp Dupdate-string<CR>
<esc>%352;14;29;1;2;0;0 sp D
● レコード更新をします
<esc>%313;14;;1;0;0;0 sp D
---------------------------------------------------------------
● クローズテーブル ※※カーソルハンドルをクローズします。
<esc>%102;14;0;1;0 sp D
● クローズデータベース
<esc>%2;15;0;1 sp D
---------------------------------------------------------------
◆レコードシーケンス番号に位置づけて読むサンプル
---------------------------------------------------------------
● レコードシーケンス番号(5)に位置づけ
<esc>%115;14;;1;5;0;0 sp D
● 現在のレコードを読み取ります
※※レコードは内部バッファに保存されます。
<esc>%%152;14;;1;0;0;0 sp D
---------------------------------------------------------------
◆テーブルをコピーするサンプル
※※SQL文でもできます
---------------------------------------------------------------
● データベース環境を初期化
<esc>%0;0 sp D
● オープンデータベース ※※標準データベースをオープンします。
<esc>%59;8 sp FSIMDB1<CR> <- データベースエイリアス
<esc>%1;15;8;1;0;0;0 sp D
---------------------------------------------------------------
● テーブルコピー
<esc>%59;41 sp F\VCOM4\SIMTBL1.DB<CR> <-- コピー元
<esc>%59;42 sp F\VCOM4\SIMTBLx.DB<CR> <-- コピー先
<esc>%211;15;41;1;42;1;1 sp D
---------------------------------------------------------------
● クローズテーブル ※※カーソルハンドルをクローズします。
<esc>%102;14;0;1;0 sp D
● クローズデータベース
<esc>%2;15;0;1 sp D
---------------------------------------------------------------
◆テーブルのレコードを全て空にする(削除)サンプル[1]
※※SQL文でもできます
---------------------------------------------------------------
● データベース環境を初期化
<esc>%0;0 sp D
● オープンデータベース ※※標準データベースをオープンします。
<esc>%59;8 sp FSIMDB1<CR> <- データベースエイリアス
<esc>%1;15;8;1;0;0;0 sp D
---------------------------------------------------------------
● レコードを全て空にする
<esc>%205;15;32;1;0;1;0 sp D
---------------------------------------------------------------
● クローズデータベース
<esc>%2;15;0;1 sp D
---------------------------------------------------------------
◆テーブルのレコードを全て空にする(削除)サンプル[2]
※※SQL文でもできます
---------------------------------------------------------------
● データベース環境を初期化
<esc>%0;0 sp D
● オープンデータベース ※※標準データベースをオープンします。
<esc>%59;8 sp FSIMDB1<CR> <- データベースエイリアス
<esc>%1;15;8;1;0;0;0 sp D
● 排他オープンテーブル
<esc>%59;32 sp F SIMTBL1<CR>
<esc>%101;14;32;1;15;0;1;0 sp D <-- 排他オープン
---------------------------------------------------------------
● レコードを全て空にする
<esc>%205;15;0;1;14;0;0 sp D
---------------------------------------------------------------
● クローズテーブル ※※カーソルハンドルをクローズします。
<esc>%102;14;0;1;0 sp D
● クローズデータベース
<esc>%2;15;0;1 sp D
---------------------------------------------------------------
───────────────────────────────────
4-3
───────────────────────────────────
---------------------------------------------------------------
◆テーブル名変更のサンプル
※※SQL文でもできます
---------------------------------------------------------------
● データベース環境を初期化
<esc>%0;0 sp D
● オープンデータベース ※※標準データベースをオープンします。
<esc>%59;8 sp FSIMDB1<CR> <- データベースエイリアス
<esc>%1;15;8;1;0;0;0 sp D
---------------------------------------------------------------
● テーブル名変更
<esc>%59;32 sp FSIMTBL3<CR> <-- 変更前
<esc>%59;35 sp FSIMTBLX<CR> <-- 変更後
<esc>%212;15;32;1;35;1;0 sp D
---------------------------------------------------------------
● クローズデータベース
<esc>%2;15;0;1 sp D
---------------------------------------------------------------
◆テーブル名変更のサンプル
※※SQL文でもできます
---------------------------------------------------------------
● データベース環境を初期化
<esc>%0;0 sp D
● オープンデータベース ※※標準データベースをオープンします。
<esc>%59;8 sp FSIMDB1<CR> <- データベースエイリアス
<esc>%1;15;8;1;0;0;0 sp D
● 排他オープンテーブル
<esc>%59;32 sp F SIMTBL1<CR>
<esc>%101;14;32;1;15;0;1;0 sp D <-- 排他オープン
---------------------------------------------------------------
● インデックス再構築
<esc>%215;14;;1;0;0;0 sp D
---------------------------------------------------------------
● クローズテーブル ※※カーソルハンドルをクローズします。
<esc>%102;14;0;1;0 sp D
● クローズデータベース
<esc>%2;15;0;1 sp D
---------------------------------------------------------------
◆テーブル削除のサンプル
※※SQL文でもできます
---------------------------------------------------------------
● データベース環境を初期化
<esc>%0;0 sp D
● オープンデータベース ※※標準データベースをオープンします。
<esc>%59;8 sp FSIMDB1<CR> <- データベースエイリアス
<esc>%1;15;8;1;0;0;0 sp D
---------------------------------------------------------------
● テーブル削除
<esc>%59;35 sp FSIMTBL3<CR>
<esc>%204;15;35;1;1;0;0 sp D
---------------------------------------------------------------
● クローズデータベース
<esc>%2;15;0;1 sp D
---------------------------------------------------------------
◆キー文字列取り出しのサンプル(複合キーはカンマで接合されます)
---------------------------------------------------------------
● データベース環境を初期化
<esc>%0;0 sp D
● オープンデータベース ※※標準データベースをオープンします。
<esc>%59;8 sp FSIMDB1<CR> <- データベースエイリアス
<esc>%1;15;8;1;0;0;0 sp D
● オープンテーブル
<esc>%59;32 sp F SIMTBL1<CR>
<esc>%101;14;32;1;15;0;0;0;0;0;0 sp D
---------------------------------------------------------------
● 次のレコードを読み取ります
<esc>%112;14;;1;0;0;0 sp D
● キー文字列取り出し
<esc>%602;14;41;1;0;0 sp D <- アクティブインデックス
---------------------------------------------------------------
● クローズテーブル ※※カーソルハンドルをクローズします。
<esc>%102;14;0;1;0 sp D
● クローズデータベース
<esc>%2;15;0;1 sp D
---------------------------------------------------------------
◆指定キーに一致・大きいキーデータ読みのサンプル
---------------------------------------------------------------
● データベース環境を初期化
<esc>%0;0 sp D
● オープンデータベース ※※標準データベースをオープンします。
<esc>%59;8 sp FSIMDB1<CR> <- データベースエイリアス
<esc>%1;15;8;1;0;0;0 sp D
● オープンテーブル
<esc>%59;32 sp F SIMTBL1<CR>
<esc>%101;14;32;1;15;0;0;0;0;0;0 sp D
---------------------------------------------------------------
● 指定キーに位置づけます
<esc>%59;33 sp Fnewkey2x<CR>
<esc>%151;14;33;1;1;1;0 sp D
● 次のレコードを読み取ります
<esc>%112;14;;1;0;0;0 sp D
● フィールド文字列取り出し
<esc>%351;14;0;1;1;35;0;0 sp D <--フィールド(1)
<esc>%351;14;0;1;2;36;0;0 sp D <--フィールド(2)
※※指定編集領域番号(35,36)にデータ文字列格納されます
リスボンスにも返送されます。
● レコードを削除します
<esc>%314;14;;1;0;0;0 sp D
---------------------------------------------------------------
● クローズテーブル ※※カーソルハンドルをクローズします。
<esc>%102;14;0;1;0 sp D
● クローズデータベース
<esc>%2;15;0;1 sp D
---------------------------------------------------------------
───────────────────────────────────
4-4
───────────────────────────────────
---------------------------------------------------------------
◆テーブル作成のサンプル
※※SQL文でもできます
---------------------------------------------------------------
● データベース環境を初期化
<esc>%0;0 sp D
● オープンデータベース ※※標準データベースをオープンします。
<esc>%59;8 sp FSIMDB1<CR> <- データベースエイリアス
<esc>%1;15;8;1;0;0;0 sp D
---------------------------------------------------------------
● テーブル名作成
<esc>%59;35 sp FSIMcr1<CR> <-- テーブル名
<esc>%59;36 sp F1;keycr1;1;1;67;0/2;datacr1;1;1;251;0<CR>
<esc>%201;15;36;1;35;1;2;1 sp D
---------------------------------------------------------------
● クローズデータベース
<esc>%2;15;0;1 sp D
---------------------------------------------------------------
◆テーブル再構築のサンプル
---------------------------------------------------------------
● データベース環境を初期化
<esc>%0;0 sp D
● オープンデータベース ※※標準データベースをオープンします。
<esc>%1;15;0;1;0;0;0 sp D
---------------------------------------------------------------
● テーブル再構築
<esc>%59;35 sp FSIMcr1<CR> <-- テーブル名
<esc>%59;36 sp F1;keycr1;1;1;67;0;;;2/
2;datacr1;1;1;251;0;;;3/
0;newdata2;1;1;64;0;;;1<CR>
<esc>%401;15;36;1;35;3 sp D
---------------------------------------------------------------
● クローズデータベース
<esc>%2;15;0;1 sp D
---------------------------------------------------------------
◆テーブル作成とインデックス付加のサンプル
※※SQL文でもできます
---------------------------------------------------------------
● データベース環境を初期化
<esc>%0;0 sp D
● オープンデータベース ※※標準データベースをオープンします。
<esc>%59;8 sp FSIMDB1<CR> <- データベースエイリアス
<esc>%1;15;8;1;0;0;0 sp D
---------------------------------------------------------------
● テーブル名作成
<esc>%59;35 sp FGBLTBL3<CR> <-- テーブル名
<esc>%59;36 sp F1;KEY3a;1;0;64;0/
2;KEY3b;1;0;64;0/
3;KEY3c;1;0;64;0/
4;GBL3a;1;0;255;0<CR>
<esc>%201;15;36;1;35;1;4;1 sp D
● インデックス作成
<esc>%59;36 sp FixGBL3/1//1/1/0/1/0/3/1;2;3/<CR>
<esc>%604;15;35;1;0;1;0; sp D <-(複合KEY)削除
<esc>%601;15;36;1;0;1;35; sp D <-(複合KEY)付加
---------------------------------------------------------------
● クローズデータベース
<esc>%2;15;0;1 sp D
---------------------------------------------------------------
───────────────────────────────────
4-5
───────────────────────────────────
---------------------------------------------------------------
◆テーブルデータダウンロードのサンプル
---------------------------------------------------------------
● データベース環境を初期化
<esc>%0;0 sp D
● オープンデータベース ※※標準データベースをオープンします。
<esc>%59;8 sp FSIMDB1<CR> <- データベースエイリアス
<esc>%1;15;8;1;0;0;0 sp D
● オープンテーブル
<esc>%59;32 sp FGBLTBL3<CR>
<esc>%101;14;32;1;15;0;0;0;0;0;0 sp D
---------------------------------------------------------------
● テーブルデータダウンロード(BLOBフィールドは転送されません)
※※デリミタ カンマ(,)で区切られたフィールドがそれぞれ
フィールド番号(1)からに転送されます
※※同一のキーが存在していたら更新となりなければ追加と
なります
<esc>%901;14;;1;1; sp D
AA01,BB01,CC01,<<<DATA-1>>><CR><LF>
AA02,BB002,CC002,<<<DATA-2>>><CR><LF>
AA03,BB003,CC003,<<<DATA-3>>><CR><LF>
AA03,BB003,CC003,<<<DATA-4>>><CR><LF>
.................<CR><LF>
AA09,BB009,CC009,<<<DATA-9>>><CR><LF>
<CR><LF> <-- <control/z>でも終了
---------------------------------------------------------------
● クローズテーブル ※※カーソルハンドルをクローズします。
<esc>%102;14;0;1;0 sp D
● クローズデータベース
<esc>%2;15;0;1 sp D
---------------------------------------------------------------
───────────────────────────────────
4-6
───────────────────────────────────
---------------------------------------------------------------
◆複合キー検索のサンプル
---------------------------------------------------------------
● データベース環境を初期化
<esc>%0;0 sp D
● オープンデータベース ※※標準データベースをオープンします。
<esc>%59;8 sp FSIMDB1<CR> <- データベースエイリアス
<esc>%1;15;8;1;0;0;0 sp D
● オープンテーブル
<esc>%59;32 sp FGBLTBL3<CR>
<esc>%101;14;32;1;15;0;0;0;0;0;0 sp D
---------------------------------------------------------------
● 複合キー検索準備(フィールド3個分の1次キー)
<esc>%59;33 sp FAA01<CR> <--
<esc>%59;34 sp FBB02<CR>
<esc>%59;35 sp FCC02<CR>
<esc>%310;14;;1;0;0;0 sp D <- レコードバッファをクリア
<esc>%352;14;34;1;2;0;0 sp D <- 2番目のフィールドのキー値
<esc>%352;14;35;1;3;0;0 sp D <- 3番目のフィールドのキー値
---------------------------------------------------------------
● 複合キー検索(フィールド3個分の1次キー)
※※以下のいずれかを実行します
<esc>%151;14;33;1;1;1;1;0 sp D <- より大きい条件検索
<- 1番目のフィールドのキー値を指定してフィールド1個で検索
※※1次元目での$ORDER()関数に相当(M言語)
<esc>%151;14;33;1;1;1;2;0 sp D
<- 1番目のフィールドのキー値を指定してフィールド2個で検索
※※2次元目での$ORDER()関数に相当(M言語)
<esc>%151;14;33;1;1;1;3;0 sp D
<- 1番目のフィールドのキー値を指定してフィールド3個で検索
※※3次元目での$ORDER()関数に相当(M言語)
<esc>%151;14;33;1;1;0;3;0 sp D <- 完全一致条件
<- 1番目のフィールドのキー値を指定してフィールド3個で検索
<esc>%151;14;33;1;1;2;2;0 sp D <- 等しいか大きい条件
<- 1番目のフィールドのキー値を指定してフィールド2個で検索
---------------------------------------------------------------
● 次のレコードを読み取ります
<esc>%112;14;;1;0;0;0 sp D
※※キー検索で検索されたキーを持つレコード
● 読み込んだレコードの4番目のフィールド文字列取り出し
<esc>%351;14;0;1;4;0;0;0 sp D
---------------------------------------------------------------
● クローズテーブル ※※カーソルハンドルをクローズします。
<esc>%102;14;0;1;0 sp D
● クローズデータベース
<esc>%2;15;0;1 sp D
---------------------------------------------------------------
───────────────────────────────────
4-7
───────────────────────────────────
---------------------------------------------------------------------
◆トランザクションのサンプル
---------------------------------------------------------------------
● データベース環境を初期化
<esc>%0;0 sp D
● オープンデータベース ※※標準データベースをオープンします。
<esc>%59;8 sp FSIMDB1<CR> <- データベースエイリアス
<esc>%1;15;8;1;0;0;0 sp D
● オープンテーブル
<esc>%59;32 sp FGBLTBL3<CR>
<esc>%101;14;32;1;15;0;0;0;0;0;0 sp D
---------------------------------------------------------------
● レコード群を更新処理します
---------------------------------------------------------------
● トランザクションの開始
<esc>%501;15;;1;1;0; sp D
● トランザクションの終了
※※以下のいずれかを出力してください
<esc>%502;15;;1;2; sp D <- roll back(更新取消)
<esc>%502;15;;1;0; sp D <- commit(更新確定)
---------------------------------------------------------------
● クローズテーブル ※※カーソルハンドルをクローズします。
<esc>%102;14;0;1;0 sp D
● クローズデータベース
<esc>%2;15;0;1 sp D
---------------------------------------------------------------
───────────────────────────────────
4-8
───────────────────────────────────
---------------------------------------------------------------------
◆InterBaseのサンプル
---------------------------------------------------------------------
● データベース環境を初期化
<esc>%0;0 sp D
● オープンデータベース ※※データベースをオープンします。
<esc>%59;30 sp Fmasterkey<CR> <- パスワード文字列
<esc>%59;31 sp FIBLOCAL<CR> <- InterBaseのデータベースエイリアス
<esc>%1;15;31;1;2;0;0;30 sp D <- InterBaseのデータベースオープン
● オープンテーブル
<esc>%59;32 sp JOB<CR>
<esc>%101;14;32;1;15;0;0;4 sp D <- InterBaseのテーブル
---------------------------------------------------------------
● カーソルを先頭に位置づけ
<esc>%111;14;;1;0;0;0 sp D
● 次のレコードを読み取ります
※※レコードは内部バッファに保存されます。
<esc>%112;14;;1;0;0;0 sp D
---------------------------------------------------------------
● クローズテーブル ※※カーソルハンドルをクローズします。
<esc>%102;14;0;1;0 sp D
● クローズデータベース
<esc>%2;15;0;1 sp D
---------------------------------------------------------------
───────────────────────────────────
4-9
───────────────────────────────────
---------------------------------------------------------------------
◆問い合わせのサンプル(1)
※※SQL文の実行のことです(結果集合が有りの場合)
---------------------------------------------------------------------
● データベース環境を初期化
<esc>%0;0 sp D
● オープンデータベース ※※標準データベースをオープンします。
<esc>%59;8 sp FSIMDB1<CR> <- データベースエイリアス
<esc>%1;15;8;1;0;0;0 sp D
---------------------------------------------------------------
● 問い合わせ
<esc>%59;20 sp F
select * from GBLDB3 where KEY3a < "AA05";<CR>
※※問い合わせ文
<esc>%59;21 sp FANSWER01<CR> <- 結果集合永久テーブル名
<esc>%801;11;;1;15;0;0 sp D <- 問い合わせ文ハンドル割り当て
<esc>%802;11;20;1;;0;0 sp D <- 問い合わせ準備
<esc>%803;11;;1;12;0;0 sp D <- 問い合わせ実行
<esc>%806;11;21;1;12;13;1;1 sp D <- 結果集合永久テーブルに保存
※※一時結果集合カーソルは自動的にクローズします。
● カーソルハンドルクローズ ※※カーソルハンドルをクローズします。
<esc>%102;13;0;1;1;0;0;0 sp D---CURSOR close---
● 問い合わせ文ハンドルクローズ
<esc>%804;11;;1;;0;0 sp D
---------------------------------------------------------------
● クローズデータベース
<esc>%2;15;0;1 sp D
---------------------------------------------------------------------
◆問い合わせのサンプル(2)
※※SQL文の実行のことです(結果集合が無い場合)
---------------------------------------------------------------------
● データベース環境を初期化
<esc>%0;0 sp D
● オープンデータベース ※※標準データベースをオープンします。
<esc>%1;15;0;1;0;0;0 sp D
---------------------------------------------------------------
● データベース環境を初期化
<esc>%59;20 sp FCREATE TABLE "simsql3.db"
( SIM1a CHAR(64), SIM1b CHAR(255),
PRIMARY KEY(SIM1a) );<CR> <- 複合キーなら,で複数個
※※問い合わせ文
<esc>%805;11;20;1;12;0;0 sp D <- 問い合わせ直接実行
※※結果集合が空(件数=0)なのでカーソルハンドル(12)は
※※空いたままですクローズするとエラーとなります
※※エラーとなりますが処理に影響はありません
<esc>%59;21 sp FINSERT INTO SIMSQL3
( SIM1a , SIM1b )
VALUES ("AAA", "DATABBBBB");<CR>
<esc>%805;11;21;1;12;0;0 sp D <- 問い合わせ直接実行
<esc>%59;21 sp FUPDATE SIMSQL3
SET SIM1b="DATAnew"
WHERE SIM1a="AAA";<CR>
<esc>%805;11;21;1;12;0;0 sp D <- 問い合わせ直接実行
<esc>%59;21 sp FDELETE FROM SIMSQL3
WHERE SIM1a="AAA";<CR>
<esc>%805;11;21;1;12;0;0 sp D <- 問い合わせ直接実行
---------------------------------------------------------------
● クローズデータベース
<esc>%2;15;0;1 sp D
---------------------------------------------------------------
───────────────────────────────────
4-10
───────────────────────────────────
---------------------------------------------------------------------
◆ASCIIドライバのサンプル(1)
---------------------------------------------------------------------
● データベース環境を初期化
<esc>%0;0 sp D
● オープンデータベース ※※標準データベースをオープンします。
<esc>%59;8 sp FSIMDB1<CR> <- データベースエイリアス
<esc>%1;15;8;1;0;0;0 sp D
---------------------------------------------------------------
● テーブル名作成
<esc>%59;35 sp FASCTBL1.TXT<CR> <-- テーブル名
<esc>%59;36 sp F1;ASC1a;1;0;64;0/
2;ASC1b;1;0;64;0/
3;ASC1c;1;0;64;0/
4;ASC1a;1;0;255;0<CR>
<esc>%201;15;36;1;35;1;4;1 sp D
---------------------------------------------------------------
● テーブルオープン
<esc>%59;32 sp FASCTBL1.TXT<CR>
<esc>%59;37 sp F-"-, <CR> <- デリミタ - セパレータ
<esc>%101;14;32;1;15;0;0;3;37 sp D <- テーブルオープン
<esc>%59;36 sp F1;ASC1a;1;0;64;0/ <- 論理型で定義
2;ASC1b;1;0;64;0/
3;ASC1c;1;0;64;0/
4;ASC1d;1;0;64;0<CR> <- フィールド定義
<esc>%103;14;36;1;4;4;0;0 sp D <- フィールド定義設定
<esc>%901;14;;1;1; sp D
AA01,BB01,CC01,<<<DATA-1>>><CR><LF>
AA02,BB002,CC002,<<<DATA-2>>><CR><LF>
AA03,BB003,CC003,<<<DATA-3>>><CR><LF>
<CR><LF>
<CR><LF>
---------------------------------------------------------------
● クローズテーブル ※※カーソルハンドルをクローズします。
<esc>%102;14;0;1;0 sp D
● クローズデータベース
<esc>%2;15;0;1 sp D
---------------------------------------------------------------
───────────────────────────────────
4-11
───────────────────────────────────
---------------------------------------------------------------------
◆バッチムーブのサンプル(1)
※※異なるデータベース間でもバッチムーブできます
---------------------------------------------------------------------
● データベース環境を初期化
<esc>%0;0 sp D
● オープンデータベース ※※標準データベースをオープンします。
<esc>%59;8 sp FSIMDB1<CR> <- データベースエイリアス
<esc>%1;15;8;1;0;0;0 sp D
---------------------------------------------------------------
● バッチムーブ(コピーで新規作成)
<esc>%59;21 sp F15;GBLTBL3.DB;PARADOX/
15;BATTBL5.DB;PARADOX/<CR>
<esc>%701;4;21;1;;;0;0;0;0;0;0 sp D <- コピー
---------------------------------------------------------------
● クローズデータベース
<esc>%2;15;0;1 sp D
---------------------------------------------------------------------
◆バッチムーブのサンプル(2)
---------------------------------------------------------------------
● データベース環境を初期化
<esc>%0;0 sp D
● オープンデータベース ※※標準データベースをオープンします。
<esc>%59;8 sp FSIMDB1<CR> <- データベースエイリアス
<esc>%1;15;8;1;0;0;0 sp D
---------------------------------------------------------------
● バッチムーブ(追加)(テキストファイルからロードの場合)
<esc>%59;39 sp FASCTBL7.DB<CR>
<esc>%59;37 sp F--,<CR> <- デリミタ - セパレータ
<esc>%101;14;39;1;15;0;0;3;37 sp D <- テーブルオープン
<esc>%59;36 sp F1;ASC1a;1;0;64;0/ <- 論理型で定義
2;ASC1b;1;0;64;0/
3;ASC1c;1;0;64;0/
4;ASC1d;1;0;255;0<CR> <- フィールド定義
<esc>%103;14;36;1;4;4;0;0 sp D <- フィールド定義設定
<esc>%59;21 sp F15;BATTBL7.DB;PARADOX/<CR>
<esc>%703;0;21;1;14;;0;0;0;0;0;0 sp D <- 追加
---------------------------------------------------------------
● クローズテーブル ※※カーソルハンドルをクローズします。
<esc>%102;14;0;1;0 sp D
● クローズデータベース
<esc>%2;15;0;1 sp D
---------------------------------------------------------------------
◆バッチムーブのサンプル(3)
---------------------------------------------------------------------
● データベース環境を初期化
<esc>%0;0 sp D
● オープンデータベース ※※標準データベースをオープンします。
<esc>%59;8 sp FSIMDB1<CR> <- データベースエイリアス
<esc>%1;15;8;1;0;0;0 sp D
---------------------------------------------------------------
● バッチムーブ(追加)(テキストファイルへセーブの場合)
<esc>%59;32 sp FASCTBL7.TXT<CR>
<esc>%59;37 sp F--,<CR> <- デリミタ - セパレータ
<esc>%101;14;32;1;15;0;0;3;37 sp D <- テーブルオープン
<esc>%59;36 sp F1;ASC1a;1;0;64;0/ <- 論理型で定義
2;ASC1b;1;0;64;0/
3;ASC1c;1;0;64;0/
4;ASC1d;1;0;255;0<CR> <- フィールド定義
<esc>%103;14;36;1;4;0;0;0 sp D <- フィールド定義設定
<esc>%59;21 sp F15;BATTBL7.DB;PARADOX/<CR>
<esc>%704;0;21;1;;14;0; sp D <- (追加)
---------------------------------------------------------------
● クローズテーブル ※※カーソルハンドルをクローズします。
<esc>%102;14;0;1;0 sp D
● クローズデータベース
<esc>%2;15;0;1 sp D
---------------------------------------------------------------
───────────────────────────────────
4-12
|目次|前ページ|次ページ|