哪位老兄能给我一个关于查询方面的源程(新手指教)

Question

我是自学的,有哪位老兄能给我一个查询的源程,谢谢了.

Answer 1

with ADOQuery1 do 
begin
  if Length(SQL.Text)>0 then
    Clear;
  SQL.Add('SELECT * FROM SOMETABLE WHERE SOMEFIELD=SOMEVALUE');
  Open;
  //你要做的事情....
end;

Answer 2

with ADOQuery1 do 
begin
  Close;
  SQL.Text:='SELECT * FROM SOMETABLE WHERE SOMEFIELD=SOMEVALUE';
  Params.parambyname('SOMEVALUE').Value := 你要查询的值;
  Open;
  //你要做的事情....
end;

Answer 3

也可以不用SQL语言实现查询
用filtered也可以实现的。

Answer 4

在Delphi安装目录下的demo\db\下面有不少例程，看一下不就行了，很简单

Answer 5

ADOQuery1.Close
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from table where  字段名='+''''+Edit1.Text+'''');
ADOQuery1.open;

Answer 6

sql的查询很方便的
select * from sometable where 一些条件

Answer 7

with Query1 do
begin
  Close;
  SQL.Clear;
  SQL.Add('SELECT * FROM TABLE WHERE FIELD=:cValue');
  parambyname('cValue').AsString := '数据';
  ExecSQL;
  //你要做的事情....
end;

Answer 8

我也来混分
function TMainF.CheckUser(AUserName , AUserPwd : string):integer;
var
  Query : TQuery;
begin
  try
    Query := TQuery.Create(nil);
    Query.DatabaseName := DBName;
    Query.SQL.Add('select * from tsyhb where UserName=:UserName');
    Query.ParamByName('UserName').AsString := AUserName;
    Query.Open;
    if Query.RecordCount = 0 then
    begin
      MessageDlg('用户名错误',mtError,[mbok],0);
      Result := -1;
      Exit;
    end else begin
      if Query.FieldByName('UserPwd').AsString <> AUserPwd then
      begin
        MessageDlg('用户名或口令错误',mtError,[mbok],0);
        Result := -1;
        Exit;
      end
      else Result := Query.FieldByName('Class').AsInteger;
    end;
    Query.Close;
    Query.Free;
  except
     Result := -1;
     MessageDlg('连接数据库出错',mtError,[mbok],0);
  end;
end;

Answer 9

： goldencity(响马) 的
ADOQuery1.Close
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from table where  字段名='+''''+Edit1.Text+'''');
ADOQuery1.open;
''''+Edit1.Text+''''四个‘’‘’是什么意思？不要也行啊