难度好大。 delphi 连接数据库。。。

 

对象                         对象类型                        属性                                      值  
 ADOConnection1    TADOConnection             connectionstring               （连接字符串)    
 ADODataSet1         TADODataSet                 connection                       ADOConnection1
 DataSource1          TADODataSource             DataSet                                ADODataSet1
 DBGrid1                 TDBGrid                        DataSource                           DataSource1

 

 

 

function GetParadoxConnectionString(Path: string; Password: string): string;
var
s: string;
begin
s := 'Provider=Microsoft.Jet.OLEDB.4.0;';
s := s + 'Data Source=' + Path + ';';
s := s + 'Extended Properties=Paradox 7.x;Persist Security Info=False;';
s := s + 'Mode=Share Deny None;';
if Password <> '' then
s := s + 'Jet OLEDB:Database Password=' + Password;
Result := s;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ADODataSet1.Active:=false;
  ADOConnection1.Close; //保证连接是关闭的才能设置它的CommandText属性等
ADODataSet1.Close;

  ADOConnection1.ConnectionString:= GetParadoxConnectionString('C:\WORK',‘xxxx');
  ADODataSet1.CommandText := 'select * from xxxx.DB';

  ADOConnection1.Open;  
ADODataSet1.Open;
ADODataSet1.Active:=true;
end;

 

 

运行一下就可以看到结果了。
它会要求我们输入密码。然后就有结果了。
如果你不想要密码的话，就在调用设置ADOConnection1的LoginPrompt属性为false。

 

 

http://blog.chinaunix.net/uid-25958655-id-3141086.html