名前
題名
▼ Mr.XRAYさん > JETデータベースエンジンというのは，マイクロソフトのアクセス(Access) > というデータベース操作用アプリで使用されているDBです． > > このデータベースの表名(テーブル名)を変更するサンプルです． > サンプルプログラム集の > [630_ADOでJETデータベースの新規作成と最適化] > http://mrxray.on.coocan.jp/Delphi/plSamples/630_CreateMDB.htm#list1 > で作成したデータベースを対象とした場合です．このコードに追加して使用 > できます． > 動作確認環境等は，同サンプルと同じです． > > JETエンジンでは，ALTER ... TABLE ... RENAMEは使用できません． > > procedure TForm1.Button1Click(Sender: TObject); > var > AUserName : String; > APassWord : String; > ConnectStr : String; > JET_Catalog : ADOX_TLB.Catalog; > begin > //ユーザ名とパスワード > AUserName := 'Mr.XRAY'; > APassWord := '123'; > > //データベース名 > //作成するデータベース(ファイル)名はTEST.mdbとする > //場所はこのプロジェクトのルート > ADatabaseName := '..\TEST.mdb'; > > //既にデータベースのファイルがある場合 > if FileExists(ADatabaseName) then begin > ADOConnection1.Connected := False; > ADOConnection1.LoginPrompt := False; > > //ADOXのCatalogオブジェクトを生成 > JET_Catalog := ADOX_TLB.CoCatalog.Create; > try > //接続文字列を作成 > ConnectStr := MakeConnectString(ADatabaseName, APassWord); > ADOConnection1.ConnectionString := ConnectStr; > > //ADOXのCatalog接続(アクティブ化?) > JET_Catalog.Set_ActiveConnection(ConnectStr); > > //テーブル名変更 > JET_Catalog.Tables.Item['PERSON'].Name := 'ABC'; > finally > JET_Catalog := nil; > end; > end; > end;
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link