你连接成功没?
我这里有个例子你看以下吧,在有什么
问题发邮件:[email protected]
一定要给分啦!
将表中一个所有记录的某一字段读入treeview中procedure TForm1.FormCreate(Sender: TObject);
var
troot:ttreenode;
an:string;
begin
troot:=treeview1.Items.Add(nil,'全部类别');
adotable1.First;
while not adotable1.Eof do
begin
an:=adotable1.FieldValues['类别'];
treeview1.Items.Addchild(troot,an);
adotable1.Next;
end;
end;
我这里有个例子你看以下吧,在有什么
问题发邮件:[email protected]
一定要给分啦!
将表中一个所有记录的某一字段读入treeview中procedure TForm1.FormCreate(Sender: TObject);
var
troot:ttreenode;
an:string;
begin
troot:=treeview1.Items.Add(nil,'全部类别');
adotable1.First;
while not adotable1.Eof do
begin
an:=adotable1.FieldValues['类别'];
treeview1.Items.Addchild(troot,an);
adotable1.Next;
end;
end;
我的意思是,我升级了ado解决bof eof 的问题.
但是,又在插入数据的时候msado15.dll出错.
为什么,我在windows me 和 windows xp下都有错误.
高手来吧,马上给分!!!