Foros Club Delphi - Como Capturar el Result: Bolean de una Funcion dll (Consulta SQL)

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)

- - Como Capturar el Result: Bolean de una Funcion dll (Consulta SQL) (https://www.clubdelphi.com/foros/showthread.php?t=94644)

Como Capturar el Result: Bolean de una Funcion dll (Consulta SQL)

Buenas,estoy pasando las funciones de consultas sql a archivos dll en mi aplicacion,pero la duda es capturar el resultado boleano de la consulta y como traerme elmresultado que me resulte de un select aqui dejo parte de mi codigo

Código Delphi [-]//Guardamos Las Clasificaciones
function guardarclasificaciones(clas_nombre, clas_materiales, clas_herramientas, clas_equipos, clas_articulos:string): Boolean;
var
  q: TMyQuery;
begin
  q := TMyQuery.Create(nil);
  try
    q.Connection := con; // con is either TMyConnection or TMyEmbConnection already set up
    q.SQL.Clear;
    q.SQL.Add('INSERT INTO matdav_clasificacion(clas_nombre, clas_materiales, clas_herramientas,clas_equipos,clas_articulos) VALUES (:pnombre, :pmateriales, :pherramientas,:pequipos,:particulos);');
    q.ParamByName('pnombre').AsString := clas_nombre;
    q.ParamByName('pmateriales').AsString := clas_materiales;
    q.ParamByName('pherramientas').AsString := clas_herramientas;
    q.ParamByName('pequipos').AsString := clas_equipos;
    q.ParamByName('particulos').AsString := clas_articulos;
    q.Execute;
    Result:=q.Active;
  finally
    q.Free;
    con.Free;
  end;
end;
function borrarclasificaciones(clas_id:Integer): Boolean;
var
  qdelete: TMyQuery;
begin
  qdelete := TMyQuery.Create(nil);
  try
    qdelete.Connection := con; // con is either TMyConnection or TMyEmbConnection already set up
    qdelete.SQL.Clear;
    qdelete.SQL.Add('delete from matdav_clasificacion');
    qdelete.SQL.Add('where clas_codigo=:pid');
    qdelete.ParamByName('pid').AsInteger := clas_id;
    qdelete.Open;
    Result:=qdelete.Active;
  finally
    qdelete.Free;
    con.Free;
  end;
end;

Utiliso Mysql, Delphi Xe10.1 berlin

Hola,

La propiedad Active del dataset no te indica si la consulta obtuvo resultados. Para eso, puedes usar el método isEmpty

Aunque, como en el ejemplo que presentas estas haciendo un INSERT y un DELETE, debes cambiar el Open por ExecSQL ya que el Open se usa cuando vas a obtener un resultado de la consulta.

Y volviendo al primer punto, luego del ExecSQL, el dataset estará vacío ya que no tiene resultados. Para eso puedes usar la propiedad RowsAffected

Por último, esta recomendación puede serte válida para la construccion de DLL's

Cita:

Empezado por Rudy Velthuis

Fuente: DLL dos and don’ts

Booleanos

Los booleanos son un poco complicados. En algunos lenguajes, todo lo que no sea 0 se considera verdadero, mientras que en otros, los valores booleanos están restringidos a los valores ordinales 0 y 1 solamente (y en algunos a 0 y -1).

Para manejar esto, debe devolver un valor definido (como el tipo HRESULT definido por Microsoft) en lugar de un valor booleano, o utilizar un LongBool. Este último es el equivalente de Delphi de un entero booleano, es decir, 0 (cero) se trata como Falso y cualquier otro valor como Verdadero.