Ir para conteúdo
Fórum Script Brasil

spotinick

Membros
  • Total de itens

    7
  • Registro em

  • Última visita

Tudo que spotinick postou

  1. spotinick

    Consultar CPF no Banco

    Bom, o problema como sempre é um detalhe escondido que ninguém vê... Fiz uma correção numa expressão que exibe a pagina onde o registro está, o legal (porem sem respostas ainda) que o codigo da outra forma exibia o registro correspondente se o tipo de campo era numerico, mas infelizmente não era me permitia inserir os 11 digitos do CPF, o banco em mdb só aceitava se fosse em texto, vou postar o codigo para ver onde corrigi sem querer querendo rs Abraços e valeu pela ajuda Rafa!!! <% response.buffer = "true" 'Abre a conexão com o banco de dados Set Conexao = Server.CreateObject("ADODB.Connection") dbPath = "DBQ=" & Server.Mappath("dados/dados.mdb") Conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & dbPath sql = "SELECT * FROM form WHERE cpf = "& request.form("cpf") set tab = Conexao.Execute(sql) 'foi aqui q corrigi mudando dentro do tab onde antes estava o campo CPF, troquei pelo id do registro if tab.eof then response.redirect "inserir_candidato.asp" else response.redirect "view.asp?id="&tab("id") end if %>
  2. spotinick

    Consultar CPF no Banco

    Achou que eu ia acabar assim rapido... rs Cara, ficou mais confuso ainda, porque fiz um teste colocando apenas alguns numeros, mas quando você coloca os 11 digitos ele volta a dar o mesmo erro anterior, agora que eu não entendi nada. O que pode ser?
  3. spotinick

    Consultar CPF no Banco

    Fala Rafa como sempre me ajudando hehehe Seu eu fosse meu chefe já teria te contratado kkk Bom, vamos lá, mudei a sintaxe da query e ainda não funcionou Em relação a existencia do campo, tabela e caminho do BD, estão corretos, o que eu fiz foi que no Banco eu mudei a estrutura do campo CPF de texto para numero e usei a sintaxe q você me passou e FUNCIONOU!!!! Agora eu não entendi porque? rsrsrs Se como texto não funcionou e para numero funcionou, sendo que não há nada setado no codigo para fazer essa verificação Pergunta dificil????
  4. Olá, estou com duvidas em relação a consulta de dados em banco mdb. Neste caso, gostaria que fosse verificado no banco se o cpf já existe e mostrar o cadastro dele, senão abrir o formulario para ele inserir, abaixo está o codigo, mas quando digito o cpf no formulario de busca ele me traz um erro ERRO: Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E07) [Microsoft][Driver ODBC para Microsoft Access] Tipo de dados imcompatível na expressão de critério. /portalrh/consulta_cpf.asp, line 12 A linha 12 está no "set tab = Conexao.Execute(sql)" CODIGO: <% response.buffer = "true" 'Abre a conexão com o banco de dados Set Conexao = Server.CreateObject("ADODB.Connection") dbPath = "DBQ=" & Server.Mappath("dados/dados.mdb") Conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & dbPath sql = "SELECT * FROM form WHERE cpf = "& request.form("cpf") set tab = Conexao.Execute(sql) if tab.eof then response.redirect "inserir_candidato.asp" else response.redirect "view.asp?id="&tab("cpf") end if %>
  5. Meu SALVADOR hehehe Rafael, tava quebrando a cabeça com isso a 3 dias e você menos de 3 horas resolveu para mim rs. Que eu fiz foi assim: coloquei o script q você me passou e abri logo no começo da minha pagina as sessions e na hora que eu loguei apareceu somente os registros do usuario logado. valeu mesmo. Abraços
  6. Olá Rafael, neste caso o usuário já está logado sim, e é isso que eu quero pegar o nome de usuario e fazer um select para mostrar apenas os registros com o login dele. Abaixo é codigo que loga o usuário: <% 'Conexão com o banco de dados conexao="DBQ=C:\Inetpub\wwwroot\helpdesk\dados\dados.mdb;Driver={Microsoft Access Driver (*.mdb)}" Set DB = Server.CreateObject("ADODB.Connection") DB.Open conexao login=(Request.QueryString("login")) senha=(Request.QueryString("senha")) set acesso=DB.Execute("SELECT * FROM login WHERE login='"&login&"' AND senha='"&senha&"' ") ' Caso os dados não estiverem corretos o usuário é enviado para a entrar.htm if acesso.eof then Response.Redirect"negado.asp" else Session("login")=nome Session("login")= acesso("nome") 'você pode colocar quais sessions você quiser aqui que o restante do site vai ler. Response.Redirect"acesso.asp" end if DB.close %> valeu pela ajuda Rafael
  7. Olá a todos, sou iniciante em ASP e to com uma dúvida em relação a um script que montei. Montei uma intranet simples e um dos módulos é de helpdesk, onde quero que o usuario logado possa ver os chamados abertos e fechados. Minha dificuldade é pegar o usuario logado e confirmar apenas os registros dele. To com o seguinte código: <p>Olá, <% response.write session("login") %> <br>bem-vindo a<br>pagina de acesso restrito</p> <% set rs = nothing DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.mappath("../dados/dados.mdb") sqlstmt = "SELECT * FROM chamados,login WHERE chamados.login=login.login ORDER BY data ASC" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, DSNtemp, 3, 3 TotalRecs = rs.recordcount x = 0 For x = 1 to 9999 If rs.eof then Exit For Else login = rs("login") nome = rs("nome") data = rs("data") chamado=rs("chamado") %> Como faço para dar um select no session acima e mostrar os resultados?
×
×
  • Criar Novo...