|
はじめまして。貴サイトを役立たせて頂いているものです。長文にて失礼します。
早速ですが、下記の1で作成したテーブルに対し、2のSQL文を実行すると、エラーが発生(プロセス停止)してしまいます。
回避方法をご存知の方がいらっしゃいましたら、ご教示のほどよろしくお願いします。
エラーメッセージ:
プロジェクトProject1.exeがENoResultSetクラスの例外を生成しました。'カーソルハンドルの作成エラーが発生しました。'プロセスは停止しています。
環境:Win2000(SP4) + BCB5.0(UP1)
■1:アプリ起動時にテーブルを作成する。
★テーブル「Member.db」の作成。
tableMember->DatabaseName = app_path;
tableMember->TableType = ttParadox;
tableMember->TableName = "Member.db";
tableMember->FieldDefs->Clear();
tableMember->FieldDefs->Add("ID", ftString, 30,
true);
tableMember->FieldDefs->Add("Shimei", ftString,
30, true);
tableMember->FieldDefs->Add("Touroku", ftString,
30, true);
tableMember->IndexDefs->Add("", "ID",
TIndexOptions() <
tableMember->CreateTable();
★テーブル「TourokuID.db」の作成。
tableTourokuID->DatabaseName = app_path;
tableTourokuID->TableType = ttParadox;
tableTourokuID->TableName = "TourokuID.db";
tableTourokuID->FieldDefs->Clear();
tableTourokuID->FieldDefs->Add("ID", ftString,
30, true);
tableTourokuID->FieldDefs->Add("Shimei",
ftString, 30, true);
tableTourokuID->FieldDefs->Add("Touroku",
ftString, 30, true);
tableTourokuID->CreateTable();
■2:テーブル「Member.db」からフィールド「Touroku」が'1'な行をテーブル「TourokuID.db」に挿入。
queryTourokuID->SQL->Clear();
queryTourokuID->SQL->Add("INSERT INTO
TourokuID");
queryTourokuID->SQL->Add("SELECT *");
queryTourokuID->SQL->Add("FROM Member");
queryTourokuID->SQL->Add("WHERE Touroku = '1'");
queryTourokuID->Close();
queryTourokuID->Open(); |