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;道理一样
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;道理一样
uses ADOConEd;
procedure TForm1.Button1Click(Sender: TObject);
begin
editconnectionstring(adoquery1);
end;