Ir para conteúdo
Fórum Script Brasil
  • 0

Tipo De Cadastro Usando Access 2000


BOMBA

Pergunta

Olá pessoal tudo bem??? Bom sou novato em ASP , e estou precisando d uma ajuda d vocês !!!!! Bom aqui na empresa em que estou estagiando , temos uma intranet , e eu trabalho em cima desta intranet , e estou querendo fazendo um cadastro simples usando o bd ACCESS 2000 , eu só quero jogar os valores que serao preenchidos numa EDIT para o BANCO DE DADOS e depois um link para eu ver quem está cadastrado , acho simples mais não estou conseguindo fazer por nd !!!!!! alguém pode me ajudar ???? aí vão os cod dq eu fiz aqui .

código insere.asp

<%
DIM conexaoDataBase
DIM rscadastramento
const cntCaminho= "<\\rj7439nt100\en2592\cadastro_banking\cadastramento.mdb>" <<< caminho onde fica armazenado tudo da intranet
set conexaoDataBase = Server.CreateObject("ADODB.Connection")
set rscadastramento = Server.CreateObject("ADODB.Recordset")
conexaoDataBase.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & cntCaminho
rscadastramento.open "cadastramento" , conexaoDataBase
%>



<html>
<body>
Agência: <% = rscadastramento("Agencia")%> <br>
Nome do Cliente: <% = rscadastramento("Nome_cliente")%>
Nº da Conta: <% = rscadastramento("N_Conta") %>
</body>
</html>
<%
rscadastramento.close
conexaoDataBase.close
%>[/codebox]

[codebox]código da pagina, form.asp

<html>
<head>
<title>Cadastro</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<form action="insere.asp" method="post" name="form1">
<table width="100%" border="0">
<tr>
<td colspan="2"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Cadastramento Internet Banking</strong></font></div></td>
</tr>
<tr>
<td width="30%"><div align="center"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Agência:</font></strong></div></td>
<td width="70%">
<input name="Agencia" type="text" id="Agencia" size="20" maxlength="20">
</td>
</tr>
<tr>
<td><div align="center"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Nome do Cliente:</font></strong></div></td>
<td> <input name="Nome_cliente" type="text" id="Nome_cliente" size="20" maxlength="20"></td>
</tr>
<tr>
<td><div align="center"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Nº da Conta:</font></strong></div></td>
<td> <input name="N_Conta" type="text" id="N_Conta" size="20" maxlength="20"></td>
</tr>

<tr>
<td height="45" colspan="2">
<div align="center">
<input type="submit" name="Submit" value="Inserir">
</form>
</div>
</tr>
</table>
</body>
</html>

OBS: o bando d dados só possui 3 valores : agencia , Nome_cliente , N_Conta.

Dae pessoal da essa força aí , to precisando muito disso !!!!

Obrigado a todos !!!!!!

grande abraço

Link para o comentário
Compartilhar em outros sites

Posts Recomendados

  • 0

Acabei de executar o código acima e ele gera um erro....

Microsoft OLE DB Provider for ODBC Drivers error '80040e10' 

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1. 

/w/e/b/webdesenvolv/inserir_form.asp, line 16

... E aquela mensagem inicial de erro que diz para contatar o "Administrador" é uma configuração do IIS...

falou...

Link para o comentário
Compartilhar em outros sites

  • 0

Andreia , você pode me enviar o código que você fez ???? cara já fiz d tudo e aqui continua dando erro , nunca vi isso cara !!!!! Pode refazer o código todo , e mandar pra mim , heim??????? To precisando muito , está geral aqui em cima d mim !!!!!!

Refiz o codigo todo dnovo e continua com erro :

Form_cadastro:

<html>
<head><title>Cadastro</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>

<FORM ACTION="form_inserir.asp" METHOD="POST" name="form">

<table width="80%" border="0"><tr> <td colspan="2"><div align="center">
<font size="4" face="Verdana, Arial, Helvetica, sans-serif">
<strong>Cadastramento Internet Banking</strong></font></div><br>
</td></tr><tr> 
    
    <td width="30%"><div align="center"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Agência:</font></strong></div></td>
    <td width="70%"><input name="Agencia" type="text" id="Agencia" value="" size="20">
    </td></tr><tr>
     
    <td><div align="center"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Nome do Cliente:</font></strong></div></td>
    <td> <input name="Nome_cliente" type="text" id="Nome_cliente" size="20" maxlength="100">
    </td></tr><tr>
    
   <td><div align="center"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Nº da Conta:</font></strong></div></td><td> 
    <input name="N_Conta" type="text" id="N_Conta" size="20" maxlength="10">
    </td></tr><tr>
    
    <td><div align="center"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Operação:</font></strong></div></td>
    <td> <input name="Op" type="text" id="Op" size="20" maxlength="20">
    </td></tr><tr> 
    
 <td height="45" colspan="2"><div align="left"> <br><br>
 <input type="submit" name="enviar" value="enviar">

</form>
</div>
</tr>
</table>
</body>
</html>
código do form_inserir.asp
<html>

<head>
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">

<title>cadastro</title>
<meta name="FORMATTER" content="Microsoft FrontPage 2.0">
</head>

<basefont face="trebuchet ms" color="navy" size=3>


<%@ LANGUAGE=VBScript%><% 


Dim age,nome,numeroconta,op,cmd1,comando,DB

age = request.form("Agencia")
nome = request.form("Nome_cliente")
numeroconta = request.form("N_Conta")
op  = request.form("Op")

'***Declarando Conexões com Banco de Dados***
Set DB = Server.CreateObject("ADODB.Connection")    
DB.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("rj7469nt101\en2592\cadastro_banking\cadastro.mdb")


'*** Insere o novo registro na base de e-mail ***
cmd1 = "INSERT INTO cadastramento (Agencia, Nome_cliente, N_Conta, Op ) 
VALUES ("&Agencia&",'"&Nome_cliente&"',"&N_Conta&","&Op&")"

comando = cmd1 

DB.Execute(comando) 
response.Write(comando)

%>


</html>

O ERRO CONTINUA!!!!

Link para o comentário
Compartilhar em outros sites

  • 0

form_cadastro.html

<html>
<head><title>Cadastro</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<form action="inserir_form.asp" method="post" name="form1">

<table width="80%" border="0"><tr> <td colspan="2"><div align="center">
<font size="4" face="Verdana, Arial, Helvetica, sans-serif">
<strong>Cadastramento</strong></font></div><br>
</td></tr><tr> 
    
    <td width="30%"><div align="center"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Agência:</font></strong></div></td>
    <td width="70%"><input name="Agencia" type="text" id="Agencia" size="20" maxlength="25">
    </td></tr><tr>
     
    <td><div align="center"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Nome do Cliente:</font></strong></div></td>
    <td> <input name="Nome_cliente" type="text" id="Nome_cliente" size="20" maxlength="100">
    </td></tr><tr>
    
    <td><div align="center"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Operação:</font></strong></div></td>
    <td> <input name="Op" type="text" id="Op" size="20" maxlength="20">
    </td></tr><tr> 
    
    <td><div align="center"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Nº da Conta:</font></strong></div></td><td> 
    <input name="N_Conta" type="text" id="N_Conta" size="20" maxlength="10">
    </td></tr><tr>
    
<td height="45" colspan="2"><div align="left"> <br><br>
<input type="submit" name="Submit" value="Inserir">

</form>
</div>
</tr>
</table>
</body>
</html>
inserir_form.asp
<%
Agencia = Request.Form("Agencia")
Nome_cliente = Request.Form("Nome_cliente")
Op = Request.Form("Op")
N_Conta = Request.Form("N_Conta")

Set objConn = Server.CreateObject("ADODB.Connection")
Conexao.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("cadastro.mdb")
strQuery = "INSERT INTO cadastramento (Agencia , Nome_cliente , Op , N_Conta) VALUES ("&Agencia&",'"&Nome_cliente&"',"&Op&","&N_Conta&")"

Set ObjRs = objConn.Execute(strQuery)
objConn.close
Set objRs = Nothing
Set objConn = Nothing
'Caso a função On Error Resume Next não tenha sido chamada o objeto err será = a 0
if err = 0 Then
'Redireciona o usuário caso não tenha ocorrido erro na transação
response.redirect "teste.asp"
end if
%>

Link para o comentário
Compartilhar em outros sites

  • 0

Olá andreia , tudo bem??? sou eu dnovo :) !!!!!!

você sabe o que pode c este erro , cara não adianta eu ficar mudando d código , bom tenho kuase 100% d certeza dq o cód está certo !!!!

erro:

Ocorreu um erro durante o processamento da URL. Por favor, entre em contato com o Administrador do Sistema.

Link para o comentário
Compartilhar em outros sites

  • 0

eu não conheço esse erro... nem no google aparece nada..

o codigo funciona, voce testou o que eu colei no brinkster..

roda na sua maquina (tem que ter o IIS) e ve o que da.. Se não, bate o pé com o teu servidor web, diz que o codigo funciona localmente ou em outro servidor e no deles não.

e também confira se voce tem permissao de escrita, que também tem que confirmar com eles lá

Link para o comentário
Compartilhar em outros sites

  • 0

outro erro : INSERT INTO CADASTRO (agencia,nomecliente,nconta,op) VALUES ('4145','Teste ','2222222','13')Ocorreu um erro durante o processamento da URL. Por favor, entre em contato com o Administrador do Sistema.

aqui mostra que ele pega os dados + não joga na tabela.

Link para o comentário
Compartilhar em outros sites

  • 0

façamos outro teste então, copia a parte em vermelho :

<%

Agencia = Request.Form("Agencia")

Nome_cliente = Request.Form("Nome_cliente")

Op = Request.Form("Op")

N_Conta = Request.Form("N_Conta")

Set objConn = Server.CreateObject("ADODB.Connection")

Conexao.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("cadastro.mdb")

'strQuery = "INSERT INTO cadastramento (Agencia , Nome_cliente , Op , N_Conta) VALUES ("&Agencia&",'"&Nome_cliente&"',"&Op&","&N_Conta&")"

'Set ObjRs = objConn.Execute(strQuery)

objConn.execute("insert into cadastramento (agencia, nome_cliente, op, n_conta) values (9,'fulano', 9,1)")

response.end

objConn.close

Set objRs = Nothing

Set objConn = Nothing

'Caso a função On Error Resume Next não tenha sido chamada o objeto err será = a 0

if err = 0 Then

'Redireciona o usuário caso não tenha ocorrido erro na transação

response.redirect "teste.asp"

end if

%>

Link para o comentário
Compartilhar em outros sites

  • 0

Só + uma coisinha Andreia , desculpe mesmo t pertubar, mais tem como eu fazer isso numa planilha d excel , tipo abre a planilha que eu criar aqui e quando o pessoa fexar , já salva as alterções ??? tem como fazer isso??

é que eu realmente tenho que salvar estes dados , não importa c vai c em EXCEL , BLOCO D NOTAS , WORD, mais a pessoa cadastrando tenho que salvar isso !!!!!

Link para o comentário
Compartilhar em outros sites

  • 0

Olá Andréia, deu uma parada aqui no código agora, o erro é esse:

error "ASP 0174 : 80004005' , sabe o que quer dizer???

eu vi +/- o que era e dizia que o caminho está errado ou o diretório não existe, pois o caminho aqui está correto e o diretório existe também !!!!!

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...