Fórum ADOQuery Grid #180131

if edtPesq.Text <> ´´ then
       begin
        with DtaObjetos do
        begin
           DtsGrid.DataSet := nil;
           oCn.Close;
           oCn.Connected := False;
           oCn.Connected := True;
           oCn.Open;
           with qryQuery do
           begin
            Active := False;
            Active := True;
            Close;
            SQL.Clear;
            SQL.Add(´Select * from tblaluno where nome like "´+ edtPesq.Text +´¬"´);
            Open;
         end;
           if not Eof then
               Begin
                  ShowMessage(´true´);
                  //DtsGrid.DataSet := qryQuery;
                  //dbgAluno.DataSource := DtsGrid;
               End
            else
               Begin
                  ShowMessage(´False´);
               End;

            //oCn.Close;
           //oCn.Connected := False;
           //qryQuery.Close;
           //qryQuery.Active := False;
        end;
        end
        else
           ShowMessage(´Por favor, digite algo´);
           edtPesq.SetFocus;
        end;

   Dataset does not suport bookmarks which are required for multi-record data controls

with DtaObjetos do
        begin
           oCn.Connected := True;
           oCn.Open;
           with qryQuery do
           begin
            Active := True;
            Close;
            SQL.Clear;
            SQL.Add(´Select * from tblaluno where matricula = -1´);
            Open;
            //ExecSQL;
           end;
           DtsGrid.DataSet := qryQuery;
           dbgAluno.DataSource := DtsGrid;
           //oCn.Close;
           //oCn.Connected := False;
           //qryQuery.Close;
           //qryQuery.Active := False;
        end;