Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > SQL
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 07-05-2020
webmasterplc webmasterplc is offline
Miembro
 
Registrado: mar 2008
Posts: 276
Poder: 17
webmasterplc Va por buen camino
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

Última edición por ecfisa fecha: 07-05-2020 a las 16:29:49. Razón: quitar emoji del codigo
Responder Con Cita
  #2  
Antiguo 07-05-2020
Avatar de movorack
[movorack] movorack is offline
Miguel A. Valero
 
Registrado: feb 2007
Ubicación: Bogotá - Colombia
Posts: 1.346
Poder: 20
movorack Va camino a la famamovorack Va camino a la fama
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.
__________________
Buena caza y buen remar... http://mivaler.blogspot.com

Última edición por movorack fecha: 07-05-2020 a las 23:12:11.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Capturar resultado de consulta con group by The_Mule SQL 3 06-12-2013 03:48:48
dll delphi funcion capturar resultado JXJ Varios 2 03-03-2011 19:18:00
Capturar Teclas de Función Saiyan OOP 3 28-02-2008 14:22:37
Como capturar el resultado de una consulta SQL Jose Manuel SQL 9 15-10-2005 13:40:37
Optener un Stream como "Result" en una funcion sitrico Varios 3 24-11-2004 23:06:38


La franja horaria es GMT +2. Ahora son las 20:01:59.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi