Ｅｘｃｅｌファイルを読む procedure TForm1.Button23Click(Sender: TObject); var cn :Variant;//Connection rs :Variant;//Recordset sql:string; const adOpenDynamic: Integer = 2; adOpenForwardOnly: Integer = 0; adOpenKeyset: Integer = 1; adOpenS…

テキストファイルを読む procedure TForm1.Button21Click(Sender: TObject); var cn :Variant;//Connection rs :Variant;//Recordset const adOpenDynamic: Integer = 2; adOpenForwardOnly: Integer = 0; adOpenKeyset: Integer = 1; adOpenStatic: Integer…

トランザクションを確定する procedure TForm1.Button20Click(Sender: TObject); var cnn :Variant;//Connection sql: string; begin cnn := CreateOleObject('ADODB.Connection'); //Edit3 に mdbファイル名を入力 cnn.ConnectionString := 'Provider=Micro…

トランザクションを取り消す procedure TForm1.Button19Click(Sender: TObject); var cnn :Variant;//Connection sql: string; begin cnn := CreateOleObject('ADODB.Connection'); //Edit3 に mdbファイル名を入力 cnn.ConnectionString := 'Provider=Micro…

パラメータクエリー procedure TForm1.Button18Click(Sender: TObject); var cnn :Variant;//Connection cmd: Variant;//Command rs: Variant;//Recordset sql: string; begin //表示用コントロールをクリア ListBox1.Items.Clear; ListBox2.Items.Clear; cn…

削除クエリー (Connection.Execute) procedure TForm1.Button27Click(Sender: TObject); var cnn :Variant;//Connection sql: string; begin cnn := CreateOleObject('ADODB.Connection'); //Edit3 に mdbファイル名を入力 cnn.ConnectionString := 'Provide…

削除クエリー (Command.Execute) procedure TForm1.Button17Click(Sender: TObject); var cnn :Variant;//Connection cmd: Variant;//Command sql: string; begin cnn := CreateOleObject('ADODB.Connection'); //Edit3 に mdbファイル名を入力 cnn.Connecti…

更新クエリー (Connection.Execute) procedure TForm1.Button26Click(Sender: TObject); var cnn :Variant;//Connection sql: string; begin cnn := CreateOleObject('ADODB.Connection'); //Edit3 に mdbファイル名を入力 cnn.ConnectionString := 'Provide…

更新クエリー (Command.Execute) procedure TForm1.Button16Click(Sender: TObject); var cnn :Variant;//Connection cmd: Variant;//Command sql: string; begin cnn := CreateOleObject('ADODB.Connection'); //Edit3 に mdbファイル名を入力 cnn.Connecti…

追加クエリー (Connection.Execute) procedure TForm1.Button25Click(Sender: TObject); var cnn :Variant;//Connection sql: string; begin cnn := CreateOleObject('ADODB.Connection'); //Edit3 に mdbファイル名を入力 cnn.ConnectionString := 'Provide…

追加クエリー (Command.Execute) procedure TForm1.Button15Click(Sender: TObject); var cnn :Variant;//Connection cmd: Variant;//Command sql: string; begin cnn := CreateOleObject('ADODB.Connection'); //Edit3 に mdbファイル名を入力 cnn.Connecti…

選択クエリー (Connection.Execute) procedure TForm1.Button4Click(Sender: TObject); var cn :Variant;//Connection rs :Variant;//Recordset sql:string; //Recordset begin //表示用コントロールをクリア ListBox1.Items.Clear; ListBox2.Items.Clear; c…

選択クエリー (Command.Execute) procedure TForm1.Button24Click(Sender: TObject); var cnn:Variant;//Connection cmd:Variant;//Command rs :Variant;//Recordset sql:string; //Recordset begin //表示用コントロールをクリア ListBox1.Items.Clear; Lis…

選択クエリー (Recordset.Open) procedure TForm1.Button14Click(Sender: TObject); var cn :Variant;//Connection rs :Variant;//Recordset sql:string; //Recordset const adOpenDynamic: Integer = 2; adOpenForwardOnly: Integer = 0; adOpenKeyset: Int…

削除する procedure TForm1.Button13Click(Sender: TObject); var cn :Variant;//Connection rs :Variant;//Recordset sql:string; const adOpenDynamic: Integer = 2; adOpenForwardOnly: Integer = 0; adOpenKeyset: Integer = 1; adOpenStatic: Integer =…

更新する procedure TForm1.Button12Click(Sender: TObject); var cn :Variant;//Connection rs :Variant;//Recordset sql:string; const adOpenDynamic: Integer = 2; adOpenForwardOnly: Integer = 0; adOpenKeyset: Integer = 1; adOpenStatic: Integer =…

追加する procedure TForm1.Button11Click(Sender: TObject); var cn :Variant;//Connection rs :Variant;//Recordset const adOpenDynamic: Integer = 2; adOpenForwardOnly: Integer = 0; adOpenKeyset: Integer = 1; adOpenStatic: Integer = 3; adOpenUn…

レコード一覧を取得する procedure TForm1.Button10Click(Sender: TObject); var cn :Variant;//Connection rs :Variant;//Recordset const adOpenDynamic: Integer = 2; adOpenForwardOnly: Integer = 0; adOpenKeyset: Integer = 1; adOpenStatic: Integer…

インデックス一覧を取得する procedure TForm1.Button3Click(Sender: TObject); var cat: Variant;//Catalog tbl: Variant;//Table idx: Variant;//Index i: Integer; begin //表示用コントロールをクリア ListBox1.Items.Clear; ListBox2.Items.Clear; cat …

フィールド一覧を取得する procedure TForm1.Button2Click(Sender: TObject); var cat: Variant;//Catalog tbl: Variant;//Table col: Variant;//Column i: Integer; begin //表示用コントロールをクリア ListBox1.Items.Clear; ListBox2.Items.Clear; cat :…

テーブル一覧を取得する procedure TForm1.Button1Click(Sender: TObject); var cat: Variant;//Catalog i: Integer; begin //表示用コントロールをクリア ListBox1.Items.Clear; ListBox2.Items.Clear; cat := CreateOleObject('ADOX.Catalog'); //Edit3 に…

クエリーを作成する procedure TForm1.Button7Click(Sender: TObject); var cat: Variant;//Catalog cmd: Variant;//Command sql: string; begin cat := CreateOleObject('ADOX.Catalog'); //Edit3 に mdbファイル名を入力 cat.ActiveConnection := 'Provide…

インデックスを作成する procedure TForm1.Button8Click(Sender: TObject); var cat: Variant;//Catalog tbl: Variant;//Table idx: Variant;//Index begin cat := CreateOleObject('ADOX.Catalog'); //Edit3 に mdbファイル名を入力 cat.ActiveConnection :…

フィールドの説明を設定する procedure TForm1.Button9Click(Sender: TObject); var cat: Variant;//Catalog tbl: Variant;//Table col: Variant;//Column begin cat := CreateOleObject('ADOX.Catalog'); //Edit3 に mdbファイル名を入力 cat.ActiveConnect…

テーブルを作成する procedure TForm1.Button6Click(Sender: TObject); var cat: Variant;//Catalog tbl: Variant;//Table const //ADODB.DataTypeEnum adArray: Integer = 8192; adBigInt: Integer = 20; adBinary: Integer = 128; adBoolean: Integer = 11…

データベースを作成する procedure TForm1.Button5Click(Sender: TObject); var cat: Variant;//Catalog begin cat := CreateOleObject('ADOX.Catalog'); //Edit3 に mdbファイル名を入力 cat.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Edi…

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