Ir para conteúdo
Fórum Script Brasil

Decio

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    797

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que Decio postou

  1. Decio
    Eu acho que você postou no fórum errado , deveria ser no de Vb. Como você faz o acesso ao banco de dados? Eu utilizo o VB6 e uso banco de dados criado com o Access 2000 sem problema nenhum. Se você faz acesso utilizando como refêrencia o MS ActiveX Data Objects Library 2.5 ou maior , tem que funcionar.
  2. Decio
    Verifique as permissões do banco de dados abrindo o Access e olhando na aba FERRAMENTAS - SEGURANÇA - PERMISSÕES PARA USUARIOS E GRUPOS se você tem permissão para alterar algo. Se isto não resolver ,mostre como você está abrindo a conexão com o banco de dados.
  3. Decio

    Me Ajudem Com Uma Duvida

    pergunta respondeu ao fenix de Decio em ASP

    Veja se você pode adaptar este código para o seu uso. Caso tenha dificuldade poste o seu código e mostre aonde esta a dificuldade. Abraço. <% SA= Request.Form("Senha_Atual")'Senha atual SN= Request.Form("Nova_Senha")'Nova senha CSN= Request.Form("Confirma_Nova_Senha")'Confirma nova senha Set con = Server.CreateObject("ADODB.Connection") 'Verifica se existe o usuário e se a senha confere SQL ="SELECT * FROM users WHERE email = '" & trim(EM) & "' AND Senha = '" & SA & "' " set lista = con.Execute(SQL) 'Não existe usuário If Lista.eof = True Then Response.Write "<B>Usuário ou Senha Incorreto.<br> Tente novamente.</B>" Response.End End If 'Compara se senha nova é igual a confirmação da nova senha PWS= strcomp((trim(SN)),(trim(CSN)),1) If PWS <> 0 then 'se Password forem diferentes Response.Write "<B>Novo Password está incorreto.</B><BR>Tente novamente..<br>" Response.End End If 'Se usuario preencheu corretamente os campos if SN <> Empty and CSN <> Empty then Response.Write "<br><br>" Set rsAux2 = con.execute ("UPDATE Users SET Senha = '" & CSN & "' WHERE Login = '" & Session("USER_NAME") & "';") end if con.close set con = nothing Response.End end if %>
  4. Decio

    Error No Bd

    uma questão respondeu Decio em ASP

    No seu código letras maiusculas e minusculas fazem diferença?
  5. Decio

    Novo Erro

    pergunta respondeu ao Danilo Piovani de Decio em ASP

    Agora foi eu quem esqueceu o SET ....
  6. Decio
    tente usar a tag html <b> e </b> no corpo da mensagem (ex: <b>Texto em negrito </b> ).Se não funcionar mostra ai qual componente que você está usando.
  7. Decio

    Ninguém Consegue!

    pergunta respondeu ao xangall de Decio em Visual Basic

    E se a pessoa que abriu o banco em modo exclusivo resolver ir almoçar depois de ter começado a editar?ninguém mais vai poder alterar o banco de dados? (apenas curiosidade)
  8. Decio

    Novo Erro

    pergunta respondeu ao Danilo Piovani de Decio em ASP

    A sintaxe do seu update parecce que está incorreta, tente por esta no lugar: conn.Execute("Update Tabela (campo1,campo2,campo3,campo4,campo5) values ('"& Var1 & "','"& var2 & "','"& var3 & "','"& var4 & "','"& var5 & "')")
  9. Decio

    Novo Erro

    pergunta respondeu ao Danilo Piovani de Decio em ASP

    Acho que a sintaxe do Update está incorreta: deve ser algo assim: conn.Execute("Update Tabela (campo1,campo2,campo3,campo4,campo5) values ('"& Var1 & "','"& var2 & "','"& var3 & "','"& var4 & "','"& var5 & "')") outra opção é abrir outro recordset Set RS = Server.CreateObject("ADODB.Recordset") SQL ="SELECT * FROM Tabela " SQL =SQL & "WHERE ID = " & ID RS.Open SQL,Conn,3,3 if not RS.eof then 'Se existe código RS("campox")=now RS("Campoy")= "xxxx" RS.Update end if RS.Close set RS = Nothing
  10. Decio

    Novo Erro

    pergunta respondeu ao Danilo Piovani de Decio em ASP

    O update deve ser + ou - desta forma: con.execute ("UPDATE Tabela SET Campoy = '" & VarAlgumaCoisa & "' WHERE Campox = '" & VarOutraCoisa & "';")
  11. Decio

    Onde Está O Erro?

    pergunta respondeu ao Ronnie_Quintino de Decio em ASP

    Acho que falta algo assim: Mailerl.Body = "<HTML><BODY BGCOLOR=#0000FF>Teste:....</BODY></HTML>" Mailer.IsHTML = True Mailer.Send
  12. Decio
    você tem o componente de envio de email instalado no servidor? (acho que é o AspEmail) Desculpe, mas é a pergunta básica.
  13. Decio

    Novo Erro

    pergunta respondeu ao Danilo Piovani de Decio em ASP

    + uma tentativa. Tenha certeza que Actionvar é um inteiro: Actionvar=Cint(Request.QueryString("actionvar"))
  14. Decio
    Tente isto <% teste="decio" redireciona="teste.asp?Nome=" & teste Response.redirect(redireciona) %>
  15. Decio

    Onde Está O Erro?

    pergunta respondeu ao Ronnie_Quintino de Decio em ASP

    Tem alguns códigos estranhos: Utilize o & e não o + para concatenar strings: sText = sText & Request.Form("tv") & "<br>" linha53 A abertura da sua conexão esta assim: arquivo = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\web\interlace\www2\db\interlace.mdb" ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + arquivo Se você for visualizar a string , ela vai estar assim: ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\web\interlace\www2\db\interlace.mdb" Se abriu a conexão foi pura sorte... Abraços.
  16. Decio
    Não sei qual o valor default mas tem que especificar se o corpo da mensagem é texto ou html: msg.BodyFormat = 0 ' 1 = texto msg.MailFormat = 0 'Codificação MIME É provável que o valor default seja zero e nem precise desta linha, mas se não funcionar tenta assim.
  17. Decio

    Proteção De Diretório

    pergunta respondeu ao portalsnol de Decio em ASP

    A solução do urso deve resolver . Outra solução caso você não queira que os usuarios cadastrados não tenham que se logar sempre no site seria você não colocar o nome da sua página principal como index ou default . No lugar você cria uma página index ou default que redireciona para a página principal. Ai quando o camarada digitar www.portalsnol.com/cursos ao invéz de carregar a sua página , sera carregada a index que redireciona para a principal. Esta dica é mais útil em sites que rodam apenas html. Fui claro?
  18. Decio

    Cartão Virtual

    pergunta respondeu ao Mateustg de Decio em ASP

    Não testei o código , mas não seria assim?: Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=" & Server.MapPath("./postaisdigitais.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;MaxBufferSize=8192;Threads=20;", "username", "password" Set rs = Server.CreateObject("ADODB.Recordset") Primeiro abre a conexão e depois se cria um recordset.
  19. Decio

    Duvida Básica

    pergunta respondeu ao ::Jhonys:: de Decio em ASP

    Eu pessoalmento acho que é válido você já começar a aprender Asp.Net , mas sem desespero. Tem muitas empresas que não tem estrutura para desenvolver em Asp.Net e preferem continuar com o "velho" e bom Asp. Em outras empresas , se o desenvolvedor provar que vale a pena o investimento , investe em nova tecnologia.Eu acho que depende do caso.A gente tem sempre que estar preparado.
  20. Decio

    Aspmail

    pergunta respondeu ao Ronnie_Quintino de Decio em ASP

    você pode entrar no site do Aspemail http://www.aspemail.com e baixar a dll e o script de como utiliza-la. você também pode utilizar o Cdonts que vem junto com o IIs . Qualque dúvida...
  21. Decio

    Sistema De Upload

    pergunta respondeu ao pchardnet de Decio em ASP

    Eu faria da forma que o urso falou: Copiaria as figuras para um determinado diretório e criaria o link para estas figuras no banco de dados.No mysql da para incluir figuras do banco de dados , mas eu nunca usei. eu acho que o tamanho do banco de dados com o passar dos tempos deve ficar muito grande e dificultar o acesso e manutenção no database.
  22. Decio

    Api, Trim E Cstr

    pergunta respondeu ao Mello de Decio em ASP

    Só contesto a pouca abrangencia da resposta.Com o uso de API's é possível acesso a muitas funções avançadas do sistema operacional.. O site abaixo disponibiliza um software com mais de 800 chamadas a API's do Windows. http://www.mentalis.org/agnet/apiguide.shtml
  23. Decio

    Optimizar, Compactar E Reparar

    uma questão respondeu Decio em ASP

    Da uma olhada neste site: http://www.2enetworx.com/dev/projects/tableeditor.asp baixe o script e analize o código.
  24. Decio

    Destacar Paginação

    pergunta respondeu ao spash de Decio em ASP

    Tente este exemplo: https://www.scriptbrasil.com.br/?class=2.3&...ategoria=Vários
  25. Decio
    Para usar o AspMail basta entra no site do fabricante http://www.aspemail.com baixar o arquivo e ler a documentação. tem exemplos, não vai ter dificuldade nenhuma.
×
×
  • Criar Novo...