Ｅｘｃｅｌファイルを読む void __fastcall TForm1::Button23Click(TObject *Sender) { const int adOpenForwardOnly = 0; const int adLockReadOnly = 1; //表示用コントロールをクリア ListBox1->Items->Clear(); ListBox2->Items->Clear(); Variant cn = …

テキストファイルを読む void __fastcall TForm1::Button21Click(TObject *Sender) { const int adOpenForwardOnly = 0; const int adLockReadOnly = 1; //表示用コントロールをクリア ListBox1->Items->Clear(); ListBox2->Items->Clear(); Variant cn = Va…

トランザクションを確定する void __fastcall TForm1::Button20Click(TObject *Sender) { Variant cn = Variant::CreateObject("ADODB.Connection"); //Edit3 に mdbファイル名を入力 cn.Exec(PropertySet("ConnectionString")<<"Provider=Microsoft.Jet.OLE…

トランザクションを取り消す void __fastcall TForm1::Button19Click(TObject *Sender) { Variant cn = Variant::CreateObject("ADODB.Connection"); //Edit3 に mdbファイル名を入力 cn.Exec(PropertySet("ConnectionString")<<"Provider=Microsoft.Jet.OLE…

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

削除クエリー (Connection.Execute) void __fastcall TForm1::Button28Click(TObject *Sender) { Variant cn = Variant::CreateObject("ADODB.Connection"); //Edit3 に mdbファイル名を入力 cn.Exec(PropertySet("ConnectionString")<<"Provider=Microsoft.…

削除クエリー (Command.Execute) void __fastcall TForm1::Button17Click(TObject *Sender) { Variant cn = Variant::CreateObject("ADODB.Connection"); //Edit3 に mdbファイル名を入力 cn.Exec(PropertySet("ConnectionString")<<"Provider=Microsoft.Jet…

更新クエリー (Connection.Execute) void __fastcall TForm1::Button27Click(TObject *Sender) { Variant cn = Variant::CreateObject("ADODB.Connection"); //Edit3 に mdbファイル名を入力 cn.Exec(PropertySet("ConnectionString")<<"Provider=Microsoft.…

更新クエリー (Command.Execute) void __fastcall TForm1::Button16Click(TObject *Sender) { Variant cn = Variant::CreateObject("ADODB.Connection"); //Edit3 に mdbファイル名を入力 cn.Exec(PropertySet("ConnectionString")<<"Provider=Microsoft.Jet…

追加クエリー (Connection.Execute) void __fastcall TForm1::Button26Click(TObject *Sender) { Variant cn = Variant::CreateObject("ADODB.Connection"); //Edit3 に mdbファイル名を入力 cn.Exec(PropertySet("ConnectionString")<<"Provider=Microsoft.…

追加クエリー (Command.Execute) void __fastcall TForm1::Button15Click(TObject *Sender) { Variant cn = Variant::CreateObject("ADODB.Connection"); //Edit3 に mdbファイル名を入力 cn.Exec(PropertySet("ConnectionString")<<"Provider=Microsoft.Jet…

選択クエリー (Connection.Execute) void __fastcall TForm1::Button24Click(TObject *Sender) { const int adOpenDynamic = 2; const int adOpenForwardOnly = 0; const int adOpenKeyset = 1; const int adOpenStatic = 3; const int adOpenUnspecified = …

選択クエリー (Command.Execute) void __fastcall TForm1::Button25Click(TObject *Sender) { const int adOpenDynamic = 2; const int adOpenForwardOnly = 0; const int adOpenKeyset = 1; const int adOpenStatic = 3; const int adOpenUnspecified = -1;…

選択クエリー (Recordset.Open) void __fastcall TForm1::Button14Click(TObject *Sender) { const int adOpenDynamic = 2; const int adOpenForwardOnly = 0; const int adOpenKeyset = 1; const int adOpenStatic = 3; const int adOpenUnspecified = -1; …

削除する void __fastcall TForm1::Button13Click(TObject *Sender) { const int adOpenDynamic = 2; const int adOpenForwardOnly = 0; const int adOpenKeyset = 1; const int adOpenStatic = 3; const int adOpenUnspecified = -1; const int adLockBatch…

更新する void __fastcall TForm1::Button12Click(TObject *Sender) { const int adOpenDynamic = 2; const int adOpenForwardOnly = 0; const int adOpenKeyset = 1; const int adOpenStatic = 3; const int adOpenUnspecified = -1; const int adLockBatch…

追加する void __fastcall TForm1::Button11Click(TObject *Sender) { const int adOpenDynamic = 2; const int adOpenForwardOnly = 0; const int adOpenKeyset = 1; const int adOpenStatic = 3; const int adOpenUnspecified = -1; const int adLockBatch…

レコード一覧を取得する void __fastcall TForm1::Button4Click(TObject *Sender) { const int adOpenDynamic = 2; const int adOpenForwardOnly = 0; const int adOpenKeyset = 1; const int adOpenStatic = 3; const int adOpenUnspecified = -1; const in…

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

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

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

クエリーを作成する void __fastcall TForm1::Button7Click(TObject *Sender) { Variant cat = Variant::CreateObject("ADOX.Catalog"); //Edit3 に mdbファイル名を入力 cat.Exec(PropertySet("ActiveConnection")<<"Provider=Microsoft.Jet.OLEDB.4.0;Data…

インデックスを作成する void __fastcall TForm1::Button8Click(TObject *Sender) { Variant cat = Variant::CreateObject("ADOX.Catalog"); //Edit3 に mdbファイル名を入力 cat.Exec(PropertySet("ActiveConnection")<<"Provider=Microsoft.Jet.OLEDB.4.0;…

フィールドの説明を設定する void __fastcall TForm1::Button9Click(TObject *Sender) { Variant cat = Variant::CreateObject("ADOX.Catalog"); //Edit3 に mdbファイル名を入力 cat.Exec(PropertySet("ActiveConnection")<<"Provider=Microsoft.Jet.OLEDB.…

テーブルを作成する void __fastcall TForm1::Button6Click(TObject *Sender) { //ADODB.DataTypeEnum const int adArray = 8192; const int adBigInt = 20; const int adBinary = 128; const int adBoolean = 11; const int adBSTR = 8; const int adChapte…

データベースを作成する void __fastcall TForm1::Button5Click(TObject *Sender) { Variant cat = Variant::CreateObject("ADOX.Catalog"); //Edit3 に mdbファイル名を入力 cat.Exec(Function("Create")<<"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="…

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