2005-12-01から1ヶ月間の記事一覧
Excelファイルを読む procedure TForm1.Button23Click(Sender: TObject); var de:Variant;//DBEngine db:Variant;//Database rs:Variant;//Recordset const dbOpenTable:Integer = 1; begin //表示用コントロールをクリア ListBox1.Items.Clear; ListBo…
テキストファイルを読む(1行目もデータ) procedure TForm1.Button22Click(Sender: TObject); var de:Variant;//DBEngine db:Variant;//Database rs:Variant;//Recordset const dbOpenTable:Integer = 1; begin //表示用コントロールをクリア ListBox1.Ite…
テキストファイルを読む(1行目がヘッダ) procedure TForm1.Button21Click(Sender: TObject); var de:Variant;//DBEngine db:Variant;//Database rs:Variant;//Recordset const dbOpenTable:Integer = 1; begin //表示用コントロールをクリア ListBox1.Ite…
トランザクションを確定する procedure TForm1.Button20Click(Sender: TObject); var de:Variant;//DBEngine db:Variant;//Database rs:Variant;//Recordset const dbOpenTable:Integer = 1; begin de := CreateOleObject('DAO.DBEngine.36'); //トランザク…
トランザクションを取り消す procedure TForm1.Button19Click(Sender: TObject); var de:Variant;//DBEngine db:Variant;//Database rs:Variant;//Recordset const dbOpenTable:Integer = 1; begin de := CreateOleObject('DAO.DBEngine.36'); //トランザク…
パラメータクエリー procedure TForm1.Button18Click(Sender: TObject); var de:Variant;//DBEngine db:Variant;//Database qd:Variant;//QueryDef rs:Variant;//Recordset const dbOpenForwardOnly:Integer = 8; begin //表示用コントロールをクリア ListBo…
削除クエリー procedure TForm1.Button17Click(Sender: TObject); var de:Variant;//DBEngine db:Variant;//Database qd:Variant;//QueryDef begin de := CreateOleObject('DAO.DBEngine.36'); //Edit3 に mdbファイル名を入力 db := de.OpenDatabase(Edit3.…
更新クエリー procedure TForm1.Button16Click(Sender: TObject); var de:Variant;//DBEngine db:Variant;//Database qd:Variant;//QueryDef begin de := CreateOleObject('DAO.DBEngine.36'); //Edit3 に mdbファイル名を入力 db := de.OpenDatabase(Edit3.…
追加クエリー procedure TForm1.Button15Click(Sender: TObject); var de:Variant;//DBEngine db:Variant;//Database qd:Variant;//QueryDef begin de := CreateOleObject('DAO.DBEngine.36'); //Edit3 に mdbファイル名を入力 db := de.OpenDatabase(Edit3.…
選択クエリー procedure TForm1.Button14Click(Sender: TObject); var de :Variant;//DBEngine db :Variant;//Database rs :Variant;//Recordset sql:string; const dbOpenForwardOnly:Integer = 8; begin //表示用コントロールをクリア Edit2.Text := ''; d…
削除する procedure TForm1.Button13Click(Sender: TObject); var de:Variant;//DBEngine db:Variant;//Database rs:Variant;//Recordset const dbOpenTable:Integer = 1; begin de := CreateOleObject('DAO.DBEngine.36'); //Edit3 に mdbファイル名を入力 …
更新する procedure TForm1.Button12Click(Sender: TObject); var de:Variant;//DBEngine db:Variant;//Database rs:Variant;//Recordset const dbOpenTable:Integer = 1; begin de := CreateOleObject('DAO.DBEngine.36'); //Edit3 に mdbファイル名を入力 …
追加する procedure TForm1.Button11Click(Sender: TObject); var de:Variant;//DBEngine db:Variant;//Database rs:Variant;//Recordset const dbOpenTable:Integer = 1; begin de := CreateOleObject('DAO.DBEngine.36'); //Edit3 に mdbファイル名を入力 …
検索する procedure TForm1.Button10Click(Sender: TObject); var de:Variant;//DBEngine db:Variant;//Database rs:Variant;//Recordset const dbOpenTable:Integer = 1; begin //表示用コントロールをクリア Edit2.Text := ''; de := CreateOleObject('DAO…
レコード一覧を取得する procedure TForm1.Button4Click(Sender: TObject); var de:Variant;//DBEngine db:Variant;//Database rs:Variant;//Recordset const dbOpenTable:Integer = 1; begin //表示用コントロールをクリア ListBox1.Items.Clear; ListBox2.…
インデックス一覧を取得する procedure TForm1.Button3Click(Sender: TObject); var de:Variant;//DBEngine db:Variant;//Database td:Variant;//TableDef fd:Variant;//Field i :Integer; begin //表示用コントロールをクリア ListBox1.Items.Clear; ListBo…
フィールド一覧を取得する procedure TForm1.Button2Click(Sender: TObject); var de:Variant;//DBEngine db:Variant;//Database td:Variant;//TableDef fd:Variant;//Field i :Integer; begin //表示用コントロールをクリア ListBox1.Items.Clear; ListBox2…
テーブル一覧を取得する procedure TForm1.Button1Click(Sender: TObject); var de:Variant;//DBEngine db:Variant;//Database td:Variant;//TableDef i :Integer; const dbSystemObject:Integer = -2147483646; dbHiddenObject:Integer = 1; begin //表示用…
クエリーを作成する procedure TForm1.Button7Click(Sender: TObject); var de :Variant;//DBEngine db :Variant;//Database qd :Variant;//QueryDef sql:string; begin de := CreateOleObject('DAO.DBEngine.36'); //Edit3 に mdbファイル名を入力 db := de…
インデックスを作成する procedure TForm1.Button8Click(Sender: TObject); var de :Variant;//DBEngine db :Variant;//Database td :Variant;//TableDef idx:Variant; begin de := CreateOleObject('DAO.DBEngine.36'); //Edit3 に mdbファイル名を入力 db …
フィールドの説明を設定する procedure TForm1.Button9Click(Sender: TObject); var de:Variant;//DBEngine db:Variant;//Database td:Variant;//TableDef begin de := CreateOleObject('DAO.DBEngine.36'); //Edit3 に mdbファイル名を入力 db := de.OpenDa…
テーブルを作成する procedure TForm1.Button6Click(Sender: TObject); var de:Variant;//DBEngine db:Variant;//Database td:Variant;//TableDef const //DAO.DataTypeEnum dbBigInt: Integer = 16; dbBinary: Integer = 9; dbBoolean: Integer = 1; dbByte…
データベースを作成する procedure TForm1.Button5Click(Sender: TObject); var de:Variant;//DBEngine db:Variant;//Database const dbLangJapanese:string = ';LANGID=0x0411;CP=932;COUNTRY=0'; dbVersion20: Integer = 16; // Access 2.0 dbVersion30: I…
Delphi Personal で DAO データベースを作成する テーブルを作成する フィールドの説明を設定する インデックスを作成する クエリーを作成する テーブル一覧を取得する フィールド一覧を取得する インデックス一覧を取得する レコード一覧を取得する 検索す…