Visualizar datos de una consulta SQL

[dsa132132]

Lo siento xo cometí un error cuando envié mi mensaje anoche,la estructura de la tabla RESERVA es esta;

ABONADO ; Texto
NUM_SORTEO ; Numerico
NUM_DECIMO ; Numerico
NUM_SEG_DECIMO ; Numerico
TIPO_SORTEO ; Texto

Disculpad.

Muchas gracias a todos por vuestro interes!!

[dsa132132]

Hola a todos de nuevo!!

Al escribir;

DMPrimitiva.Qinsertarjueves.parambyname('num_sorteo').value:= edit10.text;
DMPrimitiva.Qinsertarjueves.parambyname('num_sorteo2').value:= edit10.text;
edit2.Text := DMPrimitiva.Qinsertarjueves.fieldbyname('totalReg').AsString;

con Qinsertarjueves ('select count (num_decimo) as totalReg from reserva
where num_sorteo=:num_sorteo2')

Me da un error pq dice que no encuentra el parámetro num_sorteo2. Si se lo añado a Qinsertarjueves (junto con num_sorteo) me da un error y no puedo ejecutar la aplicación.

Alguna idea?

Muchas Gracias a todos!!

[roman]

¿¡Qué es esto!?

Para empezar, una instrucción como

Qinsertarjueves ('select count (num_decimo) as totalReg from reserva
where num_sorteo=:num_sorteo2')

ni siquiera va a compilar. Si no pones el código tal y como lo estás usando difícilemente te podremos ayudar.

Además primero dices que te da un error con esa instrucción de que no encuentra el parámetro y luego dices que "si se le añado a...". Pues ¿no era que ya lo tenías?

Escribe con claridad cómo asignas la consulta SQL, cómo asignas los parámetros y en qué orden lo estás haciendo y ya veremos.

// Saludos

[marto]

Wop!

O mucho me estoy atontando o aquí todo el problema radica en que estás intentado acceder como parámetro a lo que, en realidad, es un campo. Prueba con esto:

Código Delphi [-]
with DMPrimitiva.Qinsertarjueves do
begin
  Sql.Clear;
  Sql.Add('select count (*) from reserva');
  Sql.Add('where num_sorteo=:num_sorteo2');
  ParamByName('num_sorteo2').AsInteger := StrToInt(Edit1.text);
  Open;
  Edit2.Text := Fields[0].AsInteger;
  Close;
end;

[dsa132132]

Muchas gracias Marto!!

Un apunte, en la línea;

Edit2.Text := Fields[0].AsInteger; he tenido que poner
Edit2.Text := Fields[0].AsString; por incompatibilidad de tipos.

Por fin cerraremos este hilo de una vez por todas,jaja!!

Muchas Gracias a todos por vuestro gran interés, Saludos!!