delphi+ado查询记录问题

来源：百度知道 编辑：UC知道 时间：2024/06/09 01:25:11
delphi+ado查询记录问题，用的下面的方法，怎么不成功？

procedure TForm1.FormShow(Sender: TObject);
var
i,j:integer; //for循环变量只能是局部变量
sql,item:String;
ConStr:string;
begin
ConStr:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\book.mdb;Persist Security Info=False;Jet OLEDB:Database Password=123456';

sql:='select phone from mybiao'; //通常是查询单个字段
ADODataSet1.Active:=false;

ADODataSet1.CommandText:=sql;
ADODataSet1.Active:=true;

j:=ADODataSet1.RecordCount; //j和后面的i定义为整形变量
ADODataSet1.First; //使指针指向（移动到）第一条记录
Combobox1.Items.Clear; //下拉框

Combobox1.Items.Add('请选择...'); //添加一个提示项到下拉框项目中
for i:=1 to j do //j为查询结果的记录数
begin
item:=ADODataSet1.FieldValues['phone'];

procedure TForm1.FormShow(Sender: TObject);
var
i,j:integer; //for循环变量只能是局部变量
sql,item:String;
ConStr:string;
begin
ConStr:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\book.mdb;Persist Security Info=False;Jet OLEDB:Database Password=123456';

sql:='select phone from mybiao'; //通常是查询单个字段
ADODataSet1.Active:=false;
//加上下面这句,哈哈。不过一般不这么玩/////////////////////////
ADODataSet1.ConnectionString := ConStr;
//////////////////////////
ADODataSet1.CommandText:=sql;
ADODataSet1.Active:=true;

j:=ADODataSet1.RecordCount; //j和后面的i定义为整形变量
ADODataSet1.First; //使指针指向（移动到）第一条记录
Combobox1.Items.Clear; //下拉框

Combobox1.Items.Add('请选择...'); //添加一个提示项到下拉框项目中
for i:=1 to j do //j为查询结果的记录数