Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)
-   -   Acceso al resultado de una consulta SQL (https://www.clubdelphi.com/foros/showthread.php?t=34628)

beatriz g 16-08-2006 08:56:40

Acceso al resultado de una consulta SQL
 
Hola, estoy programando uan aplicacion en delphi para tener acceso a una base de datos mysql, tengo el siguiente codigo parar realizar una consulta sql:

q_2.SQL.Clear();
q_2.SQL.Add('select count(*) from personas where (personas.expediente = :p1 and NOT (personas.tipo_parentesco = :p2) and NOT(personas.tipo_parentesco= :p3))');
q_2.ParamByName('p1').AsString := e_e.Text;
q_2.ParamByName('p2').AsString := 'TITULAR1';
q_2.ParamByName('p3').AsString :='TITULAR2';
q_2.ExecSQL;

Asi se debe ejecutar la consulta, pero ¿Como accedo al resultado de la consulta?
Gracias.

Enan0 16-08-2006 12:46:58

calqulo Q_2 es un Componente QUErY. Solamente Cambia el EXECSQL
por un OPEN; Con eso vas a tener los datos en el Componente Query.

Código Delphi [-]

 q_2.SQL.Clear();
 q_2.SQL.Add('select count(*)  from personas where (personas.expediente = 1 and NOT (personas.tipo_parentesco = 2) and NOT(personas.tipo_parentesco= 3))');
 q_2.ParamByName('p1').AsString := e_e.Text;
 q_2.ParamByName('p2').AsString := 'TITULAR1';
 q_2.ParamByName('p3').AsString :='TITULAR2';
//q_2.ExecSQL;
 q_2.OPEN;

While not Q_2.Eof do begin
    Var1:=Q_2.FieldsByName('Nombre').asString;
    ...
    ...
    Q_2.Next;
end;

nemesio 16-08-2006 20:27:19

Relaciona la consulta con un Datasource y luego relaciona este a un DBGrid, ahi podrás ver el resultado de los datos obtenidos por tu consulta.

Saludos.


La franja horaria es GMT +2. Ahora son las 20:45:15.

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