Código Delphi [-] Query1.Close; Query1.Sql.Clear Query1.Sql.Add('Select Campo1, campo2, campo3'); Query1.Sql.Add('From MiTabla'); Query1.Sql.Add('Where Campo1 = '+ QuotedStr(Edit1.Text); Query1.Open;
Query1.Close; Query1.Sql.Clear Query1.Sql.Add('Select Campo1, campo2, campo3'); Query1.Sql.Add('From MiTabla'); Query1.Sql.Add('Where Campo1 = '+ QuotedStr(Edit1.Text); Query1.Open;
Código Delphi [-] case query1.recordcount off 0: showmessage('no existe'); 1: Begin //lenar datos end; else begin //mostrar lista de encontrados end; end; //case
case query1.recordcount off 0: showmessage('no existe'); 1: Begin //lenar datos end; else begin //mostrar lista de encontrados end; end; //case