DELPHI请大家帮我看看这段搜索代码出错在哪儿啊？
procedure TForm4.BitBtn2Click(Sender: TObject);
begin
if (Trim(ComboBox2.Text) <>'')and(Trim(Edit3.Text) <>'')then
begin
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from 作业单资料 where');
SQL.Add(Trim(ComboBox2.Text));
SQL.Add('= :a');
Parameters.ParamByName('a').Value := Trim(Edit3.Text);
Open;
end;
if ADOQuery1.RecordCount >0 then
begin
DataSource1.DataSet := ADOQuery1;
end
else
begin
DataSource1.DataSet := Nil;
Application.MessageBox('信息不全或不存在。','提示',64);
end;
end;
end;
DataSource1.DataSet := ADOQuery1;(这句运行的时候错误)
提示错误:DataSource1:circular datalinks are not allowed
这段代码想实现的功能是把搜索出来的数据通过DATASOURCE1显示在DBGRID
还有我想把把弄成模糊搜索,要怎么写?给个思路^^
看你的最终VIEW控件是不是也用ADOQUERY1 比如DBGRID
你的ADOQuery1.DataSource是不是设成了DataSource1
循环引用
检查Dat
相关问答：
昨晚在Delphi数据库查询中遇到了一个疑惑。代码如下：
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
XY : string;
begin
XY := comboboxxy.Items[comboboxx ......
delphi 手动装载驱动文件提示：
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
是不是这个驱动必需要用INF来安装。。用自带的INF来装是正常的。用手动装载就提示如上� ......
各位高手赶快帮帮忙。
现在有一个delphi写的dll，函数中有PInteger的返回参数，在delphi中可以正常调用，但是我在vb里写的时候就不知道该怎么来调用了。
请看代码
以下是delphi中的函数定义和调用代码，能正常运� ......
急用。联系QQ：8775262，谢谢。
需要进行DllImport的地方直接写DLLImport.方法名。
如：DLLImport.GlobalAddAtom(……);
文件：UShare.pas
Delphi(Pascal) code:
unit UShare;
interface
uses Windows, Me ......
