Fórum Conectando na DBGrid #180077

 
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;

if edtPesq.Text <> ´´ then
       begin
        with DtaObjetos do
        begin
           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 = "´+ edtPesq.Text +´"´);
            Open;
            ExecSQL;
           end;
           //DtsGrid.Free;
           //dbgAluno.Free;
           //DtsGrid.DataSet := qryQuery;
           //dbgAluno.DataSource := DtsGrid;
           //oCn.Close;
           //oCn.Connected := False;
           //qryQuery.Close;
           //qryQuery.Active := False;
        end;
        end
        else
           ShowMessage(´Por favor, digite algo´);
           edtPesq.SetFocus;
        end;