procedure TForm2.Button1Click(Sender: TObject);
var
count:string;
password1:string;
//rs:datasets;//如何定义一个结果集合的类型?
begin
  if(form2.edit1.Text<>'')and (form2.Edit2.Text<>'')then
    begin
    form2.ADOQuery1.SQL.Add('select from table1 where username=? and password=?');
    form2.ADOQuery1.Parameters[0].Value:=form2.edit1.Text;
    form2.ADOQuery1.Parameters[1].Value:=form2.Edit2.Text;
    form2.ADOQuery1.open();//如何得到结果集
     if form2.ADOQuery1.open() then//如何判断结果为空?
     begin
     form2.Hide;
     form1.Show;
     end;
     end;
     else
     showmessage('df');

解决方案 »

  1.   

    我的数据库事sql server2000,连接成功!如果解决,立刻揭贴/谢谢
      

  2.   

    if adoquery1.RecordCount<=0 then 结果为空
      

  3.   

    if adoquery1.fields[0].IsNUll then 
      showmessage('结果为空');
      

  4.   

    为什么要取得记录集结果?给谁?
    AdoQ2.Dataset := AdoQ1.Dataset;   //Dataset is a _Recordset type.空判断if (AdoQ2.Bof and AdoQ2.Eof) then //Empty, have no record.
      

  5.   

    1
    if ADOQuery1.recordcount>0 then
    not null
    2
    if not (ADOQuery1.eof and ADOQuery1.bof) then
    not null
    3
    if not  ADOQuery1.isempty then
    not null
    结果集:访问userName字段
    ADOQuery1.fieldbyName("UserName").value
    ADOQuery1.fields[1].value//1表示第二个字段
    ADOQuery1.fieldsvalue[1]
    .............................
      

  6.   

    if ADOQuery1.RecordCount = 0 then
    begin
     ShowMessage("结果集为空!!!");
    end;
      

  7.   

    ADOQuery1.RecordCount = 0 或者ADOQuery1.eof判断都可以
      

  8.   

    if Query.IsEmpty then 
    begin
    shomessage('');
    exit;
    end;