2 respuestas en este tema

[Hapg18]

Ante todo reciban un cordial saludo de mi parte, soy novel en FPC Lazarus,no programaba en este lenguaje desde TurboPascal, voy al tema, hace 1 semana hice una aplicación que su principal función es conectarse a 1 DB MSSql Server y todo va perfecto, hasta que al TSQLQUERY le pongo una condición if then else para saber si consiguió o no el registro, en caso de que no lo consiga salta un tlabel indicando que no existe, pero no funciona
Aqui el fragmento con la falla:
 
 

delphi

{ Open query }
//SQLQueryExample01.open;
with SQLQueryExample01 do
 
begin
// while SQLQueryExample01.Eof do
//DataSourceExample01.DataSet.First;
//Reg := SQLQueryExample01.RecordCount.MinValue;
// if SQLQueryExample01.EOF then
if (DataSourceExample01.Dataset.BOF) then// and not (DataSourceExample01.DataSet.EOF) then
// SQLQueryExample01.IndexFieldNames:=;
 
begin
showmessage('*A La Belgas...!*');
//raise Exception.Create('*A La Belgas...!*');
STextNoExiste.Visible := True;
STextNoExiste.caption := 'EL Producto No Existe en el Inventario...!';
// edit1.SetFocus;
 
end
else
begin
 
dbtext1.DataSource := DataSourceExample01;//**SQLQueryExample01.FieldByName(Precio).asstring;
dbtext2.DataSource := DataSourceExample01;
dbtext1.DataField := 'Precio';
dbtext2.DataField := 'c_descri';
end;
 
if Active then
Close;
Open;
edit1.SetFocus;
end;
//
end;
{ begin
key:=#0;
SelectNext(ActiveControl,true,true);
end;}

 
Agradezco mucho cualquier ayuda que puedan ofrecer...! Gracias desde Venezuela

[Nikolas]

Hola, yo haría algo asi:

php

SQLQueryExample01.close;
SQLQueryExample01.SQL.Text:='select codigo,stock WHERE codigo = :cod';
SQLQueryExample01.ParamByName('cod').AsString:= buscado.text;
 
SQLQueryExample01.Open;
 if SQLQueryExample01.RecordCount = 0 then
         MessageDlg ('informe', 'No existe la busqueda';

 

[Hapg18]

Hola, yo haría algo asi:

delphi

SQLQueryExample01.close;
SQLQueryExample01.SQL.Text:='select codigo,stock WHERE codigo = :cod';
SQLQueryExample01.ParamByName('cod').AsString:= buscado.text;
 
SQLQueryExample01.Open;
 if SQLQueryExample01.RecordCount = 0 then
         MessageDlg ('informe', 'No existe la busqueda';

Ante todo, gracias por responder, ya lo resolvi, resulta que "SQLQueryExample01.Close;" no lo estaba colocando:
Aqui el codigo:

delphi

if  SQLQueryExample01.BOF and SQLQueryExample01.EOF then
    // if (SQLQueryExample01.FieldByName(Precio).AsFloat) < 1 then // and not (DataSourceExample01.DataSet.BOF) then
    // if Price < 1 then // and not (DataSourceExample01.DataSet.BOF) then
//         SQLQueryExample01.IndexFieldNames:=;
 
       begin
        //showmessage('*A La Belgas...!*');
          //raise Exception.Create('*A La Belgas...!*');
        STextNoExiste.Visible := True;
        STextNoExiste.caption := 'EL Producto No Existe en el Inventario...!';
       // edit1.SetFocus;
       end
     else
      begin
      SQLQueryExample01.Close;
       STextNoExiste.Visible := False;
       dbtext1.DataSource := DataSourceExample01;//**SQLQueryExample01.FieldByName(Precio).asstring;
       dbtext2.DataSource := DataSourceExample01;
       dbtext1.DataField := 'Precio';
       dbtext2.DataField := 'c_descri';
      end;
 
    if Active then
      Close;
      Open;
      edit1.SetFocus;
     end;
   //
     end;
    { begin
    key:=#0;
    SelectNext(ActiveControl,true,true);
      end;}
end;

 
Gracias NIkolas, recien voy migrando a Pascal Con Lazarus