marcos_804

Tem como você abrir o banco e selecionar a opção "Compactar/Reparar" do Access. ... Ateh mais...

Pessoal estou tentando fazer um select semelhante ao descrito abaixo: SELECT sum(total),data_entrada FROM TB_Pedido GROUP BY month(data_entered), year(data_entered) Mas quando eu uso esta função de MONTH e YEAR o sql retorna um erro falando que eu não posso agrupar apenas por um pedaço da seguinte string ou data... ... Alguém poderia me ajudar e me dizer como eu poderia fazer esta seleção: somando os valores por um período de mês e ano? Desde já agradeço a todos. Marcos Oliveira.

Tem uma função pronta... a: FormatDateTime(Date[, NamedFormat]) Onde NamedFormat acho que vai de 0 até 4. Testa ai... FormatDateTime("Jan 1, 2002", vbGeneralDate) 1/1/2002 FormatDateTime("Jan 1, 2002", 0) 1/1/2002 Ops... editando... Olha a fonte ai... http://www.ronshardwebapps.com/tips/jantutorialtimedate.asp Espero ter ajudado.... Marcos Oliveira.

Cara não vou poder descrever muito agora... Estou correndo... hau.... rs... Por isso desenvolvi um codigo de paginacao rapidinho para poder te passar... <% dim numDePags, nome, pagina, tamanhoDaPagina, DSN '==== AQUI VEM TODAS AS STRINGS QUE SERAO BUSCADAS PARA REALIZAR A BUSCA nome = request.querystring("nome") '==== STRIGS DA PAGINACAO pagina = Cint(request.querystring("pagina")) if(pagina="")then pagina = 1 else pagina = pagina TamanhoDaPagina = 1 '==== CONEXAO E OBJETO set rs = server.CreateObject("ADODB.RecordSet") DSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("banco.mdb") rs.Open "SELECT * FROM TB_Alunos WHERE (Aluno LIKE '%"& nome &"%') ORDER BY Aluno ASC", DSN, 3, 3 if(rs.RecordCount MOD TamanhoDaPagina = 0) then numDePags = CInt(rs.RecordCount/TamanhoDaPagina) else numDePags = CInt(rs.RecordCount/TamanhoDaPagina) + 1 end if rs.PageSize = 10 rs.AbsolutePage = pagina for x = 1 to TamanhoDaPagina response.write rs("Aluno") &"<br>" Next %> <hr> <% for pags = 1 to numDePags response.write "<a href=""?pagina="& pags &"&nome="& nome &""">"& pags &"</a>" next %> Aqui funcionou diretinho... .... Desculpa não explicar muito agora é que estou mesmo correndo... Se tiver alguma duvida diz ai... falou... Espero ter ajudado. Marcos Oliveira.

Tenta fazer uma simples modificação... no lugar de <%Response.Write "Total: "[b] =[/b]total %> coloque [<%Response.Write "Total: "[b]&[/b] total %> Voce estava colocando "=". Em asp concatenamos com o "i" comercial "&". Espero ter ajudado

Pessoal... como eu poderia fazer para trabalhar com um aplicattion... ? Por quanto tempo um application "vive"? ...etc... Desde já agradeço.

... só frizei so campos está... ... Quando eu era iniciante tinha um problema em chamar campos de formulario... e ali como voce colocou o nome do form como "form" eu só achei frizar um pouquinho. falou.

Nossa... vi voce chamando variaveis do servidor de "qdt1"... isso não existe... para chamar este "qtd" ali como uma variavel ela não deve ficar entre aspas... ... Bem agora mostra alguma coisa sobre o erro... pois deve gerar... ... Estou aguardando...

E ai brother... sobre aqueles 3,3... o negocio é o seguinte.... aqueles numeros significam...: rst.Open sql, bd, 3, 3 - pois não estou usando o arquivo adovbs.inc . A correspondência é exibida na tabela abaixo : '---- valores para CursorTypeEnum ---- adOpenForwardOnly = 0 adOpenKeyset = 1 adOpenDynamic = 2 adOpenStatic = 3 '---- valores de LockTypeEnum ---- adLockReadOnly = 1 adLockPessimistic = 2 adLockOptimistic = 3 adLockBatchOptimistic = 4 Eu só não me recordo qual é a sequencia... se primeiro vem o cursor e depois a forma de fexar a conexao... ... De qualquer forma espero ter ajudado...

Cara, muito obrigado pela atenção e pelo link! -- Moderadores podem fechar o tópico, problema resolvido.

Pessoal, há algum tempo eu venho tentando programar em PHP Mysql e Apache, mas não tenho obtido muito sucesso... Pois não consigo fazer a instalação correta, assim não consigo te sucesso na compilação. Nem se quer consigo conectar ao banco de dados. Pessoal escutei falar que tem um pacote onde tem o trio de PHP MySQL e APACHE... tentei encontrar pelo google, sem sucesso... Por favor alguém sabe o nome correto deste "pacotão"? Pois como eu não tenho o nome completo não obtenho sucesso nas buscas... Se alguém souber e quiser me ajudar.... Desde já agradeço... Marcos Oliveira.

Pessoal espero que gostem destes codigos de menu. São uns efeitos bem simples mas bem legal. Caso tenham alguma duvida lancem a pergunta.... falou ate mais... <html> <head> <title>.:: Marcos Legal ::.</title> <style> a{text-decoration:none} a:hover{text-decoration:underline} #menu {font-family:verdana;font-size:12px;color:#000000} #menu a{line-height:25px;background-color:#C0C0C0;display:block;padding-lefT:5px;width:150px;border-left:8px solid #336699;color:#000000;border-top:1px solid #FFFFFF} #menu a:hover{color:#FFFFFF;background-color:#336699;border-left:8px solid #C0C0C0} #menu1 {line-height:35px;background-color:#F1F1F1;text-align:center;border-bottom:3px outset #C0C0C0;border-top:3px outset #C0C0C0} #menu1 a{background-color:#F1F1F1;padding:11px 30px 10px 30px;border-bottom:3px outset #336699;border-top:3px outset #336699;color:#000000;font-family:verdana, arial;font-size:12px;font-weight:bold} #menu1 a:hover{background-color:#336699;color:#FFFFFF;text-decoration:none} .borda {border-right:1px solid #C0C0C0} .borda1 {border-right:1px solid #C0C0C0;border-left:1px solid #C0C0C0} </style> </head> <body> <div id="menu"> <a href="java script:void(0);">Home</a> <a href="java script:void(0);">Menu 1</a> <a href="java script:void(0);">Menu 2</a> <a href="java script:void(0);">Menu 3</a> </div><br> <div id="menu1"><a href="#" class="borda1">Home</a><a href="#" class="borda">Contato</a><a href="#" class="borda">Músicas</a><a href="#" class="borda">Turismo</a><a href="#" class="borda">Downloads</a><a href="#" class="borda">Fale Conosco</a></div> </body> </html>

cara mesmo erro: ADODB.Field (0x80020009) BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual. /area/visualizar_socios.asp Cara é assim... o "do while" tem de ser executado ao menos uma vez. Se você tiver chamando este comando e não tiver nenhum registo no recordset atual, então o erro é gerado. usa o "while".

Pessoal, tem como ordernar uma array de forma crescente em asp? Já vi isso em javascritp e PHP utilzando uma função "sort". Tem alguma função que voces conhecam para eu armazenar estes valores em um array e depois chamar de forma crescente ou descrescente em asp...? Desde já agradeço a atenção. Marcos Oliveira

Olá Marcos-Rj Realmente sem erro não tem muito o que fazer. A única dica que eu posso te dar para seu codigo ficar mais "limpo" é seguir o seguinte padrão VBscript de atualização. Set rs = Server.CreateObject("ADODB.RecordSet") DSN = "DRIVER={Acho que seja Microsoft (*.mdb)};DBQ="& server.MapPath(banco) rs.Open "SELECT * FROM tabela WHERE id="& request.querystring("id"), DSN, 3,3 rs("campo1") = atualização rs("campo2") = atualizacao2 [b]rs.Update[/b] rs.Close Desta forma você consegue fazer uma atualização e visualizar os códigos de forma mais limpa. falou... Espero ter Ajudado.

Bem meu amigo vou deixar uma coisa clara por aqui. Sabe eu também usava o "do while", mas este loop não é satisfatório quando a busca não resulta em nada. Pois o do While tem de ser retornado no minimo uma vez. Seria melhor você usar o while, que so acontece se enquando "tal coisa for verdadeira" Espero ter ajudado.

Pelo que vi você está colocando assim: SELECT Campo.tabela ... Mas é o contrário. SELECT tabela.campo ... Tem de ir... por que aqui no MySQL funciona assim. Espero ter ajudado.

Isso mesmo. o "DESC" seleciona de forma decrescente. Ex.: 5 4 3 2 1 O "ASC" de forma crescente. Ex.: 1 2 3 4 5

Cara na verdade eu não ententedi o que você quer muito. Mas vão umas dicas aí. Para separar estes valores separados por virgula voce poderia usar o split. Esta função cria um array de uma string, desde que seja passada um delimitador exemplo: valor1 = "1,2,3,4,5,6" valor2 = split(valor,",") for x = 0 to uBound(valor1) response.write valor1(x) &"<br>" next Faça a impressão para você ver. Agora para juntar duas tabelas você pode fazer assim: select tabela1.campo1, tabela2.campo1 form tabela1 inner join tabela2 on tabela1.ID = tabela2.ID Espero ter ajudado....

Vai, sou inexperiente em programação PHP, mas tenho a ideia de como fazer isso em javascript e ASP. Vou tentar fazer você entender a lógica aqui de como poderia fazer 5 por cada linha. <? $fotosPorLinha = 3; $numerMaximoDeFotos = 9; $auxiliar = "<table><tr><td>" for($i=0;$i<9;$i++){ if( ($i % 3) == 0 ){ $auxiliar .= "A &nbsp;&nbsp;<br>"; }else{ $auxiliar = "A &nbsp;&nbsp;"; } } echo($auxiliar); Espero que entenda a lógica... Espero tambem ter ajudado.

Bem amigo, eu peguei o bonde andando e não intendi o que você está tentando fazer. Sei que é uma junção de tabelas. Você poderia fazer isso assim: "SELECT algo.Pais, algo.Cidade FROM Pais inner join Cidade ON algo.Pais = algo.Cidade" Sabe eu fiz um código muito semelhante a este no MySQL Administrator e funcionou. Eu estava juntando duas tabelas de pais e cidade. Espero ter ajudado...

Pessoal, geralmente eu faço a conexão assim: set rs = Server.createObject("ADODB.RecordSet") banco = "Driver={Microsoft Access Driver (*.mdb};DBQ="& server.mapPath("banco") rs.Open "select * from... ", banco, [b]3, 3[/b] O que eu estou discutindo é se esta conexão dá ou não certo, por que dá. Mas... Percebam ali os "3,3" no final, que significa o número da forma que a tabela será aberta ou trancada. Geralmente eu uso estes 3 que significa que a tabela deverá ser aberta somente para leitura... Mas mesmo abrindo com estes "3" eu sempre consigo inerir e atualizar dados na tabela. MAS as vezes isso gera um erro que diz que o objeto "não pode ser atualizado" alguém sabe como eu posso fazer para resolver este probleminha? Desde já agradeço pela atenção. Marcos Oliveira.

Tem como mandar para mim tambem...? Nossa preciso meso de um programa para criptografar um sistema escolar que fiz... Desde já agradeço... email: marcos_804@yahoo.com.br

Use este codigo não esta dando erro e eu acabei de criar... vai ser bem facil de adaptar e usar... alem do mais voce pode usar uma paginacao pois ele já tem paginacao... falou espero que ajude <% tamanhoDaPagina = 100 'Numero de impressoes por pagina pagina = request.QueryString("pagina") 'Numero da pagina que vai vir pela string do browser. if pagina = "" OR Not IsNumeric(pagina) then pagina = int(1) else pagina = int(pagina) end if set rs = server.CreateObject("ADODB.RecordSet") DSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("x5_v1.0/includes/X5-2003.mdb") rs.Open "SELECT * FROM TB_Alunos ORDER BY Aluno ASC", DSN, 3, 3 paginas = int(rs.RecordCount/tamanhoDaPagina) if (rs.RecordCount MOD tamanhoDaPagina) <> 0 then paginas = paginas + 1 else paginas = paginas end if rs.PageSize = tamanhoDaPagina rs.AbsolutePage = pagina '=== Exibindo os arquivos que forem encontrados no banco. Se não tiver arquivo nenhum erro sera gerado for x = 1 to tamanhoDaPagina if rs.EOF then exit for if len(rs("Aluno")) < len(11) then response.Write rs("Aluno") &"<br>" else response.Write left(rs("Aluno"),140) &".<br>" end if rs.MoveNext next %> <!--Mostra as paginas--> <%for x = 1 to paginas response.Write "<a href=""?pagina="& x &""">"& x &"</a> " next%> ... Espero ter ajudado... ate dpois

Olá amiga, tudo bem? Já passei por isso tambem... sei como é massante tentar fazer um codigo e se deparar com uma duvida... Por isso vamos ver se eu posso te ajudar... Fassa assim... veja se funciona... 1. Set rs = Server.CreateObject("ADODB.RecordSet") 'Criando o Objeto 2. DSNconexao = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("[color=#660000][b]SeuBanco.mdb[/b][/color]") ' Criando a conexao com o banco especifico 3. ontem = date()-1 ' Se hoje for 28/07/2006 ele devolve 27/07/2006 'Dai voce somente faz o select correspondente aquela data... 4. rs.Open "SELECT * FROM [color=#3333FF][b]TB_SuaTabela[/b][/color] WHERE Data = #"& ontem &"# ORDER BY oQueVoceQuiser ASC" ' Aqui eu seleciono todos do dia anterior... ordenando-os crescentemente (asc) pelo campo que voce quiser (oQueVoceQuiser) 5. for x = 1 to rs.RecordCount if rs.EOF then exit for response.write rs("Nome") &"<br>" rs.MoveNext next Descrição... 1 = Cria Objeto 2 = Cria conexao com um banco especifico... 3 = verifica a data de ontem 4 = faz a selecao por data. Usei "#" pois se o valor no banco de dados estiver como "data/hora" ele só reconhece assim... MAS se estiver como texto use "''" (aspas simples). 5 = Exibindo todos usuarios cadastrados ontem... Qualquer duvida posta ai.. Espero ter ajudado... falou..