delphi7如何纯代码ado连接数据库?
本帖最后由 hst 于 2012-4-4 10:50 编辑如题,
procedure TForm1.FormCreate(Sender: TObject);
var
i,j:integer; //for循环变量只能是局部变量
sql,item:String;
ConStr:string;
begin
ConStr:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\db1.mdb;Persist Security Info=False';
sql:='select name from data'; //通常是查询单个字段
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为查询结果的记录数
begin
item:=ADODataSet1.FieldValues['name'];
//逐一引用当前记录的指定字段值
Combobox1.Items.Add(item); //添加到下拉框项目中
ADODataSet1.Next; //指针移动,指向下一条记录
end;
Combobox1.Text:='请选择...'; //显示提示值
end;
end.
------------------------------------------------
{:5_94:}这个还真没试过
页:
[1]