Ir para conteúdo
Fórum Script Brasil

cyberalexxx

Membros
  • Total de itens

    2.500
  • Registro em

  • Última visita

Posts postados por cyberalexxx

  1. Abre um recordset de acordo com as especificações da variavel sqlstmt usando a conexão com o banco de dados setada em DSNtemp com tipo de cursor 3 e tipo de trava 3.

    Traduzi um pouco, minha didatica é meio ruim creio q ira precisar de mais traduções.

  2. c você esta com problemas no elseif, tenta fazer com case>

    select case request("area")
       case "detalhes" 
       %><!--#include file="detalhes.asp" --><%
    
       case "contato"
       %><!--#include file="contato.asp"> --><%
    
       case "cadastro" 
       %><!--#include file="cadastro.asp"> --><%
    
       case "privacidade"
       %><!--#include file="privacidade.asp"> --><%
    
       case "empresa"
       %><!--#include file="empresa.asp"> --><%
    
       case "login"
       %><!--#include file="login.asp"> --><%
    
       case ""
       %><!--#include file="home.asp" --><%
    end select
    %> 

  3. no exemplo que eu postei anteriormente eu tinha feito uma alteração no tópico e acho q voce pegou sem alteração, da uma olhada de a linha 15 esta assim:

    response.write "foram encontradas " & Rs("total") & " enquetes com o titulo: " & titulo & "<br>"

  4. não sai da pagina???

    sera que ele não esta executando o script e dando o response.redirect para a pagina principal??

    Se não esta dando erro, é porque não existe erro de programação, o que pode estar ocorrendo é que não esta sendo encontrada nenhuma informação para ser deletada, tenta isso:

    <%
    Dim localbd, meubd, excluir, id, titulo
    
    localbd="driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("../bd/bd.mdb")
    
    set meubd=server.createobject("adodb.connection")
    set excluir=server.createobject("adodb.recordset")
    
    titulo=request.querystring("titulo")
    meubd.Open localbd
    
    sql="Select count(titulo) as total from noticias where titulo='" & titulo & "'"
    set rs=conexao.execute(sql)
    If not rs.eof then
       response.write "foram encontradas " & Rs("total") & " enquetes com o titulo: " & titulo & "<br>"
    else
       response.write "Nenhum registro encontrado"
    end if
    
    meubd.execute ("DELETE * from noticias where titulo='"& titulo & "'")
    
    'Redirecionar para página principal
    Response.write "operação realizada com sucesso"
    
    
    %>

  5. <%

    Dim localbd, meubd, excluir, id, titulo

    localbd="driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("../bd/bd.mdb")

    set meubd=server.createobject("adodb.connection")

    set excluir=server.createobject("adodb.recordset")

    titulo=request.querystring("titulo")

    meubd.Open localbd

    meubd.execute ("DELETE * from noticias where titulo='"& titulo & "'")

    'Redirecionar para página principal

    response.redirect "principal.asp"

    %>

  6. <%

    'Criando variáveis

    Dim localbd, meubd, excluir, id, titulo

    'Indicando local do Banco de dados

    localbd="driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("../bd/bd.mdb")

    'Setando conexao

    set meubd=server.createobject("adodb.connection")

    set excluir=server.createobject("adodb.recordset")

    titulo=request.querystring("titulo")

    'Abrindo conexao

    meubd.Open localbd

    'Aqui utilizaremos três DELETEs

    'Pois queremos apagar tanto a enquete, quando seus votos e seus comentários

    'Caso só queira apagar a questão, tire as duas ultimas linhas

    sql = "Select * from noticias where titulo='" & titulo & "'"

    set rs=conexao.execute(sql)

    meubd.execute ("DELETE * from noticias where titulo='"& titulo & "'")

    meubd.execute ("DELETE * from votos where cod_questao="& Rs("cod_questao"))

    meubd.execute ("DELETE * from comentarios where cod_questao="& Rs("cod_questao"))

    'Redirecionar para página principal

    response.redirect "principal.asp"

    %>

  7. caso titulo seja campo texto tente assim:

    meudb.execute ("DELETE * from noticias where titulo='"& titulo"'")
    
    
    caso titulo seja campo numérico tente assim:
    meudb.execute ("DELETE * from noticias where titulo="& titulo)
    
    

  8. Outra lógica:

    Jogar todo o conteudo do arquivo texto para um vetor, cada linha seria seria um elemento do vetor. (da pra fazer com recordset.getrows) ou lendo via FSO e gravando no vetor.

    pesquise dentro do vetor e altere o valor da forma desejada.

    depois grave todo o conteudo do vetor no arquivo sobrescrevendo o mesmo.

  9. pelo que vi até hoje sobre manipulação de arquivos txt tanto via FSO quanto através de Recordset, não é possivel excluir nem editar linhas, apenas inserir no final do arquivo, a lógica que voce colocou é praticamente a mesma q eu usei quando precisei, mais apenas para localizar a informação a ser editada para posterior gravação no arquivo temporário.

  10. legal hein galera... agora seguinte... vou zuar com vocês...

    hehehhehe.....

    para ler e editar uma linha especifica no texto???

    Como diria Padre Kevedo ISSO NÃO ECZISTE!!! laugh.gif

    Não tem como editar um arquivo (minha opinião).

    já precisei fazer isso e a saida adotada foi trabalhar com um arquivo temporario. eu lia o que estava em um arquivo e gravava em outro com as alterações depois apagava o primeiro arquivo e renomeava o segundo com o nome do primeiro.

×
×
  • Criar Novo...