Rafael Spilki
-
Total de itens
1.583 -
Registro em
-
Última visita
Tudo que Rafael Spilki postou
-
Conexão eu faço sempre assim: Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DBQ=" & Server.MapPath("bd.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" sql = "select * from tab" Set ObjRs = objConn.Execute(sql) []'s Rafael Spilki
-
isso é apenas um teste... portanto... teste e poste aqui os resultados: <body> <!--#include file="strCon.asp"--> <% dim Conexao, strSql, strData call abreConexao() campos = "NoOs,DatCompromisso,DatSolicitada,idEmpresa,idTecnico,Status,HoraInicio,Dano s" strSql = "Select " & campos & " from tabDTH where DatCompromisso = #" & cDate &"# order by idEmpresa,DatCompromisso" response.Write(strsql) response.End() if rsRota.State=1 then rsRota.Close rsRota.Open strSql, Conexao %> <form action="rotas.asp?atc=ok" method="post" name="frmRotas" id="frmRotas"> <table width="700" height="490" border="0" align="center" cellpadding="0" cellspacing="0" class="Tabela"> <tr> <td width="33" class="aviso"> </td> <td colspan="3" class="aviso"> </td> </tr> <tr> <td> </td> <td colspan="3" class="Texto">Ola<%=Session("Usuario")%> você está em <strong>Intranet DTH 25</strong> <strong>» Rotas</strong></td> </tr> <tr> <td> </td> <td colspan="3" class="Texto"> </td> </tr> <tr> <td> </td> <td width="56" class="Texto">Classificar:</td> <td width="96" class="Texto"><select name="mnuRota" class="campo" onchange="MM_jumpMenu('this',this,0)"> <option>Selecione</option> <option value="rotas.asp?atc=Geral"<%if Request.QueryString("atc")="Geral" then%>selected<%end if%>>Geral</option> <option value="rotas.asp?atc=Servico"<%if Request.QueryString("atc")="Servico" then%>selected<%end if%>>Servico</option> </select></td> <td width="313" class="Texto"> </td> </tr> <tr> <td colspan="4"> </td> </tr> <tr> <td colspan="4"><table width="99%" border="0" align="center" cellpadding="3" cellspacing="3" class="Tabela1"> <tr bgcolor="#FFFFFF"> <td width="10%" height="15" class="SubTitulo">Codigo</td> <td width="38%" align="center" class="SubTitulo">Empresa</td> <td width="05%" align="left" class="SubTitulo">Total</td> <td width="05%" align="left" class="SubTitulo">AB</td> <td width="05%" align="left" class="SubTitulo">AC</td> <td width="05%" align="left" class="SubTitulo">CA</td> <td width="05%" align="left" class="SubTitulo">NF</td> <td width="05%" align="left" class="SubTitulo">RP</td> <td width="10%" align="left" class="SubTitulo">H.Incío</td> </tr> <tr> <td colspan="9"><div><table width="98%" border="0" cellpadding="0" cellspacing="0" class="Tabela1"> <% 'if not rsRota.Eof then 'strIdEmpresa =0 'do while not rsRota.Eof 'i=i+1 'if i mod 2 = 0 Then 'Bg="#FFFFFF" 'else 'Bg="#5082B4" 'end if 'if strIdEmpresa = rsRota("idEmpresa") then %> <%While Not rsRota.EOF %> <tr bgcolor="<%=Bg%>"> <td width="10%" height="24" class="SubTitulo"><%=rsRota("idEmpresa")%></td> <td width="38%" align="center" class="SubTitulo"> </td> <td width="05%" align="left" class="SubTitulo"> </td> <td width="05%" align="left" class="SubTitulo"> </td> <td width="05%" align="left" class="SubTitulo"> </td> <td width="05%" align="left" class="SubTitulo"> </td> <td width="05%" align="left" class="SubTitulo"> </td> <td width="05%" align="left" class="SubTitulo"> </td> <td width="10%" align="left" class="SubTitulo"> </td> </tr> <% 'else 'strIdEmpresa = rsRota("idEmpresa") 'end if 'rsRota.MoveNext 'loop 'else %> <tr> <td colspan="9" class="Texto">Não a rota atribuida</td> </tr> <% 'end if %> <%objRS1.MoveNext Wend%> </table></div></td> </tr> </table></td> </tr> <tr> <td colspan="4"> </td> </tr> </table> </form> </body> </html> []'s Rafael Spilki
-
Não entendi... qual bd você está utilizando? Access ou sql server?
-
Esse codigo aí você ta fazendo com o DW né? Isso não é aconselhável... ocorrem exatamente esses problemas... Fica bem complicado apontar apenas uma causa pra esse problema... eu refaria o código inteiro... Acho que corrigiremos um problema e aparecerão outros... Sugestão: pegue um codigo pronto aqui no forum de consulta ao bd e tente adaptar as suas necesidades... certamente sairá ganhando... Mas enfim... qual a mensagem de erro está aparecendo agora... []'s Rafael Spilki
-
Não tem como gravar data em branco! o access não aceita... Só tem duas formas de fazer isso: 1) não ter o campo data na instrução de insert, ou... 2) da forma como falei acima... quando retornar nulo do form fazer uma condicional do tipo: data = request.form ("data") if data = "" then data = "01/01/1900" end if depois na hora de imprimir em tela para não ficar com registros com datas erradas você faz: data = rs("data") if data = "01/01/1900" then data = "" end if Para saber se alguma consulta retorna vazia use eof: If rs.eof then data = "01/01/1900" end if []'s Rafael Spilki
-
eu mudaria sinatxe desse query assim: strSql = "Select * from tabDTH where DatCompromisso = #" & cDate &"# order by idEmpresa,DatCompromisso" agora, como assim ele diz que não encontrou nada? qual é exatamente a mensagem de erro que aparece? cade o restante do código? Em nenhum momento do seu codigo aparece on error resume next? se sim, remova ele temporariamente, forçando a aparecer alguma mensagem de erro!
-
Como disse... a sintaxe não é a mais adequada... tente assim: sql = "SELECT * FROM dbo.PRODUTOS_PRECOS, PRODUTOS_BARRA WHERE dbo.PRODUTOS_PRECOS.PRODUTO = 'MMColParam' AND CODIGO_TAB_PRECO = 5 OR dbo.PRODUTOS_BARRA.CODIGO_BARRA = 'MMColParam' " se não funcionar poste o codigo completo!
-
Exatamente... algo desse tipo ai! tudo na mesma linha só e na sintaxe correta! ;-)
-
Cara... muito estranho... esse campo data no BD está realmente no tipo data? em qual formato? poste aqui o resultado do debug da query! aliás... além disso... poste aqui tb o seu código completo! []'s Rafael Spilki
-
O access não aceita null na inserção de campos data... o que você pode fazer é setar uma data absurda do tipo 01/01/1900 e na hora de imprimir em tela setar atraves de condicionais que 01/01/1900 = ""... o campo data no bd está realmente como data? qual o formato? data abreviada? debugue sua query e veja se as datas não estão invertidas: 'inicio debug response.write strSql response.end 'fim debug poste aqui os resultados! []'s Rafael Spilki
-
Se eu bem entendi basta que você use OR na clausula de where de seu select para pesquisar em dois campos do bd levando em consideração uma única varável do input...
-
Tente três coisas: 1) coloque session.lcid = 1046 no começo de seu código... se não fnucionar tente a dica 2! 2) Formate sua variavel data da seguinte forma e teste: VarData = (day(date) & "/" & month(date) & "/" & year(date)) 3) se continuar não funcionando inverta sua data: VarData = (month(date) & "/" & day(date) & "/" & year(date)) poste aqui os resultados...
-
Legal... q bom que resolveu... Vi que você postou dois tópicos quase iguais! um deles foi removido... Procure não repetir essa prática, ok? Bom... quanto ao fato de você ter tido que inverter o sinal... olha "logicamente" falando isso está errado... meu palpite?!? meu palpite é que suas datas estão sendo de certa forma invertidas... debug as suas datas e sua query com response.write e poste aqui os resultados para termos certeza de que esteja tudo certo, ok? quanto ao 0 não entendi exatamente o que você esta tentando fazer... se puder explicar melhor talvés eu tb possa te ajudar! []'s Rafael Spilki
-
Seu tópico foi mesclado pois haviam dois iguais... as respostas estão acima... Se a dúvida persistir poste aqui... caso tenha resolvido sua questão retorne ao tópico informando qual foi a resolução da sua dúvida! []'s Rafael Spilki
-
Primeiro assim, lembre-se de sempre postar seus codigos entre as tags code... Segundo, veja o seu select, datafshow está abraçada com # (cerquilha ou sustenido) o que é o correto... já dataishow não está, viu? Lembre-se sempre que trabalhar com datas o select deverá ter #" "# entre as variaveis de data... Se mesmo assim não funcionar debugue as variaveis data postando aqui os resultados para sabermos exatamente o que está acontecendo (pode ser uma inversão de datas ou coisa do tipo...)! 'incio do debug: response.write "datai = " & dataishow & "<BR>" response.write "dataf = " & datafshow & "<BR>" response.end 'fim do debug 'select correto: rs3.Open "SELECT * FROM apropriacaof WHERE matricula='" & matricula &"' and data BETWEEN #"&dataishow&"# and #"&datafshow&"# order by data" ,conexao []'s Rafael Spilki
-
Cdo.sys... como fazer a autenticação? assim: www.google.com.br > "autenticar smtp cdosys asp">pesquisar... mas tem que verificar se tem isso a sua disposição... se não não adianta nada! ;-) []'s Rafael Spilki
-
É a mesma coisa... só que as datas serão baseadas de acordo com a data atual <%=date%> Aqui tem um detalhe importante... alguns meses terminam com 28, outros com 29, 30 e 31 dias... para descubrir em que dia termina o mês terá que fazer como abaixo... segue mastigadinho: dim datai, dataf, data, data_q, data_f, final, diaf, mesdata, cmbAtende, dataishow, datafshow, datai1, mes, ano mes = datepart ("m", date) ano = datepart ("yyyy", date) datai1 = ("01"&"/"&mes&"/"&ano) data = dateadd("m",1,datai1) mesdata = datepart ("m", data) data_f = ("01"&"/"&mesdata&"/"&ano) final = dateadd ("d",-1,data_f) diaf = datepart ("d", final) dataishow = ("01"&"/"&mes&"/"&ano) datafshow = (diaf&"/"&mes&"/"&ano) depois basta colocar no seu between as datas dataishow e datafshow! sacou? []'s Rafael Spilki
-
LGcs, td bem? Faltou uma pesquisinha no fórum antes de postar esse tópico, né? Poisé... tem muita coisa por aqui... faça assim... pesquise por "como pesquisar entre datas" ou "between"... tenho certeza que encontrará milhões de referências ok... basta colocar no seu select uma clausula de where com between... você encontrará sua resposta em sua pesquisa... tenho certeza! []'s Rafael Spilki
-
Marcus, a primeira pergunta é: sua dúvida nesse link foi respondida: http://scriptbrasil.com.br/forum/index.php?showtopic=129770? se sim, retorne ao tópico e poste o código da forma correta, apresentando a solução para outros usuários que venham ter a mesma dúvida... Com relação a essa dúvida de agora o select deverá ser algo parecido com isso (adapte da forma que lhe convier): sql = " select * from sua_tabela where campo_data_bd < #" & (data) & "#" 'sendo data a data atual! se você quiser que pegue a data inclusive de hoje faça assim: sql = " select * from sua_tabela where campo_data_bd <= #" & (data) & "#" apartir daqui basta substituir o < por > para inverter a pesquisa... se quiser ordenar as datas em ordem crescente use: sql = " select * from sua_tabela where campo_data_bd < #" & (data) & "# order by campo_data asc" quanto ao fato da pessoa digitar algo no campo que não seja possivel o cadastro você tem como fazer alertas em javascript "proibindo" que o form seja submetido... aparecerá uma mensagem na tela para que o user corrija as informações necessárias e só então (se estiver tudo ok) o formulario será submetido... com relação ao 0 na frente dos numeros de 1 a 9 nas datas eu corrijo usando datepart para desmembrar a data em dia, mes e ano e depois coloco condicionais para agragar o zero... apenas um exemplo abaixo... ficará facil adaptar para o resto e tem muita coisa no google tb! dia = datepart ("d", data) mes = datepart ("m", data) ano = datepart ("yyyy", data) if dia < 10 then dia = "0"&dia end if response.write dia&"/"&mes&"/"&ano []'s Rafael Spilki
-
Você precisará de um componente, ou seja: cdo.sys, cdo.nts, aspmail, aspEmail, dundasmail entre outros... A primeira coisa a saber é qual componente você tem disponível... coisa que com um simples contato ao seu servidor deverá responder (se estiver usando datacenter). Se for servidor próprio, verifique no google juntamente com a sua versão de iis... Depois, com essa inf em mãos você digita no google o nome do componente e aparecerão milhares de scripts... escolha um que fale em autenticação do smtp e pronto... feito o carreto! qualquer dúvida poste aqui! []'s Rafael Spilki
-
Pegar informações de Placa de Rede e Sist. Operacional
pergunta respondeu ao francleirton de Rafael Spilki em ASP
De uma pesquisadinha no google por mac address... acho que é possível em php... delphi e outras... asp nunca vi! em asp você pode trabalhar com request.servervariables Da uma olhadinha nesse link: http://scriptbrasil.com.br/forum/index.php?showtopic=82552 abração Rafael Spilki -
Tenta assim e me diz que resultado aparece em tela: <% data = datediff ("m", 1, date) 'inicio debug response.write "data = " & data & "<BR>" response.end 'fim debug VarData = "" & day(data) & "/" & month(data) & "/" & year(data) & ""%> depois posta aqui o resultado do debug... []'s Rafael Spilki
-
cara... você tá usando o DW pra fazer seus codigos né? Vou te dizer... esse não é um bom caminho... Todo caso... sugiro ainda testar uma última vez o recebimento da variavel email assim: email = request.Form("email_cadastro") 'inicio debug response.write "email = " & email & "<BR>" response.end 'fim debug Depois coloque aqui o resultado desse debug... []'s Rafael Spilki
-
Veja como eu poste e veja como você fez... uma letrinha ali faz toda a diferença... você tem que usar detediff em cima da data de origem, no caso, date... basta trocar de: data = datediff ("m", 1, data) por data = datediff ("m", 1, date) Sacou?
-
Cara... não sei se entendi direito... Sua dúvida é como recuperar o endereço de e-mail que o user digitou no form? Se for isso você está recuperando no codigo acima aqui: email = request.Form("email_cadastro") para testar isso você pode mandar imprimir em tela assim: response.write email ou simplesmente colocar assim: objCDOSYSMail.To = email 'aqui é pra onde o e-mail será enviado... era isso que você precisava? []'s Rafael Spilki