Tipo De Cadastro Usando Access 2000

BOMBA · Fevereiro 28, 2007

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

.Andreia. · Março 28, 2007

pra você conferir que comigo funciona:

http://webdesenvolv.brinkster.net/form_cadastro.html

eu to achando que isso é problema no servidor web hein, já tentou rodar na sua maquina (local)?

BOMBA · Março 28, 2007

é realmente está dando certo aí com você !!!!

Usou o mesmo código de inserir do meu né!!!!

Poxa eu falo com o suporte e dizem que está tudo ok !!!!!!

Vo ver o que eu faço aqui e qlq post aqui.

Obrigadão Andreia

bjus

Bomba

marcos_804 · Março 28, 2007

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...

.Andreia. · Março 28, 2007

marcos voce inseriu em agencia, operacao e numero da conta NUMERICOS ??

BOMBA · Março 29, 2007

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!!!!

.Andreia. · Março 29, 2007

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
%>

BOMBA · Março 30, 2007

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.

.Andreia. · Março 30, 2007

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á

BOMBA · Março 30, 2007

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.

.Andreia. · Março 30, 2007

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
%>

BOMBA · Março 30, 2007

Cara vo fazer uma pergunta idiota , mais é pra copiar a parte toda d vermelho , e as que estão com o ponto vermelho na frente também???

.Andreia. · Março 30, 2007

sim, comentei 2 linhas e inseri mais 2 abaixo

BOMBA · Março 30, 2007

Putz , continua esse erro , eu estou tentando ligar pro suporte mais ngm atende !!!

.Andreia. · Março 30, 2007

então, o problema não é no codigo não! o jeito é pentelhar o pessoal do suporte.

fala que funciona em outro servidor e no deles não

BOMBA · Março 30, 2007

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 !!!!!

.Andreia. · Março 30, 2007

esse do excel voce teria que fazer UPLOAD do arquivo. Mas assim... se o problema é de permissoes, não vai adianta txt, excel... vai sempre da erro.

BOMBA · Março 30, 2007

Pode me mostrar como c faz???? HEIMMMMMM !!!! :P

.Andreia. · Março 30, 2007

da uma pesquisada aqui no forum sobre upload que tem muita coisa.

BOMBA · Março 30, 2007

+ não deve da certo mesmo não , está dando HTTP 500 - erro interno do servidor

Internet Explorer

Realemente é o servidor !!!!!

.Andreia. · Março 30, 2007

esse erro é o que já estava aparecendo antes:

http://scriptbrasil.com.br/forum/index.php...st&p=412818

e o procedimento a tomar:

http://scriptbrasil.com.br/forum/index.php...st&p=412822

BOMBA · Abril 4, 2007

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 !!!!!

.Andreia. · Abril 4, 2007

esse erro ocorre no server.MapPath() por exemplo quando usa caracteres não aceitos: '/' '\'

BOMBA · Abril 4, 2007

Estranho é que eu coloco / ou \ e sempre da o mesmo erro !!!!!!

.Andreia. · Abril 4, 2007

Eu também tive esse problema uma vez, eu acabei preferindo muda a forma de conexao para o caminho fisico inteiro

Entrar

Tipo De Cadastro Usando Access 2000

Pergunta

Link para o comentário

Compartilhar em outros sites

49 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns