[Resolvido] inserindo dados numa tabela com banco access

[Alex Galindo 0]

SHOW TAMO CHEGANDO LÁ, HEHHE, DESCULPA A APURRINHAÇÃO É QUE AGENTE QUANDO TA APRENDENDO FICA CADA VEZ MAIS CURIOSO. OBRIGADO DESDE JÁ MARIO.

 

SO VOU TE APURRINHAR UM POUQUINHO MAIS TA?

 

AGORA INCLUIU NA TABELA MAIS FOI AQUILO Q você DISSE O CAMPO CODIGO EU BOTEI COMO AUTO-NUMERAÇÃO.

 

TA INCLUINDO MAIS ME MANDA ESSA MENSAGEM NO NAVEGADOR:

 

INSERT INTO modelo (codigo, RG, CPF) VALUES ('44', '88888', '9999999') Notícia enviada com sucesso

 

MAIS TA INCLUINDO NA TABELA.

 

ENTAO ACHO Q E PQ NAO E TEXTO NE, MAIS AGORA EU ALTERO NO FORMULARIO OU NA PAGINA ASP MESMO.

 

OU EM TUDO NO FORM E NA PAGINA ASP?

 

PROBABILIDADE DE ALTERAÇÃO

 

NO FORM

 

TA ASSIM: Código: <input type='text' name='codigo' text=''><br>

 

 

NA ASP

 

TA ASSIM:

 

codigo = Request.form("codigo")

 

Insert = "INSERT INTO modelo (codigo, RG, CPF) VALUES ('"& codigo &"', '"& RG &"', '"& CPF &"') "

 

LOCAIS ONDE PODEM SER FEITAS AS ALTERAÇOES RETIRANDO AS ASPAS SIMPLES NAO É ISSO?

 

POIS SO O CAMPO CODIGO É AUTO-NUMERAÇÃO.

[Mário Monteiro 179]

se mo campo codigo é autonumeração voce nao deve coloca-lo no insert

 

ficaria assim

 

Insert = "INSERT INTO modelo (RG, CPF) VALUES ('"& RG &"', '"& CPF &"') "

o proprio DB coloca este numero

 

os demias sao texto mesmo?

[Alex Galindo 0]

MARIO COLOQUEI COMO você DISSE, MINHA DUVIDA AGORA E QUE TA DANDO ESSA MENSAGEM NO NAVEDOR:

 

INSERT INTO modelo (RG, CPF) VALUES ('88888', '9999999') Notícia enviada com sucesso

listar autores

 

CONTINUA INCLUINDO NA TABELA, MAIS A DUVIDA E A SEGUINTE:

 

NO FORM: EU RETIRO A CAIXA DE TEXTO PARA DIGITAR O CAMPO CODIGO OU NA VERDADE ELE PROP´RIO VAI PREENCHER NE.

 

ENTAO NAO PRECISO DA CAIXA DE TEXTOI OU PRECISO?

 

PQ SE EU NAO PREENCHO ELA DA ERRO, COMO SE EU FOSSE OBRIGADO A DIGITA ALGO NA CAIXA DE TEXTO CODIGO!

[Mário Monteiro 179]

nao precisa

 

que erro ocorre?

[Alex Galindo 0]

PQ NO FORM QDO NAO DIGITO NADA, NO CAMPO CODIGO ESPERANDO Q ELE PREENCHA DEPOIS SOZINHO, E COMPLETO DIGITANDO O RG E O CPF NORMALMENTE E CLICO EM ENVIAR.

 

ELE DA ESSE ERRO:

 

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01A8)

Objeto necessário: 'objConn'

 

DA ERRO AQUI:

 

objConn.close

 

achei agora q tivesse ate achado o erro pois nao tinha declarado la em cima a variavel objConn.

declarei e agora aparece esse erro:

 

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01A8)

Objeto necessário: ''

 

erro nessa mesma linha:

 

objConn.close

[Mário Monteiro 179]

tira esta linha

[Alex Galindo 0]

MARIO TIREI A LINHA Q você DISSE ELE PASSOU A MENSAGEM CERTA, SEM ERRO TIPO: (PREENCHA TODOS OS CAMPOS).

 

MAIS QUANDO FUI VERIFICAR NO BANCO SE ELE HAVIA INCLUIDO, NAO TINHA ESTAVA EM BRANCO E O AUTONUMERICO DO CAMPO CODIGO TB NAO PREENCHEU.

 

 

AI FIZ O SEGUINTE FUI LA NA LINHA:

 

if len(codigo) or len(RG)=0 or len(CPF)=0 then

 

e retirei len(codigo), ficou assim:

 

 

if len(RG)=0 or len(CPF)=0 then

 

ai voltou a incluir mais dando o mesmo erro:

 

ASSIM: INSERT INTO modelo (RG, CPF) VALUES ('777', '888') Notícia enviada com sucesso

 

 

MAIS INCLUI NA TABELA.

 

JA TA SEM A LINHA TB :

 

objConn.close

[Mário Monteiro 179]

voce pdoe tirar estas duas linhas tambem

 

dim codigo

codigo = Request.form("codigo")

 

que erro ta dando?

[Alex Galindo 0]

MARIO EM TERMOS DE FUNCIONALIDADE ELE JA TA INCLUINDO NA TABELA TA COM AUTONUMERAÇÃO NO CAMPO CODIGO

 

SO QUE NA HORA DA MENSAGEM DE ENVIO COM SUCESSO ELE RETORNA ESSA LINHA DE MENSAGEM:

 

INSERT INTO modelo (RG, CPF) VALUES ('777', '888') Notícia enviada com sucesso

 

EM VEZ DE MANDAR A MENSAGEM SOMENTE (NOTICIA ENVIADA COM SUCESSO)

 

NA TABELA ELE JA TA INCLUINDO

 

SO TO ACHANDO ESSA MENSAGEM ESTRANHA

 

RETIREI O Q você ME PEDIU POR ULTIMO!

 

CONTINUA ESSA MESMA MENSAGEM

[Mário Monteiro 179]

so tirar esta linha

 

Response.Write(Insert)

[mibnetweb 0]

tira o Response.Write(Insert)

[Alex Galindo 0]

MUITO OBRIGADO DESDE JA A TODOS! MAS QUERIA FAZER UM AGRADECIMENTO ESPECIAL AO MARIO QUE ME AGUENTOU BASTANTE!

MUITO OBRIGADO MESMO MARIO!

 

CONSEGUI !

ABRAÇÃO!

[Mário Monteiro 179]

Nao por isso

 

Precisando pode postar

 

Parabens

[Alex Galindo 0]

MARIO VOU TE SUFOCAR SO MAIS UMA COISA COMO FAÇO PRA BOTAR UM OPTION NESSE MESMO CODIGO COM MAIS UM CAMPO FILHOS POR EXEMPLO COM VALORES SIM OU NÃO.

 

ONDE EU TERIA DE ALTERAR NA PAGINA ASP?

_____________________________________________________

 

O CODIGO TA ASSIM AGORA DEPOIS DAQUILO TUDO, HEHEHE:

 

<%

dim RG

dim CPF

dim RS

dim Insert

dim objConn

 

RG = Request.form("RG")

CPF = Request.form("CPF")

 

 

 

if len(RG)=0 or len(CPF)=0 then

response.write("Preencha todos os campos")

else

 

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

 

caminho = "dadosteste.mdb"

 

objConn.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq="& Server.MapPath(caminho) &";Uid=Admin;Pwd=;"

 

Insert = "INSERT INTO modelo (RG, CPF) VALUES ('"& RG &"', '"& CPF &"') "

 

 

 

 

Set RS = objConn.Execute(Insert)

 

Response.Write("Notícia enviada com sucesso")

Response.Write("<BR><a href=mostrar.asp>listar autores</a>")

End if

 

 

%>

 

_______________________________

 

NO FORM BOTEI ASSIM:

 

<html>

<head>

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

<title>Untitled Document</title>

</head>

 

<body>

 

<form name="form1" method="post" action="respostatestar.asp">

 

Código: <input type='text' name='codigo' text=''><br>

RG: <input type='text' name='rg' text=''><br>

CPF: <input type='text' name='cpf' text=''><br>

filhos:<SELECT>

<OPTION >Sim</OPTION>

<OPTION >Não</OPTION>

</SELECT>

 

 

 

 

<input type=submit value=Enviar>

 

</form>

 

</body>

</html>

[Mário Monteiro 179]

alteraria no form adicionando este combo

 

depois na pagina que recupera e insere exatamente como nos demais campos

 

e no banco adicionando este campo

[Alex Galindo 0]

MARIO ALTEREI O BANCO BOTEI MAIS UM CAMPO COM O NOME DE FILHOS.

ESTA ASSIM MEU BANCO:

 

CODIGO - AUTONUMERAÇÃO

RG - TEXTO

CPF - TEXTO

FILHOS - TEXTO (QUERO UM OPTION AQUI, BOTO COMO TEXTO ASSIM MESMO)

 

_______________________________________

 

NO FORMULARIO BOTEI ASSIM:

 

<html>

<head>

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

<title>Untitled Document</title>

</head>

 

<body>

 

<form name="form1" method="post" action="respostatestar.asp">

 

Código: <input type='text' name='codigo' text=''><br>

RG: <input type='text' name='rg' text=''><br>

CPF: <input type='text' name='cpf' text=''><br>

filhos:

<SELECT>

<option value="1">Choice 1</option>

<option value="2">Choice 2</option>

</SELECT>

 

 

 

 

<input type=submit value=Enviar>

 

</form>

 

</body>

</html>

__________________________________

 

VE O CAMPO FILHOS PRA MIM SE TA CERTO? NO BANCO E SELECT SE TA FALTANDO ALGO.

NÃO SEI COMO BOTAR PRA OPTION.

[Mário Monteiro 179]

tem que por um nome no select para poder recuperar na outra pagina

 

quanto ao campo no db pode ser texto sim, no caso poderia ser booleano tambem ja que sao duas opções

 

mas caso queira futuramente armazenar a quantidade de filhos seria melhor ser numerico

 

é confuso mesmo mas é melhor pensar bem no tipo de dados para nao ter re-trabalho futuramente com isso

[Alex Galindo 0]

<form name="form1" method="post" action="respostatestar.asp">

 

Código: <input type='text' name='codigo' text=''><br>

RG: <input type='text' name='rg' text=''><br>

CPF: <input type='text' name='cpf' text=''><br>

filhos: <select name="txtBox3" >

<option value="1">Choice 1</option>

<option value="2">Choice 2</option>

</select>

 

 

<input type=submit value=Enviar>

 

</form>

 

_________________

 

seria assim no select, boto o nome, esta como txtbox3, vou renomear para filhos estaria certo?

outra duvida eu teria de completar depois do nome para o select botar tambem text='' igual ao input type visto q o campo filhos sera texto mesmo ou é so o name mesmo?

[Alex Galindo 0]

obrigado gente consegui

[Mário Monteiro 179]

Opa parabens por ter conseguido

 

Abraços