F�rum parametros TSqlQuery #392557

15/12/2010

Pessoal

Parece que o SqlQuery n�o aceita passar param ou no que estou errando.

Tenho um form onde o usuario informa data e data2 para emissao das vendas de um certo cliente.
O SqlQuery n�o est� deixando, o que est� errado ????

Grato.

SELECT B.NOME, A.DATA, A.DOCUMENTO, A.NUMERO, A.TOTAL
FROM TVENDAS A INNER JOIN TBCLIENTES B ON (A.CLIENTE = B.CONTROLE)
WHERE (A.DATA >= :DATA1 AND A.DATA <= :DATA2)

Grato

Marcos Roberto

Curtir t�pico

+ 0

Responder

Posts

16/12/2010

Felipe Caputo

depois de colocar o commando sql vc tem q ir na propriedade Params do Objeto e definir o tipo de cada par�metro. Logo depois vai estar funcionando perfeitamente

Responder

Gostei + 0

16/12/2010

Marcos Roberto

Felipe

Isto eu j� fiz, mas o problema continua assim mesmo, parece que o bug � quando usa data.
fico no aguardo.
vlw

Responder

Gostei + 0

16/12/2010

Felipe Caputo

se voc� usa firebird, n�o existe par�metro do tipo datetime, escolha ftDate, ftTime ou ftTimeStamp

Responder

Gostei + 0

16/12/2010

Marcos Roberto

Estou usando o componente TDateTimePicker e notei que para consultar no IBExpert tenho que passar MM/DD/AAAA e o TdateTimePicker parece que manda DD/MM/AAAA.
Tentei mudar o parametro data para string, depois peguei o TdateTimePicker e converti para 'MM/DD/AAAA' e passei para o Parametro, mesmo assim continua o erro 'dbExpress Error: Operation not Supported' quando chamo o relatorio QuickReport.

* funcao MMDDAAAA retorna uma data 'MM/DD/AAAA' j� confirmei t� ok
Edit1 e Edit2 sao do form do componente TDateTimePicker

segue:

    sqlComando := 'SELECT * FROM TVENDAS ';
    sqlComando := sqlComando + ' INNER JOIN TBCLIENTES ON TVENDAS.CLIENTE = TBCLIENTES.CONTROLE ';
    sqlComando := sqlComando + 'WHERE (TVENDAS.DATA >= :data1) AND (TVENDAS.DATA <= :data2) ';
    dm1.QryVLDia.Active := false;
    dm1.QryVLDia.Close;
    dm1.QryVLDia.SQL.Clear;
    dm1.QryVLDia.SQL.Add(sqlComando);
    dm1.QryVLDia.ParamByName('data1').AsString := MMDDAAAA(dateToStr(Edit1.date)) ;
    dm1.QryVLDia.ParamByName('data2').AsString := MMDDAAAA(dateToStr(Edit2.date));
    dm1.QryVLDia.Open;
    dm1.QryVLDia.Active := true;

* j� tentei verificar o dm1.QryVLDia.Reccount ai o erro passa a ser neste ponto

    F_Vdia.QuickRep1.Preview;

* se comentar a linha que chama o 'F_Vdia.QuickRep1.Preview' o erro n�o apresenta mais. Ent�o se tudo ocorreu bem porque o dm1.QryVLDia.Reccount d� o erro ???

Estou cansado, rsrsrsrsrsrs

Valeu

Responder

Gostei + 0

16/12/2010

Leonardo Xavier

Tente assim:

    dm1.QryVLDia.Close;
    dm1.QryVLDia.SQL.Clear;
    dm1.QryVLDia.SQL.Add(' SELECT * FROM TVENDAS INNER JOIN TBCLIENTES ON TVENDAS.CLIENTE = TBCLIENTES.CONTROLEWHERE (TVENDAS.DATA >= :data1)  AND  (TVENDAS.DATA <= :data2)');
    dm1.QryVLDia.ParamByName('data1').AsString := MMDDAAAA(dateToStr(Edit1.date)) ;
    dm1.QryVLDia.ParamByName('data2').AsString := MMDDAAAA(dateToStr(Edit2.date));
    dm1.QryVLDia.prepared;    
    dm1.QryVLDia.Open;

Responder

Gostei + 0

17/12/2010

Marcos Roberto

Ainda n�o funciona.
Vou refazer o relatorio para ver se resolve;
J� tentei usar o relatorio sem passar os parametros e func legal. o problema s�o os parametros, vou investigar mais.

vlw

Responder

Gostei + 0

17/12/2010

Marcos Roberto

Resolvi da seguinte forma, ja incluo as datas formatas na senten�a SQL e depois fa�o a query.
Mas ainda preciso saber como efetuar querys passando parametros, se alguem puder me ajudar agrade�o.

vlw

Responder

Gostei + 0

28/12/2011

Andre Nobre

MRoberto, tenta fazer assim:

[code]
SQLQuery.close;
SQLQuery.sql.clear;
SQLQuery.sql.add(SELECT B.NOME, A.DATA, A.DOCUMENTO, A.NUMERO, A.TOTAL );
SQLQuery.sql.add(FROM TVENDAS A INNER JOIN TBCLIENTES B ON (A.CLIENTE = B.CONTROLE) );
SQLQuery.sql.add(WHERE (A.DATA >= :DATA1 AND A.DATA

Responder

Gostei + 0

28/12/2011

Andre Nobre

MRoberto,

Esqueci de falar, que tem que usar a unit "SQLTimSt".

Falow...

Responder

Gostei + 0