procedure TForm1.TreeView1Click(Sender: TObject);
var msg:string;
begin
Edit1.Text:=treeview1.Selected.Text;
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('select num from unit where 单位 =''' +treeview1.Selected.Text+'''');
ADOQuery2.Open;msg:=ADOQuery2.FieldValues['num'];
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery2.SQL.Add('select name from ry where lev like''' +msg+'''');
ADOQuery2.Open;
end;
end.
var msg:string;
begin
Edit1.Text:=treeview1.Selected.Text;
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('select num from unit where 单位 =''' +treeview1.Selected.Text+'''');
ADOQuery2.Open;msg:=ADOQuery2.FieldValues['num'];
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery2.SQL.Add('select name from ry where lev like''' +msg+'''');
ADOQuery2.Open;
end;
end.
解决方案 »
- 瞧一瞧,看一看,小弟有个问题,没有解决,请各位高手帮忙,已经困扰几天了。。。。。
- 想问问加速ide的用啥好,
- 系统分析员要求具备哪些条件??
- ★★★自己都觉得感动啊,耗时将近两周,终于闹了个4个三角啊★★★
- 请问哪里有播放wmv文件的空件???
- delphi过程与函数有什么区别??
- 有谁知道怎样设置窗口 浏览文件夹 的返回路径?
- 怎样在DELPHI里调用WINDOWS里的非动态库函数
- 这个问题把我折腾了几天,请各位大虾帮我看看。解决者我一定高分送出,决不食言!
- nmsmtp控件怎样在邮件中以附件形式发送文件
- 求救,,,BDE问题!!!
- 公司新版开发要用DELPHI7,那位大虾能给介绍一些好用的第三方控件for Delphi7的?
=>ADOQuery2.SQL.Add('select num from unit where 单位 =' + QuotedStr(treeview1.Selected.Text));
//建议碰到这种情况都用函数,否则如果 字符串中包括“'”就会出错msg:=ADOQuery2.FieldValues['num'];
=> msg:=ADOQuery2.FieldByName('num').asstring; //如果IS NULL会出错ADOQuery2.SQL.Add('select name from ry where lev like''' +msg+'''');=>
ADOQuery2.SQL.Add('select name from ry where lev like' +QuotedStr(msg+'%')); //LIKE肯定要加%吧
应该是
like ''' + msg + ''''
like后面少了个空格
sql server就是用%
但是像access数据库用的就是#(要不就是*)
adoquery.sql.text:='.....'就不用先clear再add了~多麻烦