连数据库的代码如何写？

Question

先配置好BDE
  db := TDataBase.Create(self);
  with db do
  begin
    AliasName := ;
    DatabaseName := ;
    Name :=;
    Params.Add('user name=');
    Params.Add('password=');
    LoginPrompt := false;
    Connected := true;
  end;

Answer 1

var
spath:string;
begin
spath:=extractfilepath(application.ExeName )+'yp_data.mdb';
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source='+ spath;
adoconnection1.loginprompt:=false;
adoconnection1.connected:=true;
adocommand1.commandtext:='select * from user_info';
adocommand1.commandType:=cmdText;
adodataset1.recordset:=adocommand1.execute;
while not adodataset1.recordset.eof do begin
co.items.add(adodataset1.recordset.fields['user_name'].value);
adodataset1.recordset.movenext;
end
end;