with AdoQuery1 do
begin
close;
sql.Clear;
sql.text:=format('select 报名号,姓名,省份 from lsbmk where '+
'省份=''%s''',[edit1.text]);
open;
end;
begin
close;
sql.Clear;
sql.text:=format('select 报名号,姓名,省份 from lsbmk where '+
'省份=''%s''',[edit1.text]);
open;
end;
解决方案 »
- 如何直接向线程队列中发送消息?
- TIdTCPClient 如何创建线程来接受TidTCLserver 发送来的数据
- 怎么判断一个月有多少天???——————在线等待!!!!急急急啊!!!!!
- 再线强烈关注,各位请救命呀!非常急呀!
- 如何将页面导出到WORD中???
- for i:=0 to 10 do 语句中,我想退出循环,用exit,但我想继续执行for循环,用什么语句?loop不行,i:=i+1不行
- 想写一个可以读数字货币的控件,哪位高手知道关于语音方面的?
- delphi中如何使用bcb编译出来的lib文件呢
- 百分求救,QRRepot 画报表,数据集与报表列行互换问题.
- 有没有像c中的用首地址代表整个字符串?
- 用DELPHI编一些三层或多层的数据库软件,除了要用到ADO外还要用到一些什么工具?一般用DELPHI编什么样的软件最好(我现在靠DELPHI吃饭)?
- dll文件如何使用非可视控件?
with DataFrm.QLSBMK do
begin
close;
sql.Clear;
sql.add('select bmh,xm,sf');
sql.add('from artlsbmk');
sql.add('where sf=:sf');
parameters[0].value:=e1.text;
prepared;
Open;
end; {bmh,xm,sf分别是:报名号,姓名,省份}
但是dbgrid1不现实结果,dbgrid1的设置正确。
begin
Close;
SQL.Text := 'select * from artlsbmk where Field1= :Param1 and Field2=:Param2';
Parameters.ParamByName('Param1').Value := 'abc';
Parameters.ParamByName('Param2').Value := 2;
Open;
end;
ADO中的参数没有AsString, asInteger,全用.Value,
参数访问方法都用Parameters.ParambyName('ParamName').Value
其它的我没试,先用着吧。