お知らせ

電子会議

ライブラリ

パレット

Delphi FAQ検索

Delphi FAQ一覧

サンプル蔵





FDelphi FAQ
16番会議室「玉石混淆みんなで作るSample蔵」に寄せられたサンプル

"Paradox DBの共有"



Paradoxのテーブルをネットワークで共有する設定をプログラムで
行う方法(これで配布がすごく楽になりました)

{イカはフォームにTDatabeseとTTable,TDBGridを一つずつ
フォーム上に配置しただけの状態でオブジェクトインスペクタ上は
何も設定していません}
{
下例中の thePathについて
 例えば私のPCが Rinという名前で 、
c:\data\shcedule.db を共有したいとします。
エクスプローラで設定するフォルダの共有で
c:\全部共有設定している場合は thePathは \\Rin\c\data になります
cドライブ全部を共有せず、dataディレクトリだけ共有している場合は
thePathは \\Rin\dataになります。
 dataがアプリを実行するPCにある場合 共有しないなら c:\dataでもいける
のですが、c:\dataは他のPCからの見え方と違うのでDBを同時に共有できなくな
ります。データのあるPCで実行するアプリの設定でも、そのPCを外から見たのと
同じパスの記述の仕方をする必要があります。
}
var thePath:string;
begin
 with DataBase1 do
 begin
    DataBaseName:='db1';
    DriverName:='STANDARD';
    Open;
    Session.NetFileDir:=thePath;
 end;
 with Table1 do
 begin
    DataBaseName:='db1';
    TableName:=DataBase1.Session.NetFileDir+'\shcedule.db';
    Active:=True;
 end;
 with DataSource1 do
 begin
    Dataset:=Table1;
 end;

 with DBGrid1 do
 begin
    Datasource:=DataSource1;
 end;
end;
☆☆☆ わからないときサンプル蔵 わかったときサンプル蔵 ☆☆☆
                                 98/02/11(水) 13:46 凛(MXB01744)

Original document by 凛              氏 ID:(MXB01744)


ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。

Copyright 1996-2002 Delphi Users' Forum