DAO
SQLServer上のテーブルをMDBにリンク/インポートする (全テーブル) 接続文字列 lesson001.con ODBC;DRIVER={SQL Server};SERVER=xxxxxx;DataBase=adventureworksdw;UID=yyyyyy;PWD=zzzzzz;lesson002.con DRIVER={SQL Server};SERVER=xxxxxx;Data…
SQLServer上のテーブルをMDBにリンク/インポートする (テーブル指定) 接続文字列 lesson001.con ODBC;DRIVER={SQL Server};SERVER=xxxxxx;DataBase=adventureworksdw;UID=yyyyyy;PWD=zzzzzz; リンク/インポート用スクリプト lesson001.vbs 'SQLS…
データベースを作成する テーブルを作成する フィールドの説明を設定する インデックスを作成する クエリーを作成する テーブル一覧を取得する フィールド一覧を取得する インデックス一覧を取得する レコード一覧を取得する 検索する (Seek) 追加する (A…
データベースを作成する テーブルを作成する フィールドの説明を設定する インデックスを作成する クエリーを作成する テーブル一覧を取得する フィールド一覧を取得する インデックス一覧を取得する レコード一覧を取得する 検索する (Seek) 追加する (A…
データベースを作成する テーブルを作成する フィールドの説明を設定する インデックスを作成する クエリーを作成する テーブル一覧を取得する フィールド一覧を取得する インデックス一覧を取得する レコード一覧を取得する 検索する (Seek) 追加する (A…
データベースを作成する テーブルを作成する フィールドの説明を設定する インデックスを作成する クエリーを作成する テーブル一覧を取得する フィールド一覧を取得する インデックス一覧を取得する レコード一覧を取得する 検索する (Seek) 追加する (A…
データベースを作成する テーブルを作成する フィールドの説明を設定する インデックスを作成する クエリーを作成する テーブル一覧を取得する フィールド一覧を取得する インデックス一覧を取得する レコード一覧を取得する 検索する (Seek) 追加する (A…
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…