ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

ｿｽ謔､ｿｽｿｽ 2011/05/14(ｿｽy) 16:19:50

Delphi6ｿｽｿｽgｿｽｿｽAdoTableｿｽﾉ以会ｿｽｿｽﾌ設抵ｿｽｿｽsｿｽｿｽｿｽEｿｽGｿｽ[ｿｽuｿｽTｿｽ[ｿｽoｿｽ[ｿｽｿｽｿｽParadoxｿｽﾌテｿｽ[ｿｽuｿｽｿｽｿｽ操作しｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽuｿｽCｿｽｿｽｿｽ^ｿｽ[ｿｽlｿｽbｿｽgｿｽﾌｿｽｿｽOｿｽCｿｽｿｽｿｽﾉ趣ｿｽｿｽsｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽvｿｽﾌｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾚ托ｿｽｿｽｿｽｿｽoｿｽｿｽｿｽﾜゑｿｽｿｽｿｽDｿｽDｿｽDｿｽBｿｽNｿｽｿｽｿｽCｿｽAｿｽｿｽｿｽgｿｽｿｽﾌデｿｽBｿｽｿｽｿｽNｿｽgｿｽｿｽｿｽ[ｿｽｿｽData Sourceｿｽﾉ設定すｿｽｿｽﾎ厄ｿｽｿｽﾈゑｿｽｿｽﾚ托ｿｽｿｽoｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽﾇゑｿｽｿｽﾉ厄ｿｽ閧ｪｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽHｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB

procedure TForm1.Button1Click(Sender: TObject);
var
  StrProvider  : String;
  StrDBFile    : String;
  StrExtended  : String;
begin
  ADOTable1.Close;
  StrProvider := 'Provider=Microsoft.Jet.OLEDB.4.0;';
  StrDBFile   := 'Data Source=' + 'ftp://sample.com/;';
  StrExtended := 'Extended Properties="Paradox 5.x;"';
  ADOTable1.ConnectionString := StrProvider + StrDBFile + StrExtended;
  ADOTable1.TableName := 'M_CUST.DB';
  ADOTable1.Open;
end;

ｿｽｿｽｿｽ@ｿｽｿｽLｿｽAftp://sample.com/ｿｽｿｽFtpｿｽﾚ托ｿｽｿｽﾅマｿｽCｿｽlｿｽbｿｽgｿｽｿｽｿｽ[ｿｽNｿｽﾉ登ｿｽ^ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽﾌペｿｽ[ｿｽWｿｽﾌトｿｽbｿｽvｿｽｿｽ