Problema con Consulta

[Salnhack]

quien me pude ayudar y decirme que hay mal en este codigo

Código Delphi [-]
var id_mes:Integer;
begin
  with DataModule4.Query1 do
      begin
       close;
       SQL.Clear;
       SQL.Add('Select (id_mes) from mes where descmes='+ QuotedStr(suiDBLookupComboBox2.Text));
       Open;
       id_mes:=FieldByName('id_mes').AsInteger;
      end;
  With DataModule4.Query4 do
   begin
    Close;
    SQL.Clear;
    SQL.Add('Select cultivos.desccultv,plsiembra.plsiembra from cultivos,plsiembra where plsiembra.pid_mes=:mes');
    ParamByName('mes').AsInteger:=id_mes;
    Open;
   end;

cunado lo compilo me dice que faltan parametros

[microbiano]

y que error te manda o que parametro te marca que no esta definido?

en que linea?

creo que el error esta en:

Código Delphi [-]
With DataModule4.Query4 do
   begin
    Close;
    SQL.Clear;
    SQL.Add('Select cultivos.desccultv,plsiembra.plsiembra from cultivos,plsiembra where plsiembra.pid_mes=:mes');
    parameters.ParamByName('mes').AsInteger:=id_mes;
    Open;
   end;

[Salnhack]

microbiano:

Gracias, pero no es error en el codigo porque lo borre y lo volvi a escribir y ahora me funciona parece que es algun problema con el Delphi, tengo que reintalar. Muchas Gracias de Todas formas.

[Salnhack]

Hola soy yo otra ves con otro problem,

my problem es que cuando ejecuto un consulta de seleccion y la muestro en un DBGrid, me muestra repetido eje

tengo tres tablas relacionadas Mes(id_mes,descmes), Planventa(id_plventa,id_mes,id_concventa,plventa,), Conceptoventa(id_concventa,concventa).
cuando seleciono mes me debe mostrar en el DBGrid los concepto venta (concventa) con los Planes que le corresponde de la tabla Planventa, me lo muestra pero repetidos aunue en la base dato esta bien (no esta doble),

este es el codigo que utilizo

Código Delphi [-]
var 
  id_mes:Integer; 
begin
   with DataModule4.Query1 do
     begin
      close;
      SQL.Clear;
      SQL.Add('Select (id_mes) from mes where descmes=:mes');
      ParamByName('mes').AsString:=suiDBLookupComboBox2.Text;
      Open;
      id_mes:=FieldByName('id_mes').AsInteger;
    end;
   with datamodule4.Query4 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('Select Conceptoventa.concventa,Planventa.plventa from Conceptoventa,Planventa where Planventa.id_mes=:mes');
      ParamByName('mes').AsInteger:=id_mes;
      Open;
    end;
    suiDBGrid1.Refresh;
end;

Please Help,

[ecfisa]

Hola Salnhack.

Por favor si tu consulta se refiere a la misma situación no abras un nuevo hilo con ella. Tal como dice el punto 6 de la Guía de estilo:

Nadie me contesta

Si te encuentras en esta situación, te aconsejaría que en vez de abrir otro tema, con lo que podría perderse información previa sobre el tema que expusiste en un principio, siguieses el tema que tu mismo iniciaste en su día, escribiendo una nueva contestación. De esta manera el tema se actualizará y pasará a la cabecera del foro, y se marcará como no leido para el resto de usuarios. Así evitamos duplicar información innecesariamente.

Otro motivo por el que es posible que no te hayan contestado es porque puedes haberte explicado mal. Sería conveniente en este caso que trataras de ampliar la información que has escrito en el primer mensaje de tu tema. Así podrías ayudar al resto de usuarios a que respondan más claramente.

Un saludo y gracias por tu colaboración.

[ecfisa]

Hola Salnhack.

No he echo la prueba, pero creo que se podría resumir a una sola consulta, más o menos así:

Código Delphi [-]
...
  with DataModule4 do
  begin
    Query1.Close;
    Query1.SQL.Clear;
    Query1.Add('SELECT Conceptoventa.concventa, Planventa.plventa');
    Query1.Add('FROM Conceptoventa, Plantaventa, mes');
    Query1.Add('WHERE mes.descmes = :FOUND');
    Query1.Add('AND Plantaventa.id = mes.descmes');
    Query1.ParamByName('FOUND').AsString:= suiDBLookupComboBox2.Text;
    Query1.Open;
  end;
...

Un saludo.

[Salnhack]

Hola ecfisa

He revizado el codigo que me sugeriste pero el temas es que las tablas mes y Planventa estan relacionadas 1:M, por los campos id_mes(llave primaria tabla mes) y id_mes(tabla Planventa) los campos son de tipo numero, en el combobox yo visualizo la descripcion del mes (descmes:texto) y hago una consulta para almacenar en una variable el id del mes selecionado para luego utilizarla a la hora de hacer la consulta de seleccion y despues visualizarla en el dbgrid el plan del mes correpondiente, si hay otra forma de hacerlo que sea mejor y proporciona mas robustez a la aplicacion y agilidad por favor decirme me serviria de mucho, soy algo nuevo en el trabajo con las base de dato en delphi y no conosco todas las funcionalidades del trabajo con las mismas,
Ademas con el codigo me trabaja casi bien pero a la hora de visualizar los datos de la consulta en el dbgrid se me duplican ejemplo

tengo por concepto de venta los siguiente

Venta de Software
Mantenimiento de Software
Mantenimiento de PC

cuando el dbgrid me visualiza la consulta del mes de enero
me da

Concepto de Venta Plan
Venta de Software 10
Mantenimiento de Software 10
Mantenimiento de PC 10

y en la base dato

solo tengo

Venta de Software 10

y he probado y me repite por cada concepto de venta el plan, aunque no le corresponda;


Muchas Gracias,

[ecfisa]

Hola SalnHack.

Creo que está duplicando el resultado por una omisión mía. Por favor probá de este modo:

Código Delphi [-]
 with DataModule4 do
  begin
    Query1.Close;
    Query1.SQL.Clear;
    Query1.Add('SELECT DISTINCT CONCEPTOVENTA.CONCVENTA, PLANVENTA.PLVENTA');
    Query1.Add('FROM CONCEPTOVENTA, PLANVENTA, MES');
    Query1.Add('WHERE MES.DESCMES = :FOUND');
    Query1.Add('AND PANVENTA.ID = MES.DESCMES');
    Query1.ParamByName('FOUND').AsString:= suiDBLookupComboBox2.Text;
    Query1.Open;
  end;

Un saludo y disculpas.