Project pro.exe raised exception class EOleException with message '参数类型不正确,或不在可以接受的范围内,或与其他参数冲突‘??????????????
------------------------------------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
var
TopNode:TTreeNode;
begin
ADOQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:='select * from Collects';
ADOQuery1.Open;
TopNode:=treeTitle.Items.Add(nil,'Borland Delphi');
ADOQuery1.Filtered:=false;
ADOQuery1.Filter:='Type'''+'Borland''';
ADOQuery1.Filtered:=True;
if ADOQuery1.RecordCount >0 then
begin
while not ADOQuery1.Eof do
begin
treeTitle.Items.AddChild(TopNode,ADOQuery1.FieldValues['Title']);
ADOQuery1.Next;
end;
end;
ADOQuery1.Close;
end;
------------------------------------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
var
TopNode:TTreeNode;
begin
ADOQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:='select * from Collects';
ADOQuery1.Open;
TopNode:=treeTitle.Items.Add(nil,'Borland Delphi');
ADOQuery1.Filtered:=false;
ADOQuery1.Filter:='Type'''+'Borland''';
ADOQuery1.Filtered:=True;
if ADOQuery1.RecordCount >0 then
begin
while not ADOQuery1.Eof do
begin
treeTitle.Items.AddChild(TopNode,ADOQuery1.FieldValues['Title']);
ADOQuery1.Next;
end;
end;
ADOQuery1.Close;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货