Vivendo&Aprendendo

Micheus me desculpa o incomodo cara, mas agora que eu não sei o que pode ser mesmo, porque quando eu executo a sql com meu banco na sua aplicação da certo, mas quando copio a sql da sua aplicação e coloco na meu sistema com o mesmo banco da erro dizendo: Alunos: Field 'Codigo' Not Found. Cara não sei o que é, já exclui o campo Codigo e busquei do banco novamente mas continua a mesma coisa. Alexandre

Coloca o seu sistema ai ou manda no e-mail... aslalexandre@hotmail.com Alexandre

Esta desta forma KIKO: with DmDados.Alunos do begin Close; SQL.Clear; //NOME, DATANASC SQL.Add('SELECT * '); SQL.Add('FROM Alunos '); SQL.Add('WHERE MONTH(DATANASC) between :MesI and :MesF '); SQL.Add('AND DAY(DATANASC) between :DiaI and :DiaF '); SQL.Add('ORDER BY Codigo'); Parameters.ParamByName('MesI').Value := MonthOf(StrToDate(EdtInicial.text)); Parameters.ParamByName('MesF').Value := MonthOf(StrToDate(EdtFinal.text)); Parameters.ParamByName('DiaI').Value := DayOf(StrToDate(EdtInicial.text)); Parameters.ParamByName('DiaF').Value := DayOf(StrToDate(EdtFinal.text)); Open; end;

Olá Micheus... me desculpa não ter informado os componentes e o banco da minha aplicação, usei essa sql abaixo que você me passou e continua dando erro. SQL with DMDados.Alunos do begin Close; SQL.Clear; SQL.Add('Select * From Alunos, Historico'); SQL.Add('Where Alunos.Codigo = Historico.CodAluno and Alunos.Nome Like :pNome'); SQL.Add('Order By Alunos.Codigo'); Parameters[0].Value := EdtBusca.Text + '%'; Open; end; Erro Alunos: Field 'Codigo' Not Found. O meu campo Codigo da tabela Alunos é Auto Incremento. Alexandre

Olá Micheus e Kiko Olha usei a sql que o Micheus me enviou pelo e-mail, ela não nenhum erro, mas acontece que não retorna os dados de forma correta, ou seja: se eu digitar no edit inicial a data 01/01/2007, ou apenas 01/01 ou 01/01/1981 e no edit final a data 30/06/2007, ou 30/06 ou 30/06/1981 o correto seria ele me retornar apenas as pessoas que farão aniversarios neste intervalo de datas, mas ele esta retornando registros que não tem nada a ver com a consulta, pelo menos é o que eu acho. Eu preenchi todos os campos DATANASC no banco com datas diferentes e fiz o teste e deu nisso. Tenho as seguintes datas em minha tabela: 05/07/1965 10/11/1978 12/01/1980 20/03/1980 15/12/1980 29/06/1981 30/06/1981 30/07/1981 10/10/1981 25/12/1984 07/06/1987 04/09/1988 30/05/1990 01/01/2000 17/01/2007 Fiz a consulta usando as datas 01/01/2007 a 30/06/2007, ele teria que me retornar 8 registro que são os seguinte: 12/01/1980 20/03/1980 29/06/1981 30/06/1981 07/06/1987 30/05/1990 01/01/2000 17/01/2007 Mas acontece que ele me retornou 11 registros, 7 corretos e 4 errados, ele retirou um correto e colocou outros que não deveriam aparecer na consulta, tipo nascidos no mês 12. KIKO o meu campo DATANASC é do tipo DATA/TIME. Micheus eu acho que não posso usar o TDateTimePicker pois também uso estes edits para consulta com código. Pessoal não sei mais o que pode ser. Vejam ai se vocês tem outra idéia, ou eu que estou fazendo algo errado ainda. Alexandre

Não deu.........

Micheussssssssssssssss.... hehehehe... socorro.....

Olá Micheus! Qual o seu e-mail porque pelo forum não estou conseguindo enviar. Alexandre

alguém ai

Eu uso banco access e o meu data set está correto, pois uso DATA MODULE e a tabela alunos está lá, certinho para onde estou apontando. Alexandre

cara pode até ser estranho, mas eu lutei contra este erro muitas vezes e só parou de me atrapalhar quando eu coloquei uma verificação no OnChange do Edit da busca: If Edit1.Text <> '' Then ai aqui você coloca a sua procedure. Não sei se o seu caso será o mesmo que o meu, mas pra mim funciona até hoje e nunca mais tive este erro. Alexandre

É Micheus mas infelizmente as propriedades estão corretas... O que pode ser? Alexandre

Olá Micheus muito obrigado pela ajuda, mas continua dando o mesmo erro: ERRO NÃO ESPECIFICADO. Fiz a sql dessa forma: with DmDados do begin Alunos.Close; Alunos.SQL.Clear; Alunos.SQL.Add('SELECT NOME, DATANASC '); Alunos.SQL.Add('FROM Alunos '); Alunos.SQL.Add('WHERE EXTRACT(MONTH FROM DATANASC) between :MesI and :MesF '); Alunos.SQL.Add('AND EXTRACT(DAY FROM DATANASC) between :DiaI and :DiaF '); Alunos.SQL.Add('ORDER BY Codigo'); Alunos.Parameters.ParamByName('MesI').Value := MonthOf(StrToDate(EdtInicial.text)); Alunos.Parameters.ParamByName('MesF').Value := MonthOf(StrToDate(EdtFinal.text)); Alunos.Parameters.ParamByName('DiaI').Value := DayOf(StrToDate(EdtInicial.text)); Alunos.Parameters.ParamByName('DiaF').Value := DayOf(StrToDate(EdtFinal.text)); Alunos.Open; end; O que está errado nela? Alexandre

Olá Erso fiz da seguinte forma e deu o mesmo erro: Sql := 'SELECT Alunos.NOME, Alunos.DATANASC FROM Alunos WHERE ((EXTRACT(MONTH FROM Alunos.DATANASC) between ''' +EdtInicial.text+ ''' and '''+EdtFinal.text+''') and (EXTRACT(day FROM Alunos.DATANASC) between '''+EdtInicial.text+''' and '''+EdtFinal.text+'''))'; DmDados.Alunos.SQL.Add(sql); DmDados.Alunos.Open;

Olá Os campos que interessam para a sql são os campos da tabela alunos: Codigo (numeração automatica), nome (texto). E campos da tabela Histórico: CodAluno(numero) e Aluno(texto). É isso ai... Alexandre

Olá usei desta forma e deu ERRO NÃO ESPECIFICADO. DmDados.Alunos.Close; DmDados.Alunos.SQL.Clear; DmDados.Alunos.SQL.Add('SELECT Alunos.NOME, Alunos.DATANASC FROM Alunos'); DmDados.Alunos.SQL.Add('Where ((EXTRACT(MONTH FROM Alunos.DATA_NASC) between ''' +EdtInicial.text+ ''' and '''+EdtFinal.text+''') and '); DmDados.Alunos.SQL.Add('EXTRACT(day FROM Alunos.DATANASC) between "1" and "31"'); DmDados.Alunos.SQL.Add('Order By Codigo'); DmDados.Alunos.Open; falou Alexandre

Me ajudem com isso... eu sei que não é complicado mas acontece que não esta dando certo.;..

Certo Maikel, mas como faço para não usar os numeros na SQL, ou seja, não colocar o 5, 6, 1 e 31 e sim a data que esta nos edits? Alexandre

Olá galera. Tenho uma SQL para achar os aniversariantes entre duas datas que o usuário irá digitar, essa sql busca na tabela alunos no campo data de nascimento, o problema é que só encontra tipo: o aluno Alexandre faz aniversário dia 30/06 para a sql encontrar esse registro o usuario terá que digitar as datas da seguinte forma, aniversariantes entre: 01/01/1981 a 31/12/2007 por exemplo. Sendo que o correto seria digitar 01/01/2007 a 30/06/2007 ai o sistema teria que me mostrar todos os aniversariantes dentre estas datas. A minha SQl é essa: With DmDados.Alunos Do Begin DmDados.Alunos.Close; DmDados.Alunos.SQL.Clear; DmDados.Alunos.SQL.Add('Select * From Alunos'); DmDados.Alunos.SQL.Add('Where DataNasc between :Inicial and :Final'); DmDados.Alunos.Parameters.ParamByName('Inicial').Value := StrToDate(EdtInicial.Text); DmDados.Alunos.Parameters.ParamByName('Final').Value := StrToDate(EdtFinal.text); DmDados.Alunos.SQL.Add('Order By Codigo'); DmDados.Alunos.Open; end; Uso banco Access. Como posso fazer isso. Alexandre

Olá KIKO! Olha se eu fizer dessa forma que você me passou ele tipo que me obriga a colocar todos os campos da tabela no Select, isso é realmente necessário? E quando eu coloco todos os campos da tabela na consulta, na execução da erro dizendo que nenhum valor foi forneceido para os parametros. Alexandre

Olá galera preciso saber quais os alunos que estudaram em um determinado ano e trimestre, e para isso eu uso duas tabelas a de alunos e a de histórico onde fica qual o ano e trimestre que o aluno estudou. Segue abaixo o meu código, mas na execução da um erro dizendo que o campo Código da tabela Alunos é not found. DmDados.Alunos.Close; DmDados.Alunos.SQL.Clear; DmDados.Alunos.SQL.Add('Select * From Alunos, Historico'); DmDados.Alunos.SQL.Add('Where Alunos.Codigo = Historico.CodAluno and Alunos.Nome Like :pNome'); DmDados.Alunos.SQL.Add('Order By Alunos.Codigo'); DmDados.Alunos.Parameters[0].Value := EdtBusca.Text + '%'; DmDados.Alunos.Open; Como posso fazer isso. Alexandre

Olá!!! Eu utilizo da seguinte forma: Tenho duas tabelas uma de saídas e outra de Itens das saídas; onde em saídas eu cadastro as informações como nome do cliente, codigo saida, valor total da venda; e em itens saidas: codigo do produto, valor unitario, quantidade e valor total dos produtos. Eu uso um edit para buscar o produto desejado e ai vem a parte mais chata que é a rotina para ir acrescentando na tabela de itens saidas. Bem teoricamente é isso. Precisando estamos por aqui. Alexandre

Olá Cleverson! Para você listar no grid em ordem alfabética é só você colocar na propriedade SQL (dependendo de qual componente você esteja usando) ORDER BY NOME. E para que os campos já apareçam nos edits é só você utilizar o mesmo DataSource para os dois forms... que ai ao clicar em um campo ele já mostra nos edits... eu utilizo desta maneira. Até mais.... Alexandre

Olá Você poderá utilizar o tipo OLE, mas ai via uma dica que acho muito importante neste caso de fotos e eu utilizo desta maneira, no lugar de salvar as fotos no banco de dados (o que significa que com o tempo o banco ficará enorme) você salva apenas o caminho da foto e ai no delphi é só localizar pelo caminho e mostrar a imagem. Ai na sua SQL ficará ainda mais fácil pois será apenas o campo testo que deverá ser passado. Qualquer coisa esotu por aqui. Alexandre

Valeu Programador eu fiz como texto e converti no delphi pra Float mas vou fazer da forma que você falou... Abs Alexandre