Ir para conteúdo

Jonathan Cardozo

Members
  • Total de itens

    4827
  • Registro em

  • Última visita

Reputação

4 Comum

Sobre Jonathan Cardozo

  • Classificação
    Jonathan Cardozo
  • Data de Nascimento 04/12/1981

Informações Pessoais

  • Sexo
    Masculino
  • Localização
    {Guaíba}{RS}

Contato

  • Site Pessoal
    http://www.sersolucao.com.br
  1. Jonathan Cardozo

    Site de Palpite

    Se ainda necessita do serviço, tenho disponibilidade e posso fazer um orçamento assim que passar mais características das funcionalidades desejadas.
  2. Jonathan Cardozo

    Tirar foto a partir da WebCam

    links off mas parabens pela ideia
  3. Jonathan Cardozo

    If e ELSE no MySQL

    acho que o titulo do seu tópico causou duvidas nas respostas. Acredito que você queira testar no ASP se a variavel estiver com valor concatena no sql. Se você quer fazer IF no sql tens que fazer uma stored procedure ou usar o CASE. Segue exemplo com ASP if sexo & "" <> "" then var = " dp.sexo='"&sexo&"' AND " end if query = "Select * FROM dados_pessoais dp, graduacao g, endereco_postal ep WHERE (" & var & " g.graduacao_situacao='"&escolaridade&"' AND ep.bairro='"&bairro&"' AND ep.cidade='"&cidade&"' AND ep.estado='"&estado&"') AND dp.cpf=g.cpf " //EDIT Agora que vi que o tópico foi ressuscitado hehehe
  4. Jonathan Cardozo

    Lendo XLS dinâmico para visualização em tela

    Possivelmente são células mescladas
  5. Jonathan Cardozo

    Lendo XLS dinâmico para visualização em tela

    valeu a contribuição DragonBR, bom saber que o pessoal está usando e adaptando os codigos postados, certamente vão aproveitar a sua dica
  6. Jonathan Cardozo

    Boteco iMasters

    hehehevaleu pela lembrança....anota ai Diminas que pago quando puder hehehe, ou seja...nuncaagora com o novo trabalho não terei tanto tempo pra chegar no boteco, mas sempre que puder passo aqui pra dar uma bisbilhotada hehehabração
  7. Jonathan Cardozo

    Boteco iMasters

    ae diminas, parabéns...agora não pode beber em serviço....vai ter que abdicar da cevaabraço
  8. Jonathan Cardozo

    Lendo XLS dinâmico para visualização em tela

    beleza cara....lembrando que podem ocorrer erros, mas acho que é uma boa base pra galera
  9. Jonathan Cardozo

    Lendo XLS dinâmico para visualização em tela

    Ae Ted, pra quem quiser baixa o arquivo usado nos testes http://www.allmarketweb.com/pasta.xls apenas uma correção trocar for j = 0 to objTable.tables.count - 2 para for j = 0 to objTable.tables.count - 1
  10. Jonathan Cardozo

    Lendo XLS dinâmico para visualização em tela

    Quem já se quebrou pra ler um xls?? E quem ai precisa ler o xls sem saber a quantidade nem o nome das planilhas, linhas e colunas de cada planilha do arquivo?? Quer mais? Não precisa definir uma área (name) das células Segue a solução que criei adaptada de códigos retirados aqui do fórum com uma pitada de meu modesto conhecimento em Asp: ASP <%@Language="VBScript"%><% 'Autor : Jonathan R. Cardozo (jonathandj) 'Data criação : 14/08/2007 'Finalidade : Leitura de arquivo XLS (Excel 8.0) de forma dinâmica Dim intColunas, intLinhas Dim objConn, objRs, objTable Set objConn = Server.CreateObject("ADODB.Connection") With objConn .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source="& Server.MapPath("pasta.xls") &";Extended Properties=Excel 8.0;" .Open End With Set objTable = Server.CreateObject("ADOX.Catalog") objTable.ActiveConnection = objConn for j = 0 to objTable.tables.count - 1 if lcase(objTable.tables(j).Type) = "table" Then set objRs = Server.CreateObject("ADODB.Recordset") objRs.CursorLocation = 3 objRs.Open "SELECT * FROM ["&Cstr(Ucase(objTable.tables(j).Name))&"] ",objConn intCount = 0 if Not objRs.Eof Then intColunas = objRs.Fields.Count Response.Write ("<table border=""1"">" & vbNewline) If intCount = 0 Then Response.Write ("<tr>" & vbNewline) For i = 0 To (intColunas-1) Response.Write ("<td><font size=""1"" face=""verdana""> " & objRs.Fields(i).Name & "</td>" & vbNewline) next Response.Write ("</tr>" & vbNewline) End If Do While Not objRs.Eof Response.Write ("<tr>" & vbNewline) For i = 0 To (intColunas-1) Response.Write ("<td><font size=""1"" face=""verdana""> " & objRs.Fields(i).Value & "</td>" & vbNewline) Next response.write ("</tr>" & vbNewline) objRs.MoveNext Loop Response.Write ("</table>" & vbNewline) Response.Write ("Nome da Tabela(Planilha):" & Cstr(Ucase(objTable.tables(j).Name)) & vbNewline) Response.Write ("<br/>" & vbNewline) Response.Write ("Total Colunas: " & intColunas & vbNewline) Response.Write ("<br/>" & vbNewline) Response.Write ("Total Linhas: " & objRs.RecordCount +1 & vbNewline) ' o +1 é por causa da primeira linha que é o name da coluna End If objRs.Close Set objRs = Nothing Response.Write ("<br/>") Response.Write ("<br/>") end if next objConn.Close Set objConn = Nothing Set objTable = Nothing %> Lembrando que esse código não insere no banco, se tiver tempo faço e posto aqui a versão para gravar no DB Espero que seja útil para alguem
  11. Jonathan Cardozo

    Hospedagem ASP

    Objetivo: Disponibilizar uma lista de links para hospedagens em servidores web com suporte a linguagem ASP tanto pagos quanto gratuitos. OBS.: Pequenas regras para uso deste tópico: [*] [*]Não faça propaganda(os posts serão excluidos ou editado caso ocorra e o usuário advertido por MP quando necessário) [*]Pedidos de indicações serão removidos [*]Poste apenas a URL do host e sua nota de avaliação pessoal sobre o site indicado( valor de 0 a 10 pontos) [*]É permitido qualquer texto adicional que não seja considerado propaganda ou que não induza as pessoas a acessarem o link de forma involuntária Considerações Finais: A atualização dos valores e configuração mínima de cada indicação na lista será atualizada por um moderador da área quando testado o link. A hospedagem que entitular como o serviço "gratuito por X dias" será considerada como Hospedagem Paga Não nos responsabilizamos por problemas futuros, mau uso das hospedagens ou insatisfação do usuário Hospedagem Gratuita(5 links): Hospedagem Paga(21 links): ____________________________________________________________ PS.: Tópico inspirado em http://forum.imasters.com.br/index.php?showtopic=107215
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.