to : Cipherliu(孤鹰) 谢谢你的代码,我好象想起来我用delphi5时做的和你好象一样,哎,当时就做不好,过去好几年了, 好麻烦,无论如何,谢谢你,如果能写的在具体点:)
Cipherliu(孤鹰) is ok
with query1 do begin close; sql.clear; sql.add('select * from infl where 字段1=:A and 字段2=:B') Params[0].AsString:=Edit1.Text; Params[1].AsString:=Combox1.Text; Open; end; :)
MartinWang(编程浪子)的一定行!俺就不重复了:)
with query1 do begin close; sql.clear; sql.add('select * from infl where 字段1=:A and 字段2=:B') Params[0].AsString:=Edit1.Text; Params[1].AsString:=Combox1.Text; Open; end; :)
在ADODataSet的CommandText里写入你要用的SQL语句。
tmpDataSet:TADODataSet;
tmpDataSet := TADODataSet.Create(nil);
//连接数据库
tmpDataSet.Connection := ADOConnection;
tmpDataSet.CursorType := ctStatic;
tmpDataSet.CommandText := select * from inf1 where 条件
tmpDataSet.open;
tmpDataSet.First;
Params[0].AsString:=Edit1.Text;
Params[1].AsString:=Combox1.Text;
谢谢你的代码,我是用一个Database和一个query和一个datasouce连接好了数据源我现在要从inf1中用SQL语句取满足条件的记录了,我是问该怎么做
先谢谢你的耐心,
谢谢你的代码,我好象想起来我用delphi5时做的和你好象一样,哎,当时就做不好,过去好几年了, 好麻烦,无论如何,谢谢你,如果能写的在具体点:)
is ok
begin
close;
sql.clear;
sql.add('select * from infl where 字段1=:A and 字段2=:B')
Params[0].AsString:=Edit1.Text;
Params[1].AsString:=Combox1.Text;
Open;
end;
:)
begin
close;
sql.clear;
sql.add('select * from infl where 字段1=:A and 字段2=:B')
Params[0].AsString:=Edit1.Text;
Params[1].AsString:=Combox1.Text;
Open;
end;
:)