Y
yashiro_x
Unregistered / Unconfirmed
GUEST, unregistred user!
最开始代码中的数据连接是SQL的,我改为DELPHI自己。老是出错。
-----下列代码中的TABLE2和table3原来都是query2.sql和query3.sql的
要怎么改才可以用到DELPHI自己的table啊?
怎么才可以完全连接。
高手可以告诉我怎么才可以改SQL的为DELPHI自己带的数据库吗?[]
特别是这句:table3.parambyname ('a').asstring:=province; --有错
procedure Tfbrowse1.FormCreate(Sender: TObject);
var province,areade;
begin
table2.ClearField:string [10];
thisnode:TTreeNos;
table2.Add ('select distinct 地区 from xsb');
table2.open;
thisnode:=treeview1.Items.GetFirstNode;
while not table2.Eof do
begin
province:=table2.fieldbyname ('地区').AsString;
thisnode:=treeview1.Items.add (thisnode,province);
table3.Clear;
table3.Add ('select distinct 家庭地址 from xsb where 省份=:a');
table3.parambyname ('a').asstring:=province;
table3.Open;
while not table3.Eof do
begin
area:=table3.fieldbyname ('家庭地址').asstring;
treeview1.Items.AddChild(thisnode,area);
table3.Next;
end;
table2.Next;
end;
-----下列代码中的TABLE2和table3原来都是query2.sql和query3.sql的
要怎么改才可以用到DELPHI自己的table啊?
怎么才可以完全连接。
高手可以告诉我怎么才可以改SQL的为DELPHI自己带的数据库吗?[]
特别是这句:table3.parambyname ('a').asstring:=province; --有错
procedure Tfbrowse1.FormCreate(Sender: TObject);
var province,areade;
begin
table2.ClearField:string [10];
thisnode:TTreeNos;
table2.Add ('select distinct 地区 from xsb');
table2.open;
thisnode:=treeview1.Items.GetFirstNode;
while not table2.Eof do
begin
province:=table2.fieldbyname ('地区').AsString;
thisnode:=treeview1.Items.add (thisnode,province);
table3.Clear;
table3.Add ('select distinct 家庭地址 from xsb where 省份=:a');
table3.parambyname ('a').asstring:=province;
table3.Open;
while not table3.Eof do
begin
area:=table3.fieldbyname ('家庭地址').asstring;
treeview1.Items.AddChild(thisnode,area);
table3.Next;
end;
table2.Next;
end;