Ｅｘｃｅｌファイルを読む void __fastcall TForm1::Button23Click(TObject *Sender) { //表示用コントロールをクリア ListBox1->Items->Clear(); ListBox2->Items->Clear(); Variant de = Variant::CreateObject("DAO.DBEngine.36"); //Edit3 に ファイル名…

テキストファイルを読む（１行目もデータ） void __fastcall TForm1::Button22Click(TObject *Sender) { //表示用コントロールをクリア ListBox1->Items->Clear(); ListBox2->Items->Clear(); Variant de = Variant::CreateObject("DAO.DBEngine.36"); //Edi…

テキストファイルを読む（１行目がヘッダ） void __fastcall TForm1::Button21Click(TObject *Sender) { //表示用コントロールをクリア ListBox1->Items->Clear(); ListBox2->Items->Clear(); Variant de = Variant::CreateObject("DAO.DBEngine.36"); //Edi…

トランザクションを確定する void __fastcall TForm1::Button20Click(TObject *Sender) { Variant de = Variant::CreateObject("DAO.DBEngine.36"); //トランザクションを開始 de.Exec(Procedure("BeginTrans")); //Edit3 に mdbファイル名を入力 Variant db…

トランザクションを取り消す void __fastcall TForm1::Button19Click(TObject *Sender) { Variant de = Variant::CreateObject("DAO.DBEngine.36"); //トランザクションを開始 de.Exec(Procedure("BeginTrans")); //Edit3 に mdbファイル名を入力 Variant db…

パラメータクエリー void __fastcall TForm1::Button18Click(TObject *Sender) { //表示用コントロールをクリア ListBox1->Items->Clear(); ListBox2->Items->Clear(); Variant de = Variant::CreateObject("DAO.DBEngine.36"); //Edit3 に mdbファイル名を…

削除クエリー void __fastcall TForm1::Button17Click(TObject *Sender) { Variant de = Variant::CreateObject("DAO.DBEngine.36"); //Edit3 に mdbファイル名を入力 Variant db = de.Exec(Function("OpenDatabase")<<Edit3->Text<</edit3->

更新クエリー void __fastcall TForm1::Button16Click(TObject *Sender) { Variant de = Variant::CreateObject("DAO.DBEngine.36"); //Edit3 に mdbファイル名を入力 Variant db = de.Exec(Function("OpenDatabase")<<Edit3->Text<</edit3->

追加クエリー void __fastcall TForm1::Button15Click(TObject *Sender) { Variant de = Variant::CreateObject("DAO.DBEngine.36"); //Edit3 に mdbファイル名を入力 Variant db = de.Exec(Function("OpenDatabase")<<Edit3->Text<</edit3->

選択クエリー void __fastcall TForm1::Button14Click(TObject *Sender) { //表示用コントロールをクリア Edit2->Text = ""; Variant de = Variant::CreateObject("DAO.DBEngine.36"); //Edit3 に mdbファイル名を入力 Variant db = de.Exec(Function("OpenD…

削除する void __fastcall TForm1::Button13Click(TObject *Sender) { Variant de = Variant::CreateObject("DAO.DBEngine.36"); //Edit3 に mdbファイル名を入力 Variant db = de.Exec(Function("OpenDatabase")<<Edit3->Text<</edit3->

更新する void __fastcall TForm1::Button12Click(TObject *Sender) { Variant de = Variant::CreateObject("DAO.DBEngine.36"); //Edit3 に mdbファイル名を入力 Variant db = de.Exec(Function("OpenDatabase")<<Edit3->Text<</edit3->

追加する void __fastcall TForm1::Button11Click(TObject *Sender) { Variant de = Variant::CreateObject("DAO.DBEngine.36"); //Edit3 に mdbファイル名を入力 Variant db = de.Exec(Function("OpenDatabase")<<Edit3->Text<</edit3->

検索する void __fastcall TForm1::Button10Click(TObject *Sender) { //表示用コントロールをクリア Edit2->Text = ""; Variant de = Variant::CreateObject("DAO.DBEngine.36"); //Edit3 に mdbファイル名を入力 Variant db = de.Exec(Function("OpenDatab…

レコード一覧を取得する void __fastcall TForm1::Button4Click(TObject *Sender) { //表示用コントロールをクリア ListBox1->Items->Clear(); ListBox2->Items->Clear(); Variant de = Variant::CreateObject("DAO.DBEngine.36"); //Edit3 に mdbファイル名…

インデックス一覧を取得する void __fastcall TForm1::Button3Click(TObject *Sender) { //表示用コントロールをクリア ListBox1->Items->Clear(); ListBox2->Items->Clear(); Variant de = Variant::CreateObject("DAO.DBEngine.36"); //Edit3 に mdbファイ…

フィールド一覧を取得する void __fastcall TForm1::Button2Click(TObject *Sender) { //表示用コントロールをクリア ListBox1->Items->Clear(); ListBox2->Items->Clear(); Variant de = Variant::CreateObject("DAO.DBEngine.36"); //Edit3 に mdbファイル…

テーブル一覧を取得する void __fastcall TForm1::Button1Click(TObject *Sender) { //表示用コントロールをクリア ListBox1->Items->Clear(); ListBox2->Items->Clear(); Variant de = Variant::CreateObject("DAO.DBEngine.36"); //Edit3 に mdbファイル名…

クエリーを作成する void __fastcall TForm1::Button7Click(TObject *Sender) { Variant de = Variant::CreateObject("DAO.DBEngine.36"); //Edit3 に mdbファイル名を入力 Variant db = de.Exec(Function("OpenDatabase")<<Edit3->Text<</edit3->

インデックスを作成する void __fastcall TForm1::Button8Click(TObject *Sender) { Variant de = Variant::CreateObject("DAO.DBEngine.36"); //Edit3 に mdbファイル名を入力 Variant db = de.Exec(Function("OpenDatabase")<<Edit3->Text<<false<<false); //Edit4 に テーブル名を入力 Variant td = db.Exec(PropertyGet("TableDefs")<<Edit4->Text); …</false<<false);></edit3->

フィールドの説明を設定する void __fastcall TForm1::Button9Click(TObject *Sender) { Variant de = Variant::CreateObject("DAO.DBEngine.36"); //Edit3 に mdbファイル名を入力 Variant db = de.Exec(Function("OpenDatabase")<<Edit3->Text<<false<<false); //Edit4 に テーブル名を入力 Variant td = db.Exec(PropertyGet("TableDefs")<<Edit4->Text)…</false<<false);></edit3->

テーブルを作成する void __fastcall TForm1::Button6Click(TObject *Sender) { //DAO.DataTypeEnum const int dbBigInt = 16; const int dbBinary = 9; const int dbBoolean = 1; const int dbByte = 2; const int dbChar = 18; const int dbCurrency = 5; …

データベースを作成する void __fastcall TForm1::Button5Click(TObject *Sender) { const AnsiString dbLangJapanese = ";LANGID=0x0411;CP=932;COUNTRY=0"; const int dbVersion20 = 16; // Access 2.0 const int dbVersion30 = 32; // Access 95 const in…

C++Builder Personal で DAO データベースを作成する テーブルを作成する フィールドの説明を設定する インデックスを作成する クエリーを作成する テーブル一覧を取得する フィールド一覧を取得する インデックス一覧を取得する レコード一覧を取得する 検…