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;道理一样

解决方案 »

  1.   

    动态给ConnectionString赋值,不会就COPY “Build”后的字符串
      

  2.   

    delphi5 自带的例子在"..\Borland\Delphi5\Demos\Ado\Adotest"下讲的很详细
      

  3.   

    就是不知道将来ConnectionString会是什么,才提这个问题啊
      

  4.   

    添加adoquery1
    uses ADOConEd;
    procedure TForm1.Button1Click(Sender: TObject);
    begin
     editconnectionstring(adoquery1);
    end;
      

  5.   

    请教一下各位大侠MYSQL安装的问题,我在MYSQL的网站下载了一个Mysql for Win ,可是下载下来解压后,一点Setup,还安装向导还没有装完,就出现了“Unstall is in use,please close it and start setup later !”错误,我重启动了几次,安装都出现这个错误,后来我有下载了一个,还是这个问题啊,这里为什么啊??