Fórum ordernar por nome, data... #349649
26/11/2007
0
Seguinte,eu preciso não somente ordenar por nome e data mas tbm apresenta os somente por data vencida, a vencer e normais.
Eu estou apagando a Query, utilizo o componente SQLQuery, e substituindo por um novo comando SQL pra query. Bom essa troca de SQl esta ok, o problema eh na criação do parametro. Segue o trecho do codigo
CdsTabela1.Close;
QrTabela1.Params.Clear;
QrTabela1.SQL.Clear;
QrTabela1.SQL.Add.(CdsTabela2SQL.Value);
QrTabela1.Params[0].AsInteger := DblookupComboBox1.KeyValue;
CdsTabela1.Open;
até o momento que é feito o add da SQl na query esta ok, mas qndo vai ser passado o parametro que ocorre o erro.
Tentei acresentar o QrTabela1.Params.Create mas emperrei nessa parte e não encontrei um exemplo para isso.
Bom se alguem poder me ajudar ficarei grato.
Jsrodrigo
Curtir tópico
+ 0Posts
26/11/2007
Silviogs
Dependendo do tipo de dado que esteja usando.
Integer, Date, TimeStamp, String etc.
QrTabela1.Params[0].AsInteger := DblookupComboBox1.KeyValue;
QrTabela1.Params[0].AsString := DblookupComboBox1.KeyValue;
QrTabela1.Params[0].AsVarinat := DblookupComboBox1.KeyValue;
Silvio Guedes
Gostei + 0
26/11/2007
Emerson Nascimento
que erro ???????
exiba também a instrução utilizada.
Gostei + 0
26/11/2007
Jsrodrigo
QrTabela1.Params[0].AsInteger := DBLookupComboBox.KeyValue;
a instrução vem de banco como colocado acima
QrTabela1.SQL.Add(CdsTabela2SQL.Value); Esse campo SQL na tabela 2 é String.
Vou passar o código inteiro
CdsTabela2.Close;
QrTabela2.Params[0].Value := 1;
QrTabela2.Params[1].Value := ´QrTabela1´;
CdsTabela2.Open;
CdsTabela1.Close;
QrTabela1.Params.Clear;
QrTabela1.SQL.Clear;
QrTabela1.SQL.Add(CdsTabela2SQL.Value);
QrTabela1.Params[0].AsInteger := DBLookupComboBox.KeyValue;
CdsTabela1.Open;
Gostei + 0
27/11/2007
Lab
Select * from clientes
where id_clientes = :CODIGO
Gostei + 0
27/11/2007
Jsrodrigo
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)