dcoder

Ok, vou testar aqui, mais acho que é isso mesmo.. Obrigado ae.

Bom, eu não quero linkar com a página lotes certo, o conteúdo "lotes" vai estar no bd, vai ser dinamico. Assim: categoria.asp?categoria=6 onde 6 seria a categoria relacionada ao lote, correto ? eu não estou consegundo abrir na mesma página, o menu vai ser dinamico também. Abraços.

Boa tarde, Estou com algumas dúvidas. Estou montando um site em ASP cujo menu será obtido através de um bd. Minha dúvida é a seguinte, como faço para criar esses links dinamicamente vindo do banco e listar a categoria correspondente na página ? Um site de imoveis por exemplo: Menu: Casas Apartamentos Sítios aí resolvo acrescentar no menu "Lotes" ficaria Casas apartamentos sitios lotes Quando eu clicar em um item do menu devera aparecer o conteudo relacionado na página, cliquei em lotes apareceu todos os lotes, deu pra entender ? Obrigado.

Não deu certo cara, simplesmente não aparece nenhum valor, consegui fazer uma gambiarra que funcionou, vamos lá... como as variaveis estavam armazenando os valores resolvi então usa-las assim: usando março como exemplo: 'declarei as variaveis somando e subtraindo os meses para achar o valor do mes relativo ao ano mes_mar = Month(date)+1 ano_mar = Year(date) mes3 = mes_mar & "/" & ano_mar mes_marco_13 = Month(date)-11 ano_marco_13 = Year(date)+1 marco_13 = mes_marco_13 & "/" & ano_marco_13 mes_marco_14 = Month(date)-11 ano_marco_14 = Year(date)+1 marco_14 = mes_marco_14 & "/" & ano_marco_14 mes_marco_15 = Month(date)-11 ano_marco_15 = Year(date)+1 marco_15 = mes_marco_15 & "/" & ano_marco_15 mes_marco_16 = Month(date)-11 ano_marco_16 = Year(date)+1 marco_16 = mes_marco_16 & "/" & ano_marco_16 mes_marco_17 = Month(date)-11 ano_marco_17 = Year(date)+1 marco_17 = mes_marco_17 & "/" & ano_marco_17 'agora montei as query's usando if's e elseif's if mes_mar="13" then mar_090=("Select item, sum(total) as DtEntrega from FIAT where (month(DtEntrega)&'/'&year(DtEntrega))='"&marco_13&"' and item = 467711090 group by item order by sum(total)") 'response.write mar_090 set mar090 = conexao.execute(mar_090) elseif mes_mar="14" then mar_090=("Select item, sum(total) as DtEntrega from FIAT where (month(DtEntrega)&'/'&year(DtEntrega))='"&marco_14&"' and item = 467711090 group by item order by sum(total)") 'response.write mar_090 set mar090 = conexao.execute(mar_090) elseif mes_mar="15" then mar_090=("Select item, sum(total) as DtEntrega from FIAT where (month(DtEntrega)&'/'&year(DtEntrega))='"&marco_15&"' and item = 467711090 group by item order by sum(total)") 'response.write mar_090 set mar090 = conexao.execute(mar_090) elseif mes_mar="16" then mar_090=("Select item, sum(total) as DtEntrega from FIAT where (month(DtEntrega)&'/'&year(DtEntrega))='"&marco_16&"' and item = 467711090 group by item order by sum(total)") 'response.write mar_090 set mar090 = conexao.execute(mar_090) elseif mes_mar="17" then mar_090=("Select item, sum(total) as DtEntrega from FIAT where (month(DtEntrega)&'/'&year(DtEntrega))='"&marco_17&"' and item = 467711090 group by item order by sum(total)") 'response.write mar_090 set mar090 = conexao.execute(mar_090) 'aqui ele vai exibir o valor relativo ao ano atual usando a variavel "mes3" else mar_090=("Select item, sum(total) as DtEntrega from FIAT where (month(DtEntrega)&'/'&year(DtEntrega))='"&mes3&"' and item = 467711090 group by item order by sum(total)") 'response.write mar_090 set mar090 = conexao.execute(mar_090) end if pronto resolvido galera... obrigado pela ajuda de todos... intéeee

Boa tarde, Cara, pelo que entendi essa query me retorna a soma total entre o mes 01 e o mes 06........... é isso ? []'s

Isso, vou tentar aqui cara, obrigado... []'s

Sim é número, existe sim... Cara, acho que não tem como fazer isso não...já tentei de todo jeito.... só uma pergunta, o datepart, dateadd são mais utilizados em sqlserver me parece que não funcionam direito com access, será que é por causa disso ? Mudei a data para dezembro e dei um response.write nas query's olha o que esta acontecendo: Select item, sum(total) as DtEntrega from FIAT where (month(DtEntrega) &'/'& year(DtEntrega))= '11/2009' and item = 467711090 group by item order by sum(total) 'aqui exibe o valor pois o mes é 11 Select item, sum(total) as DtEntrega from FIAT where (month(DtEntrega) &'/'& year(DtEntrega))='12/2009' and item = 467711090 group by item order by sum(total) 'aqui tambem, mes 12 Select item, sum(total) as DtEntrega from FIAT where (month(DtEntrega) &'/'& year(DtEntrega))='13/2009' and item = 467711090 group by item order by sum(total) 'aqui que era para começar a exbir janeiro de 2010 não exibe pois a query me retorna mes 13/2009 e não 01/01/2010 Select item, sum(total) as DtEntrega from FIAT where (month(DtEntrega) &'/'& year(DtEntrega))='14/2009' and item = 467711090 group by item order by sum(total) 'aqui ocorre o mesmo com a de cima Select item, sum(total) as DtEntrega from FIAT where (month(DtEntrega) &'/'& year(DtEntrega))='15/2009' and item = 467711090 group by item order by sum(total) 'aqui tambem Select item, sum(total) as DtEntrega from FIAT where (month(DtEntrega) &'/'& year(DtEntrega))='16/2009' and item = 467711090 group by item order by sum(total) 'aqui tambem Select item, sum(total) as DtEntrega from FIAT where (month(DtEntrega) &'/'& year(DtEntrega))='17/2009' and item = 467711090 group by item order by sum(total) 'e aqui estao somando os meses.... []'s

Ok, Deu esse erro: Microsoft JET Database Engine (0x80040E14) Erro de sintaxe na cláusula GROUP BY. /sigma/inicio2.asp, line 30 mudei para order by e: Microsoft JET Database Engine (0x80040E21) Você tentou executar uma consulta que não inclui a expressão 'item' especificada como parte de uma função agregada. /sigma/inicio2.asp, line 30 valeu..[]'s

Ok valos lá 1) Se estamos em janeiro/09, de qual a qual periodo terá de ser a consulta? de dezembro de 2008 a junho de 2009 2) Se estamos em fevereiro/09, de qual a qual periodo tera de ser a cansulta? de janeiro de 09 a julho de 09 3) Se estamos em março/09, de qual a qual periodo tera de ser a cansulta? de fevereiro de 09 a agosto 09 4) Se estamos em abril/09, de qual a qual periodo tera de ser a cansulta? marco de 09 a setembro de 09 5) Se estamos em maio/09, de qual a qual periodo tera de ser a cansulta? abril de 09 a novembro 2009 6) Se estamos em junho/09, de qual a qual periodo tera de ser a cansulta? maio de 09 a dez de 09 7) Se estamos em julho/09, de qual a qual periodo tera de ser a cansulta? junho de 09 a janeiro de 2010 8) Se estamos em agosto/09, de qual a qual periodo tera de ser a cansulta? julho de 09 a fevereiro de 2010 9) Se estamos em setembro/09, de qual a qual periodo tera de ser a cansulta? agosto de 09 a marco de 2010 10) Se estamos em outubro/09, de qual a qual periodo tera de ser a cansulta? setembro de 09 a abril de 2010 11) Se estamos em novembro/09, de qual a qual periodo tera de ser a cansulta? outubro de 09 a maio de 2010 12) Se estamos em dezembro/09, de qual a qual periodo tera de ser a cansulta? novembro de 09 a junho de 2010 13) O que tem e no campo DtEntrega? data d/m/yyyy 14) Qual o tipo de dados configurado para o campo DtEntrega no bd? data normal d/m/yyyy 15) Qual o formato configurado para o campo DtEntrega no bd? data normal 16) Para realizar a consulta o sistema sempre considerará automaticamente o mes atual ou o user seleciona o mês de referência em um form? sempre considera automaticamente o mês atual Obrigado ae Rafael. O sistema é brutooo... []'s

Bom dia Jonathan, Se eu fizer assim: Select item, sum(total) as DtEntrega from FIAT where DtEntrega='"&janeiro1&"' and item = 467711090 group by item order by sum(total) Microsoft JET Database Engine (0x80040E07) Tipo de dados imcompatível na expressão de critério. /sigma/inicio2.asp, line 106 Não sei, mais acho que o month(DtEntrega) esta indicando que a consulta é pelo mes='"&janeiro&"' puxando assim o mes 1;; Obrigado pela atenção... Parabéns a todo ae e obrigado pela atenção e ajuda, já to ficando de cabelos em pé...

Bom dia, Sim Rafael, esta correta, pois bem, eu consegui solucionar uma parte do problema, olhe a query e o código: mes = Month(date)-1 ano = Year(date) janeiro1 = mes & "/" & ano response.write janeiro mes_atual = Month(date) ano_atual = Year(date) fevereiro1 = mes_atual & "/" & ano_atual mes_mar = Month(date)+1 ano_mar = Year(date) marco1 = mes_mar & "/" & ano_mar 'response.write marco1 mes_abril = Month(date)+2 ano_abril = Year(date) abril1 = mes_abril & "/" & ano_abril 'response.write abril1 mes_maio = Month(date)+3 ano_maio = Year(date) maio1 = mes_maio & "/" & ano_maio 'response.write maio1 mes_junho = Month(date)+4 ano_junho = Year(date) junho1 = mes_junho & "/" & ano_junho 'response.write maio1 mes_julho = Month(date)+5 ano_julho = Year(date) julho1 = mes_julho & "/" & ano_julho 'response.write maio1 '*********************************************************************** 'consultas para o item 090 jan_090=("Select item, sum(total) as DtEntrega from FIAT where (month(DtEntrega) &'/'& year(DtEntrega))='"&janeiro1&"' and item = 467711090 group by item order by sum(total)") 'response.write jan_090 'response.end set jan090 = conexao.execute(jan_090) fev_090=("Select item, sum(total) as DtEntrega from FIAT where (month(DtEntrega) &'/'& year(DtEntrega))='"&fevereiro1&"' and item = 467711090 group by item order by sum(total)") set fev090 = conexao.execute(fev_090) mar_090=("Select item, sum(total) as DtEntrega from FIAT where (month(DtEntrega) &'/'& year(DtEntrega))='"&marco1&"' and item = 467711090 group by item order by sum(total)") set mar090 = conexao.execute(mar_090) abril_090=("Select item, sum(total) as DtEntrega from FIAT where (month(DtEntrega) &'/'& year(DtEntrega))='"&abril1&"' and item = 467711090 group by item order by sum(total)") set abril090 = conexao.execute(abril_090) maio_090=("Select item, sum(total) as DtEntrega from FIAT where (month(DtEntrega) &'/'& year(DtEntrega))='"&maio1&"' and item = 467711090 group by item order by sum(total)") set maio090 = conexao.execute(maio_090) jun_090=("Select item, sum(total) as DtEntrega from FIAT where (month(DtEntrega) &'/'& year(DtEntrega))='"&junho1&"' and item = 467711090 group by item order by sum(total)") set jun090 = conexao.execute(jun_090) jul_090=("Select item, sum(total) as DtEntrega from FIAT where (month(DtEntrega) &'/'& year(DtEntrega))='"&julho1&"' and item = 467711090 group by item order by sum(total)") set jul090 = conexao.execute(jul_090) então é o seguinte, com essa modificação que fiz consegui que o sistema mostre os valores do ano corrente, se o ano for 2009 ele me exibe só os valores de 2009 e se for 2010 ela me exibira os valores de 2010, mais isso não resolveu meu problema. Como mensionei o sistema exibe de 7 em 7 meses então, se hoje estamos no mes de fevereiro ele esta exibindo de janeiro a julho, se eu mudar a data do micro para março ele exibe de fevereiro a agosto eliminando assim os meses anteriores e sempre exibindo o mes atual mais 6 meses.... deu pra sacar ? imagine um sistema rotativo de meses onde ficam exibindo de 7 em 7 meses, entra fevereiro, janeiro fica pra traz e fevereiro entra em seu lugar exibindo os próximos 6 meses....e assim por diante. Se estivermos em outubro por exemplo ele já entra exibindo não só os meses do ano de 2009 como tambem de 2010 assim: (mes atual) setembro - outubro - novembro - dezembro - janeiro - fevereiro - março total de set. total de out. e assim com todos os meses... a consulta me mostra não só os valores dos meses deste ano como tambem os proximos meses incluindo os de 2010.. é esse meu problema, ele só exibe os resultados do mes atual e como os proximos meses são de 2010 ele não exibe... Espero que tenham entendido.. abraços

Mesmo erro: Microsoft JET Database Engine (0x80040E07) Erro de sintaxe na data na expressão de consulta 'month(DtEntrega)=#10/2/2009# and item = 467711090'. /sigma/inicio_.asp, line 41

Estou usando o access..

Fiz da maneira que disse, da erro: Microsoft JET Database Engine (0x80040E07) Erro de sintaxe na data na expressão de consulta 'month(DtEntrega)=#'10/2/2009'# and item = 467711090'. /sigma/inicio_.asp, line 41 Obrigado...

Boa tarde, Preciso que meu sistema exibe valores do proximo ano e não estaou conseguindo, já tentei assim e não deu certo pois me retorna o formato dd/mm/yyyy: dia = Day(now()) mes = Month(now()) ano = Year(now()) janeiro = dia & "/" & mes & "/" & ano oque estou fazendo é isso: '********************************************************************** 'variaveis para exibição das datas de acordo com a data do server mesant = Month(date)-1 mesatual = Month(date) mes1 = Month(date)+1 mes2 = Month(date)+2 mes3 = Month(date)+3 mes4 = Month(date)+4 mes5 = Month(date)+5 '********************************************************************** 'variaveis para a exibição dos meses no cabeçalho mes_ant = MonthName(month(date)-1) mes_atual = MonthName(month(date)) mes_1 = MonthName(month(date)+1) mes_2 = MonthName(month(date)+2) mes_3 = MonthName(month(date)+3) mes_4 = MonthName(month(date)+4) mes_5 = MonthName(month(date)+5) '********************************************************************** 'consultas para o item 090 jan_090=("Select item, sum(total) as DtEntrega from FIAT where month(DtEntrega)='"&mesant&"' and item = 467711090 group by item order by sum(total)") 'response.write jan_090 'response.end set jan090 = conexao.execute(jan_090) estáfuncionando perfeitamente porém quando mudo a data para o mes de outubro por exemplo da erro, pois os próximos 7 meses que preciso exibir entram no ano de 2010.... Obrigado a todos novamente... []'s

Cara, como sabe desse item 760 ? Vou tentar aqui....vlww []'s Deu erro de novo: Erro de tempo de execução do Microsoft VBScript (0x800A000D) Tipos incompatíveis: '[string: "janeiro"]' /sigma/inicio_.asp, line 466 Mais consegui dessa maneira: mesant = Month(date)-1 mesatual = Month(date) jan_090=("Select item, sum(total) as DtEntrega from FIAT where month(DtEntrega)='"&mesant&"' and item = 467711090 group by item order by sum(total)") response.write jan_090 'response.end set jan090 = conexao.execute(jan_090) fev_090=("Select item, sum(total) as DtEntrega from FIAT where month(DtEntrega)='"&mesatual&"'and item = 467711090 group by item order by sum(total)") set fev090 = conexao.execute(fev_090) preciso adaptar isso para reconhecer o proximo ano tambem... []'s

Não estao não, estao como data normal mesmo... []'s ------- Olha, já tentei de todas essas maneiras: mes1 = Month(date)-1 janeiro = datepart ("m","01-01-2009") mes1 = Month(month(date)-1) janeiro = dateadd ("m", -1, now) todas ocorrem o mesmo erro: Microsoft JET Database Engine (0x80040E07) Tipo de dados imcompatível na expressão de critério. /sigma/inicio_.asp, line 21 assim funciona, obtenho o resultado que preciso, porém não vai adiantar, quando virar o ano vai dar pau: jan_090=("Select item, sum(total) as DtEntrega from FIAT where month(DtEntrega)=01 and item = 467711090 group by item order by sum(total)") 'response.write jan_090 'response.end set jan090 = conexao.execute(jan_090) Ta osso o negocio.... []'s

Parece estar pegando o horario tambem: Select item, sum(total) as DtEntrega from FIAT where DtEntrega='18/1/2009 10:00:28' and item = 467711090 group by item order by sum(total) []'s

Obrigado Rafael, já tinha tentado usar o dateadd como mencionou no tópico anterior, com a outra parte do sistema estava dando certo, mais agora esta dando erro: 'mes_atual = datepart ("m", date) janeiro = dateadd ("m", -1, now) '********************************************************************** 'consultas para o item 090 jan_090=("Select item, sum(total) as DtEntrega from FIAT where DtEntrega='"&janeiro&"' and item = 467711090 group by item order by sum(total)") set jan090 = conexao.execute(jan_090) 'linha 19 Esta dando erro: Microsoft JET Database Engine (0x80040E07) Tipo de dados imcompatível na expressão de critério. /sigma/inicio_.asp, line 19 parte do código onde exibe o resultado: <% if jan090.EOF then Response.write("0") Else Response.write jan090("DtEntrega") end if %> []'s

Bom dia, Meu sistema exibe resultados mostrando os meses de janeiro a julho, ou seja de 7 em 7 meses. Fazendo os testes observei que ao chegar o mes de julho o sistema não consegue exibir os outros meses, da erro, pois iria exibir de julho a janeiro pegando assim o novo ano. Como posso resolver este problema ? dei uma pesquisada e não consegui solução... minha query é esta: jan_760 = ("Select item, sum(total) as DtEntrega from FIAT where month(DtEntrega)=01 and item = 517680760 group by item order by sum(total)") set jan760 = conexao.execute(jan_760) Obrigado.

Ok, dtentrega = data item = numero cliente = texto endent = texto fab = texto qtembalagem = numero embalagem = texto total = numero Estou com erro nessa linha agora: Microsoft JET Database Engine (0x80040E14) Erro de sintaxe na instrução UPDATE. /sigma/excel2.asp, line 52 Cmd.Execute quant,Array(dtentrega,item,cliente,endent,fab,qtembalagem,embalagem,total) se eu rtiro a linha funciona porém o banco não é alterado.. tentei assim tambem: Cmd.Execute quant,Array=("dtentrega,item,cliente,endent,fab,qtembalagem,embalagem,total") mais me retorna esse erro: Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A000D) Tipos incompatíveis /sigma/excel2.asp, line 52 []'s

Não funcionou cara, esta dando o mesmo erro !!! cmd.CommandText="update FIAT set(dtentrega='"&dtentrega&"',item='"&item&"',cliente='"&cliente&"',endent='"&endent&'",fab='"&fab&"'......... []'s

Ok Rafael, obrigado pela atenção, vou modificar aqui.... []'s

Boa tarde a todos!!! Estou com dificuldades para dar update em meu bd, retorna o seguinte erro: Tipo de erro: Microsoft JET Database Engine (0x80040E14) Erro de sintaxe na instrução UPDATE. /sigma/excel2.asp, line 51 Pesquisei no forum e parece que meu código esta certo, segue o script, tenho o mesmo que faz o insert estou adaptando para realizar o Update: Cmd.ActiveConnection="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("dados/geral.mdb") %> <% Dim Conn, RS Dim Campos, contador '// CONECTAMOS COM O BANCO DE DADOS Set Conn = CreateObject("ADODB.Connection") With Conn .Provider = "Microsoft.Jet.OLEDB.4.0" '// Nesta linha monto a conexao com um arquivo do Excel .ConnectionString = "Data Source="& Server.MapPath("fonte.xls") &";Extended Properties=Excel 8.0;" .Open End With '// AO CRIAR O RECORDSET, O SELECT INDICA O NOME DA PLANILHA DO ARQUIVO Set RS = Conn.Execute("SELECT * FROM [fonte$] ") '// CONTAMOS QUANTAS LINHAS EXISTEM NO ARQUIVO Campos = RS.Fields.Count '// INICIAMOS O LOOP response.write "<table border=""1"">" Do While RS.EOF = False response.write "<tr>" '// Aqui informamos os nomes das colunas para então lista os resultados response.write "<td><font size=1 face=verdana><b>" & RS("dtentrega") & "</td>" response.write "<td><font size=1 face=verdana><b>" & RS("item") & "</td>" response.write "<td><font size=1 face=verdana><b>" & RS("cliente") & "</td>" response.write "<td><font size=1 face=verdana><b>" & RS("endent") & "</td>" response.write "<td><font size=1 face=verdana><b>" & RS("fab") & "</td>" response.write "<td><font size=1 face=verdana><b>" & RS("qtembalagem") & "</td>" response.write "<td><font size=1 face=verdana><b>" & RS("embalagem") & "</td>" response.write "<td><font size=1 face=verdana><b>" & RS("total") & "</td>" response.write "</tr>" dtentrega = RS("dtentrega") item = RS("item") cliente = RS("cliente") endent = RS("endent") fab = RS("fab") qtembalagem = RS("qtembalagem") embalagem = RS("embalagem") total = RS("total") cmd.CommandText="update FIAT set(dtentrega=dtentrega,item=item,cliente=cliente,endent=endent,fab=fab,qtembalagem=qtembalagem,embalagem=embalagem,total=total WHERE dtentrega=dtentrega,item=item,cliente=cliente,endent=endent,fab=fab,qtembalagem=qtembalagem,embalagem=embalagem,total=total)" Cmd.Execute quant,Array(dtentrega,item,cliente,endent,fab,qtembalagem,embalagem,total) RS.MoveNext Loop response.write "</table>" '// EXIBIMOS A QUANTIDADE DE REGISTROS ENCONTRADOS response.write campos '// FECHAMOS E DESCONECTAMOS O RECORDSET E A CONEXÃO UTILIZADA RS.Close Set RS = Nothing Conn.Close Set Conn = Nothing %> <%set Cmd = nothing%> Mais uma vez obrigado pela atenção de todos...

Cara, não deu certo de novo: cmd.CommandText="insert into dados (dtentrega,item,cliente,endent,fab,qtembalagem,embalagem,total) values ('"&dtentrega&"','"&item&"','"&cliente&"','"&endent&"','"&fab&"','"&qtembalagem&"','"&embalagem&"','"&total&"')" Realmente é alguma coisa com o codigo pois tentei importar a tabela do excel direto pelo access e deu certo... []'s ______________________ Galera, consegui fazer funcionar, alterando o formato da coluna no proprio excel alterando o formato dos dados da coluna de geral para texto... Segue os passos que segui: Selecionando a coluna no excel vá em, Dados> Textos para colunas> Largura fixa, Avançar>Avançar>no formato de dados da coluna selecione o campo texto e clique em concluir. Pronto, inseriu certinho....vai entender....... Obrigado pela ajuda de todos... []'s