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
相关问答：
我在模块里自定义了一个函数:stradd()
可是在adoquery1.sql.add('select stradd(author) from book');
时提示stradd未定义...
这个问题有什么办法可以解决的吗? 非常感激!
(在A ......
昨晚在Delphi数据库查询中遇到了一个疑惑。代码如下：
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
XY : string;
begin
XY := comboboxxy.Items[comboboxx ......
请问Delphi有树形控件吗？
怎样使用？
Ttreeview
treeview.items.addchild(nil(上级节点),'案发时发'(text));
raize 控件包里面有，csdn有下载的
查帮助TTreeView和TNode两个类
TTreeView ......
我本来在学校是弄的J2EE
昨天去了长沙一家公司应聘 说是有一个项目 delphi的
实习期一个月 四天半的delphi培训 后面25天给你一个设计文档自己做一个项目
走后不久打电话过来叫我星期一去报到
看到delphi� ......
void CAutoMsgDlg::OnBnClickedButton1()
{
CInternetSession netSession;
CHttpConnection *pHttpConn;
CHttpFile *pFile;
CString &nb ......
