Ir para conteúdo
Fórum Script Brasil

ursolouco

Veteranos
 Perfil  Explorar Conteúdo

  • Total de itens

    2.314

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que ursolouco postou

  1. ursolouco

    Converter String Em Data

    pergunta respondeu ao vitorarouca de ursolouco em ASP

    Sei lá, tá dificil este caso, mas não impossivel.... Vamos ao conhecimentos de Hank McCoy, um dos Ex-Men, mais interessantes... Se fosse inserir, informações na tabela que tenha uma campo data, seria desta forma: INSERT INTO Tabela VALUES('01/01/1901 10:10:01','12/31/01 22:10:01') Não tenho vergonha em dizer que não sei, e se estiver errado, me corrija, pois estou aprendendo com sua dúvida No seu código, vamos experimentar mudar o seguinte: IF @opcao = 'i' BEGIN DECLARE @dataconvertida AS DATETIME SELECT CONVERT(@dataconvertida, DATE(),101) INSERT INTO Agenda (datahora, codtecnico, codcliente, observacoes) VALUES (@dataconvertida,@codtecnico,@codcliente,@observacoes) END Bolei este código no tapa, não tenho certeza absoluta se vai funcionar.... mas não custa tentar... Boa Sorte !!! []s
  2. ursolouco

    Converter String Em Data

    pergunta respondeu ao vitorarouca de ursolouco em ASP

    Bom, nunca tive problemas com este tipo de coisa, mas vai um teste! OBS: não sei bem, programação no SQL Server 2000 IF @opcao = 'i' BEGIN DECLARE @dataconvertida AS DATETIME("hh/mm/yyy") SELECT @dataconvertida INSERT INTO Agenda (datahora, codtecnico, codcliente, observacoes) VALUES (@dataconvertida,@codtecnico,@codcliente,@observacoes) END
  3. ursolouco

    Converter String Em Data

    pergunta respondeu ao vitorarouca de ursolouco em ASP

    Vitor!!! Qual formato em que sua data esta no SQL Server ? Brasileiro ou Americano ? Teoricamente, seu código esta corretissimo. Deveria funcionar na boa.... mas pela mensagem de erro, é um erro na conversão... ou o formato da data a ser inserida não esta correspondendo com o formato atual do BD Abraços!!
  4. ursolouco

    Converter String Em Data

    pergunta respondeu ao vitorarouca de ursolouco em ASP

    Brother!! http://scriptbrasil.com.br/forum/index.php...indpost&p=93343 Tópico que fala sobre formatação de datas! Espero que lhe ajude..
  5. ursolouco

    Subtrair Data

    uma questão respondeu ursolouco em ASP

    Experimente trabalhar com as data no formato brasileiro; Session.LCID = 1046 Veja um exemplo: <% Session.LCID = 1046 Response.Write(DateDiff("d","05/01/05","05/02/05")) %>
  6. ursolouco
    Bolo!! Ele não esta retornando nada devido a propriedade EOF esta se tornando positiva (True), ou seja, sua pesquisa (T-SQL) não esta encontrando nada no seu banco de dados. Se você estiver pesquisando em várias tabelas, recomendo, utilizar INNER JOIN ou se você for mais expert... utilizar Stored Procedures, enviando parametros para pesquisa . Vai muito da sua necessidade. Abraços [uRSO]
  7. ursolouco
    Cyber!!! Em uma busca pela web, localizei o seguinte código: <% '# Written by snowboardr on www.pscode.com '# If you like this code, please comment on planet source code! '# And vote if its worthy enough? '# Who doesn't want those awesome .net charts? '# Installing MySQL :: tutorial available at PSC: '# http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=7739&lngWId=4 '# Dim sDatabaseConnection sDatabaseConnection = "DRIVER={MySQL ODBC 3.51 Driver};"_ & "SERVER=localhost;"_ & "DATABASE=test;"_ & "UID=root;PWD=; OPTION=35;" %> <html> <head> <title>Paging</title> <style type="text/css"> <!-- .sgrey { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold; color: #999999; text-decoration: none; } .elinks { color: #003399; text-decoration: none; font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold; } --> </style> </head> <body> <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1"> <tr bgcolor="#EEEEEE"> <td colspan="4"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><div align="left"><font color="#333333" size="2" face="Verdana, Arial, Helvetica, sans-serif" class="bluet"><strong>New Projects</strong></font></div> <div align="center"></div></td> </tr> </table> <div align="center"></div> <div align="left"></div> <div align="center"> </div></td> </tr> <tr bgcolor="#CCCCCC" class="greyt"> <td colspan="4"><img width="0" height="0"></td> </tr> <tr bgcolor="#EEEEEE" class="greyt"> <td colspan="4"><font color="#003366" size="2" face="Verdana, Arial, Helvetica, sans-serif">Project Subject </font> <div align="center"></div></td> </tr> <% '###################################################################################### '# COUNT RECORDS FIRST '###################################################################################### Dim sQueryStatus Dim intRecordsPerPage Dim intPages Dim sLimitPart 'LIMIT 0,1 -----> LIMIT {START_NUMBER,RECORDS_PERPAGE} Dim sStartQuery Dim sMaxStart Dim sProjectPrev Dim sProjectNext intRecordsPerPage = 10 'How many records to show per page Dim sqlProjectCount Dim connCount, rsCount Dim sProjectCount sqlProjectCount = "SELECT COUNT(pid) FROM projects" 'Response.Write(sqlProjectCount) Set connCount = Server.Createobject("ADODB.Connection") Set rsCount = Server.CreateObject("ADODB.Recordset") connCount.open sDatabaseConnection Set rsCount = connCount.Execute(sqlProjectCount) If rsCount.eof then sProjectCount = 0 Else sProjectCount = rsCount.Fields(0) 'number of records End If connCount.close set connCount=nothing set rsCount=nothing 'Response.Write(sProjectCount) '###################################################################################### '# SIMPLE PAGING '###################################################################################### sStartQuery = Request.QueryString("start") 'Get total pages If intRecordsPerPage < sProjectCount then intPages = sProjectCount / intRecordsPerPage End If 'here we modify the number if it has a decimal, a better solution maybe would be to use formatnumber Dim instrIntPages instrIntPages = Instr(intPages,".") 'If after the decimal there is a 0 then we need to add a page If instrIntPages > 0 then intPages = Left(intPages,instrIntPages) + 1 End If 'Lets create the limit for the sql 'LIMIT 0,1 -----> LIMIT {START_NUMBER,RECORDS_PERPAGE} If sStartQuery <> "" AND isNumeric(sStartQuery) then sLimitPart = "LIMIT " & sStartQuery & "," & intRecordsPerPage Else sLimitPart = "LIMIT " & "0," & intRecordsPerPage End If 'Lets figure out what the max start number is sMaxStart = (intPages*intRecordsPerPage)-intRecordsPerPage If sStartQuery <> "" AND isNumeric(sStartQuery) then sStartQuery = CINT(sStartQuery) Else sStartQuery = 0 End If 'Now lets create our previous / next buttons and disable them if they are not needed. If sMaxStart < 0 then sMaxStart = 0 If sStartQuery = "" or sStartQuery = "0" then 'PREVIOUS DISABLED sProjectPrev = "<a span class='sgrey'>Previous</span>" ElseIf sStartQuery > 0 then 'PREVIOUS ENABLED sProjectPrev = "<a class='elinks' href='?start=" & sStartQuery - intRecordsPerPage & "'>Previous</span>" End If 'Next If sMaxStart = sStartQuery then 'NEXT DISABLED sProjectNext = "<a span class='sgrey'>Next</span>" ElseIf sStartQuery < sMaxStart then 'NEXT ENABLED sProjectNext= "<a class='elinks' href='?start=" & sStartQuery + intRecordsPerPage & "'>Next</span>" End If 'Now its time to select our projects Dim connP, rsP Dim sqlProjects Dim sPid Dim sSubject sqlProjects = "SELECT "_ & "pid,"_ & "psubject "_ & " FROM projects ORDER by pid ASC " & sLimitPart 'Response.Write(sqlProjects) Set connP = Server.Createobject("ADODB.Connection") Set rsP = Server.CreateObject("ADODB.Recordset") connP.open sDatabaseConnection Set rsP = connP.Execute(sqlProjects) If NOT rsP.eof then Do while not rsP.eof sPid = rsP("pid") sSubject = rsP("psubject") %> <tr> <td colspan="4" bgcolor="#FFFFFF"><font color="#003366" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=sSubject%></font></td> </tr> <% rsP.movenext loop %> <tr> <td colspan="4" bgcolor="#FFFFFF" class="sgrey"><div align="right"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr bgcolor="#EEEEEE"> <td width="29%" height="23"> <div align="left" class="greyt">Total: <%=sProjectCount%></div></td> <td width="71%"><div align="center"> <% Dim queryPageOn queryPageOn = Request.QueryString("page") If NOT isNumeric(queryPageOn) AND NOT sStartQuery = "0" then queryPageOn = "1" End If queryPageOn = CINT(queryPageOn) Response.Write(sProjectPrev & "&nbsp;&nbsp;") '# Create Page Numbers & Links Dim iPages, iPagesTemp For iPages=1 to intPages iPagesTemp = iPages-1 If NOT queryPageOn=iPages then Response.write "<a href='?start=" & iPagesTemp*intRecordsPerPage & "&page="& iPages & "' class='elinks'>" & iPages & "</a>&nbsp; " Else Response.write "<span class='greyt'>[</span><a href='?start=" & iPagesTemp*intRecordsPerPage & "&page="& iPages & "' class='elinks'>" & iPages & "</a><span class='greyt'>]</span>&nbsp; " End If Next Response.Write("&nbsp;&nbsp;"&sProjectNext) %> </div></td> </tr> </table> </div></td> </tr> <%Else%> <tr> <td bgcolor="#FFFFFF" class="sred"> <font color="#FF0000" face="Verdana, Arial, Helvetica, sans-serif">No projects under this category at this time. </font></td> <td width="22%" bgcolor="#FFFFFF"><div align="center"></div></td> <td bgcolor="#FFFFFF">&nbsp;</td> </tr> <%End IF connP.close set connP=nothing set rsP=nothing '######################################################################################### %> </table> </body> </html> Veja se pode lhe ajudar.... Todos os créditos são de seu devido autor.
  8. ursolouco

    Subtrair Data

    uma questão respondeu ursolouco em ASP

    Brother!! Pesquise por 'DataDiff' no fórum que você vai encontrar muita coisa sobre o asunto! []s
  9. ursolouco

    Carrinho De Compra

    pergunta respondeu ao magnoweb de ursolouco em ASP

    Brother!!! Download ->Este carrinho de compras utiliza de cookies e banco de dados para armazenar as compras. OBS: Todos os créditos e direitos reservados ao seu autor. Abraços!!
  10. ursolouco
    Brother!! Sei que não é a solução do seu problema, mas abra seu Access, pegue seu NorthWind.... crie uma consulta no modo SQL e utilize este código: SELECT Categories.CategoryID, Categories.CategoryName, Categories.Description, Categories.Picture, Products.ProductID, Products.ProductName, Products.SupplierID, Products.CategoryID, Products.QuantityPerUnit, Products.UnitPrice, Products.UnitsInStock, Products.UnitsOnOrder, Products.ReorderLevel, Products.Discontinued, Suppliers.SupplierID, Suppliers.CompanyName, Suppliers.ContactName, Suppliers.ContactTitle, Suppliers.Address, Suppliers.City, Suppliers.Region, Suppliers.PostalCode, Suppliers.Country, Suppliers.Phone, Suppliers.Fax, Suppliers.HomePage FROM Suppliers INNER JOIN (Categories INNER JOIN Products ON Categories.CategoryID = Products.CategoryID) ON Suppliers.SupplierID = Products.SupplierID WHERE (((Categories.CategoryID)=[:Id])); Veja se isso pode lhe dar uma luz sobre consulta em várias tabelas. Abraços!!
  11. ursolouco

    Erro Banco De Dados

    pergunta respondeu ao netrix de ursolouco em ASP

    Mostra qual Erro Brother!!! Server.Mappath("dados/chat.mdb") E o banco de dados, esta dentro da pasta dados ? Ele esta com nome chat.mdb ? [] s
  12. ursolouco
    Brother!! <!-- #include file="conexao.asp"--> <% 'Sistema desenvolvido por: Rafael Marciano titulo = request.form("titulo") nome = request.form("nome") sobrenome = request.form("sobrenome") ano = request.form("ano") edicao = request.form("edicao") sql = "SELECT VOLUME, TITULO, PAGINAS, ANO, EDICAO, SOBRENOME, NOME FROM BIBPESQ WHERE " sql = sql &"titulo like '%titulo%' OR nome like '%nome%' OR sobrenome like '%sobrenome%'" sql = sql &"OR ano like '%ano%' OR edicao like '%edicao%'" set rs = conn.execute(sql) %> <% whilenot rs.eof %> Nome: <%=rs.fields("nome")%><br> Sobrenome : <%=rs.fields("Sobrenome")%> <br> Titulo: <%=rs.fields("titulo")%><BR> Ano: <%=rs.fields("ano")%><BR> Edição: <%=rs.fields("edicao")%><Br><BR> <% rs.movenext wend rs.close conn.close set rs = nothing set conn = nothing %>
  13. ursolouco
    Não sei se é solução, ou até mesmo dica. Mas se você estiver utilizando SQL Server, acredito EU, que seja possivel exportar XML para servidor linkado.... Mas isso, já é trabalho para o DBA.
  14. ursolouco

    Login E Senha Com Asp.net

    pergunta respondeu ao golbranco de ursolouco em .NET

    Brother!!! você tem que definir isso no seu SQL (WHERE, TOP)! Vai depender mesmo da sua necessidade.
  15. ursolouco

    Pagina Carreegando

    uma questão respondeu ursolouco em ASP

    Sim!! Esta correto, só colocar antes de qualquer saida <HTML>.
  16. ursolouco

    Pagina Carreegando

    uma questão respondeu ursolouco em ASP

    [ ANTONIOOOOOOOOOOOO ] Desculpa minha ignorancia, é que em JavaScript, não sou muito dinâmico . O que você quis dizer, seria isso aqui ?
  17. ursolouco

    Pagina Carreegando

    uma questão respondeu ursolouco em ASP

    No inicio do seu script, antes de qualquer saida <html> de seu mecânismo!!!
  18. ursolouco

    Definir Formato Da Data?

    pergunta respondeu ao modernel de ursolouco em ASP

    Brother!! Normalmente isso é feito na estrutura da tabela... mas se você quiser operar com datas no formato brasileiro, utilize o seguinte: Session.LCID = 1046 Data = Now() Abraços!
  19. ursolouco

    Argumento Left

    pergunta respondeu ao GUTELO de ursolouco em ASP

    Brother!! Experimenta ai.. <% Localizada = IntStr(1,GerenteServico,"Analista",1) Localizada = Localizada - 1 Nome = Trim(Left(GerenteServico, Localizada)) Funcao = Trim(Right(GerenteServico, (Localizada + 2))) %>
  20. ursolouco

    Pagina Carreegando

    uma questão respondeu ursolouco em ASP

    Se for isso... utilize o seguinte método!! Response.Buffer = True Isso vai fazer, sua página ser carregada somente, após todo processamento do servidor ter sido executado. []s
  21. ursolouco

    Login E Senha Com Asp.net

    pergunta respondeu ao golbranco de ursolouco em .NET

    Editado!! Brother!! Veja se este download pode lhe ajudar... ou uma versão...C# sobre o assunto Abraços!!
  22. ursolouco
    Brother!! Este valor, você não cobrou, entregou a loja de graça! Se você trabalhou desde o designer até a conclusão da programação da Loja (transações, carrinho de compras, fechamento, tranferencia de valores), me desculpe, mas você trabalhou de graça. Uma loja, totalmente pronta, que vai servir para milhares de clientes, não sai por menos de 1800. Valorize seu estudo e trabalho, se tratando de e-commerce, no minimo, 2000, para começar... de acordo com as tecnologias aplicadas e personalização do cliente, você vai aumentando seu preço $$$ Abraços e Boa Sorte!! OBS: O Layout, esta bacana.... parabéns
  23. ursolouco

    Formulário De Contato

    pergunta respondeu ao kadu de ursolouco em ASP

    Não rola desta forma ? Response.Redirect("http://www.guto.com.br/asp/file.asp")
  24. ursolouco

    Erro Conecção

    pergunta respondeu ao gu_lt de ursolouco em ASP

    <% Set cnnDB = Server.CreateObject("ADODB.Connection") cnnDB.ConnectionString = "driver=MySQL;server=IP;uid=Administrador;pwd=020202;database=[COLOR=red][B]NOME_DO_SEU_BANCO_DE_DADOS[/B]"[/COLOR] cnnDB.Open sql1 = "INSERT INTO dados ('Laura','Barueri');" set rs = cn.execute(sql1) %>
  25. ursolouco

    Erro Conecção

    pergunta respondeu ao gu_lt de ursolouco em ASP

    Brother!!! <% Set cnnDB = Server.CreateObject("ADODB.Connection") cnnDB.ConnectionString = "driver=MySQL;server=IP;uid=usuario;pwd=senha;database=banco_de_dados" cnnDB.Open %> Espero que possa lhe ajudar... Abraços!!!
×
×
  • Criar Novo...