Tipo De Cadastro Usando Access 2000

BOMBA · February 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. · February 28, 2007

o que acontece? aparece algum erro?

BOMBA · February 28, 2007

Olá andreia, acontece o seguinte, quando eu clico em Inserir me aparece isso ---> http 500 - erro interno do servidor

"A página não pode ser exibida

Há um problema com a página que você está tentando acessar e ela não pode ser exibida. " e por aí vai e quando vou no tabela do bd ver c inseriu alguma coisa e sempre está vazia !!!!! :unsure:

Sabe o que pode c ???

Edited February 28, 2007 by BOMBA

.Andreia. · February 28, 2007

Realize este procedimento: http://scriptbrasil.com.br/forum/index.php...st&p=355756

rode novamente, veja qual erro que aparece e poste aqui

BOMBA · February 28, 2007

Ok andreia , bom fiz este procedimento e foi mostrado isto :

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

o Código está ok ??????

Será alguma configuração do IIS ????? Caso sim não posso mexer na configuração pois não tenho este privilégio, c estagiário é fogo, heheheheheheheeh!!!!! Só com o Adm e hj ele não está aqui !!!!!!!

Obrigado

.Andreia. · February 28, 2007

Eu não conheço esse erro, se fosse do codigo iria apontar a linha... Voce está rodando isso localmente? ou em algum servidor?

Voce está abrindo pelo browser digitando assim:

http://localhost/se_tiver_em_alguma_pasta/seu_arquivo.asp

??

Eu sei como é ser estagiaria.... já fui muuito rssssss

BOMBA · February 28, 2007

Bom andreia o é este o endereço : www.en2592.rj.........................

.Andreia. · February 28, 2007

direto da web.. entra em contato com o suporte do teu servidor...

BOMBA · February 28, 2007

obrigado andreia , pode deixar que vou falar com o suporte sim , e qlq coisa posto aqui !!!!!!!

VLW!!!!

Grande abraço

BOMBA · March 27, 2007

Olá Andréia , tudo bem??? SOu eu dnovo :)

Bom é o seguinte , dá uma olhada neste código pra mim v c está tudo certinho , eu quero apenas incluir dados no Banco d Dados , nunca pensei que isso fosse tão dificil , Meu Deus !!!!!

Código Inserir.asp

<% 
DIM conexaoDataBase DIM rscadastramento

set conexaoDataBase = server.createobject("ADODB.connection")
bancoacesso = Server.MapPath("\cadastro_banking\cadastro.mdb")
conexaoDataBase.open "provider=microsoft.jet.oledb.4.0;data source=" & bancoacesso

set rscadastramento = Server.CreateObject("ADODB.Recordset")   <<<<< é recordset , pra incluir mesmo???

rscadastramento.open "cadastramento" , conexaoDataBase 
%>
<html>
<body>
        Agência: <% = rscadastramento("Agencia")%>  
<br>Nome do Cliente: <% = rscadastramento("Nome_cliente")%><br>
        Operação: <% = rscadastramento("Op") %><br>
        Nº da Conta: <% = rscadastramento("N_Conta") %>
</body>
</html>
<% 
   rscadastramento.close
   conexaoDataBase.close
%>

Código da Página Form_cadastro :

<html>
<head><title>Cadastro</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<form action="inserir.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 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" 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>

Eu falei com o suporte do Servidor , eles disseram que está tudo trank, e até deram autorização pra mim , que eu não tinha, pra incluir dados , remover, alterar ......

Já não sei + o que fazer :blink:

OBRIGADO

Edited March 27, 2007 by andreia_sp
utilize tags para codigos, facilita a visualização.

.Andreia. · March 27, 2007

mas qual erro que aparece??

BOMBA · March 27, 2007

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

Mudei até o Código inteiro do Inserir.asp , fui catando aqui no forum alguns códigos e continua no mesmo erro .

Código Inserir.asp :

<%

Dim objConn, objRs, strQuery, strConnection, Agência , Nome do Cliente , Operação , Nº da Conta, strDBPath

'Atrubuição dos valores as respectivas variáveis

Agência = Request.Form("Agencia")

Nome do Cliente = Request.Form("Nome_cliente")

Operação = Request.Form("Op")

Nº da Conta = Request.Form("N_Conta")

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

strDBPath = "\\rj7469nt101\en2592\cadastro_banking\cadastro.mdb"

objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"

strQuery = "INSERT INTO cadastramento (Agência,Nome do Cliente,Operação,Nº da 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 "\\rj7469nt101\en2592\cadastro_banking\sucesso.html"

end if

%>

.Andreia. · March 27, 2007

Eu não tenho como testar daqui mas algumas coisas a dizer:

- não use nome de campos com acentuação como agência, mude para agencia, operação para operacao

- de preferencia para _ do que espaço nos nomes dos campos: Nº da Conta para numero_da_conta ou numeroconta ou numero_conta

BOMBA · March 27, 2007

Eu coloquei assim porque

por Exmplo?

Agência (<--está assim no form ) = Request.Form("Agencia") <------ Está assim no meu BD .

strQuery = "INSERT INTO cadastramento (Agência,Nome do Cliente,Operação,Nº da Conta) <--- está assim no FORM

VALUES ('"&Agencia&"','"&Nome_cliente&"','"&Op&"','"&N_Conta&"')" <--- está assim no BD .

Isso tem alguma coisa a v , ou eu estou boiando mesmo?????

.Andreia. · March 27, 2007

está boiando kkkkkkkkk os seus inputs estão certos:

<input name="Agencia" type="text" id="Agencia" size="20" maxlength="25">
<input name="Nome_cliente" type="text" id="Nome_cliente" size="20" maxlength="100">
<input name="Op" type="text" id="Op" size="20" maxlength="20">
<input name="N_Conta" type="text" id="N_Conta" size="20" maxlength="10">

faça igual no banco de dados, acentuação sempre dá problema.

BOMBA · March 27, 2007

Ei menina , não ria d mim , sou apenas um menino que está boiando e quer aprender esse troço !!!!!!!!

HUAHaUAHhHhHUhuhUAHhaHha To zuando !!!!!!

Então Andreia , meu Banco está dessa maneira que nem os Input !!!

Ahhhhhhhhhhhhhhhhhhhhh porque isso não dá certoooo !!!!!!

.Andreia. · March 27, 2007

hehehehe

se estao iguais então porque fez o insert diferente???? faz assim:

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

verifique se o banco os campos se chamam: agencia, nome_cliente, op, n_conta

BOMBA · March 27, 2007

os Campos no Banco , é assim: Agencia , Nome_cliente , Op , N_Conta .

mudei o INSERT

é assim:

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

VALUES ('"&Agencia&"','"&Nome_cliente&"','"&Op&"','"&N_Conta&"')"

????

Desculpa aí Andreia , devo estar enxendo seu saco!!!!!!

.Andreia. · March 27, 2007

isso, a sql está certa.

não tá enchendo não ;)

Quanto ao erro, tenta rodar depois dessa mudança porque de qualquer forma... já arrumamos alguma coisa.

ps.: lembrando que no inserir.asp voce tem que arrumar a requisição das variaveis para:

Agencia = Request.Form("Agencia")
Nome_cliente = Request.Form("Nome_cliente")
Op = Request.Form("Op")
N_Conta = Request.Form("N_Conta")

BOMBA · March 27, 2007

Oi andreia , desculpe a demora , é que estava resolvendo outras coisas aqui, bom fiz todos esses ajustes e continua o erro !!!!!!

essa parte da pagina tem alguma coisa : <form action="inserir.asp" method="post" name="form"> ?????

.Andreia. · March 27, 2007

Está certo, tem como você monta um BD somente com essa tabela e anexar aqui?? Eu não tenho access nessa maquina e então eu testaria por um servidor web

BOMBA · March 27, 2007

Bom não entendi direito o que você quis dizer, mais eu tirei um Print Scrren e salvei como imagem aqui meu BD .

Segue em anexo.

Obrigado !!!!

OBS: na sql eu já mudei a posição do campo OP , estava assim , agencia , nome , op , N_conta , eu já coloquei agencia , nome, N_conta , op .

.Andreia. · March 27, 2007

não a imagem... é que aqui eu não tenho access e pra testar o seu codigo eu preciso do banco. Se você tem como montar um BD com essa tabela, pode ser com dados ficticios pra não ter problema, somente pra eu testar entende??

ai você anexa aqui... mas cria um BD novo, copia aquela tabela altera os registros se preferir, salva e anexa blza?

BOMBA · March 27, 2007

Andreia , podemos começar amanha, eu tenho que ir pra faculdade agora , tenho prova de Circuito Lógico !!!!!!! Amanha agente recomeça , está ok pra você??? Vo anexar aqui o bd !!!!! Até amanha muito obrigado !!!!!!

abraços

BOMBA

cadastro.zip

.Andreia. · March 27, 2007

pelo menos o problema que eu encontrei foi que você está tratando os campos Ag, op e N_conta como texto sendo que no BD são numeros.. então sua SQL tem que ser assim:

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

aqui não deu erro, arruma aí e tenta de novo

BOMBA · March 28, 2007

Arrumei Andreia , e continua com erro :( !!!!!

OMG

Sign In

Tipo De Cadastro Usando Access 2000

Question

Link to comment

Share on other sites

49 answers to this question

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation

Forum Statistics