SQL+DELPHI
A1:=QUERY3.FIELDBYNAME('姓名').ASSTRING;
if query3.rowsaffected>0 then
begin
with query2 do
begin
close;
sql.Clear;
sql.Add('select * from bs where TRIM(A1)='+''''+edit1.text+'''');
open;
引用A1后提示A1无效的列名,我知道不应该这样写,可我实在是想不出来其它办法了,请叫了.
A1:=QUERY3.FIELDBYNAME('姓名').ASSTRING;
if query3.rowsaffected>0 then
begin
with query2 do
begin
close;
sql.Clear;
sql.Add('select * from bs where TRIM(A1)='+''''+edit1.text+'''');
open;
引用A1后提示A1无效的列名,我知道不应该这样写,可我实在是想不出来其它办法了,请叫了.
解决方案 »
- 请教个问题,腾讯聊天是udp还是TCP?
- [急]遇到EClassNotFound异常,请有经验的兄弟帮忙解释一下!
- 如何将系统的Clipboard中的内容存入到一个stream中呢?
- 控件问题
- 求助,有关(dbgrideh)
- Delphi开发的系统服务程序中如何使用数据库敏感控件?
- 对这方面的认识不足,请各位提供些参考。一套客户关系管理软件的源代码可以卖多少?
- Delphi DLL 中不能创建含ActiveX 的 Form,如何调用CoInitialize()
- quickReport的问题
- ?那位高手知道如何用delphi实现有类似Office2000的折叠菜单?
- 用DELPHI做电信SP客户端程序的大侠救我!!
- 发布一个录入Lookup字段值的小控件
begin
with query2 do
begin
close;
sql.Clear;
sql.Add('select * from bs where '+TRIM(A1)+'='+Quotedstr(edit1.text);
open; end;
begin
Close;
SQL.Clear;
sql.Add('select * from bs where TRIM(:#A1)= :#cs');
ParamByName('#A1').Value :=QUERY3.FIELDBYNAME('姓名').ASSTRING;
ParamByName('#A1').Value :=edit1.txt;
open;
end;
var
a1,s :string;
begin
A1:=QUERY3.FIELDBYNAME('姓名').ASSTRING;
if query3.rowsaffected>0 then
begin
with query2 do
begin
close;
sql.Clear;
s := 'select * from bs where trim('+a1+')= :#cs';
ParamByName('#cs').Value :=edit1.txt;
open;end;
sql.add('select * from bs where '+Trim(A1)+'='''+Trim(Edit1.text)+'''');