carlosgmjr

Caros, Esperei....esperei..... e nenhuma ajuda foi dada!!! Acho que soluções mais simples são ignoradas pelos frequentadores deste fórum. Bom, busquei.....trabalhei, queimei a cabeça....perdi um tempo enooorme e solucionei em algumas horas o que poderia ser resolvido em minutos. Para ajudar os próximos, resolvi postar uma resposta ao problema: Na verdade, simplifiquei e coloquei apenas opção para destino e origem em separado. No meu caso funcionou, mas fica aberto o tópico para que outros coloquem busca em conjunto. DataModule.ClientDataSet.close; DataModule.ClientDataSet.CommandText := 'select * from tabela where campo = ' + quotedstr(edit1.text); DataModule.ClientDataSet.Open; No espaço onde está o edit1.text, pode ser substituído por um combobox, ou dbcombobox, neste caso, deve-se substituir após o sinal de "+" pela sentença quotedstr(ComboBox1.Items [ComboBox1.ItemIndex]); Espero que possa ajudar alguns...

Amigos, Preciso de um comando sql para realizar busca através de seleção de itens em 3 DBCombobox no delphi 2007. Uso o BD Firebird. Tenho uma tabela que trata escala de vôo e criei uma unit com 3 dbcombobox, um dbgrid e edits. Nos DBCombobox, aparecem os itens do banco de dados listados, como NRVOO(campo de número de voo), ORG(campo de origem), DES(campo de destino) Fiz um tratamento nos DBcombobox para que eles pudessem apresentar a lista: begin DBComboBox1.Items.Clear; escalaDM.CDStimetb.First; While not escalaDM.CDStimetb.Eof do begin DBComboBox1.Items.Add(escalaDM.CDStimetb.Fields.Fields[1].Value); escalaDM.CDStimetb.Next; end; end; Então Finalmente, preciso fazer uma busca onde o usuário seleciona os itens desejados nos 3 DBcomboboxs (o usuário pode ou não selecionar os 3). Daí clicando em um botão pesquisar, onde ficará o comando sql, aparecerão os resultados no DBGRID. Aguardo ajuda para este dilema, pois já tentei de diversas formas e minha pouca experiência me impede de continuar.

Amigos, Tenho um código que foi feito inicialmente focando conexão com BD SQL Server. Ocorre que no meio do desenvolvimento, foi decidido que a melhor opção seria o Firebird. Daí começaram os erros com execução, principalmente nos scripts SQL. Um deles já foi solucionado, visto que o erro era somente a troca de uma sentença que só existia no SQL Server. Agora é o seguinte, minha aplicação reconhece os dados de um arquivo .txt e coloca no BD. Daí, temos um controle para evitar que arquivos duplicados sejam gravados. Funcionava perfeitamente com o SQL Server, mas agora, a aplicação roda mas só grava uma linha de cada arquivo. acredito que o erro seja na sentença sql, mas não consigo resolver. A sentença é: select * from programacao where ID = ' + quotedstr(VID); onde ID é um campo criado pelo sistema através da sentença: VID := (yano+'/'+ymes+'/'+ydia)+ copy(vnomecampos,10,3) + copy(vnomecampos,15,7) + copy(vnomecampos,23,3) + copy(vnomecampos,27,3) + copy(vnomecampos,32,5); A sentença toda fica assim: // verificar se existe ID no banco de dados // fecha a tabela escalaDM.CDSescala.close; // coloca a instrucao SQL para buscar o ID escalaDM.CDSescala.CommandText := ' select * from programacao where ID = ' + quotedstr(VID); // abre a tabela escalaDM.CDSescala.open; // verifica se foi encontrado mais de um registro if escalaDM.CDSescala.RecordCount > 0 then begin // se for encontrado, significa que o ID já esta no banco // e faz a proxima leitura do registro Readln(sArquivo,vnomecampos); //se a proxima leitura for Fim de arquivo if eof(sArquivo) then begin // saia do loop break end else begin // senao volte lá pra cima. continue end; end; Atualmente estou trabalhando com Delphi 2007 e BD Firebird 2.5 Só pra enfatizar....o problema que etsou tendo é: Os arquivos são escalas, com datas de 01 à 30 dependendo do mês e o software reconhece e grava todos estes dias, mês à mês. Tudo funcionava corretamente no SQL Server, mas no Firebird, o código começa a ler as escalas, mas só retorna o último dia de cada mês. Obrigado

Olá amigos, Estou com um problema na função select para pesquisa na minha aplicação Delphi. Uso o Delphi 2007 e o firebird 2.5. Meu software reconhece dados de um arquivo txt e grava no CDS. Depois, fiz através de 2 combobox, listas com opções para que o usuário possa buscar as informações por mês e ano. Para tanto, fiz uma função select para buscar as informações do campo DIA do meu BD. o comando que estou fazendo é: 'select * from programacao where month(dia) = ' + inttostr(combobox1.ItemIndex + 1) + ' and year(dia) = ' + (combobox2.Items[combobox2.ItemIndex]); A mensagem de erro é: Token unknown - line 1, column 33 month Estava usando este mesmo comando com um bd do sql server e funcionou beleza, mas quando fiz uma nova aplicação pro firebird, este comando não funcionou....