com inserção de dados

[Tigger 0]

Pelo que pude ver seu arquivo PESQUISA.aspnao tem formulario para mandar os dados..

[rodrigoap 0]

Pelo que pude ver seu arquivo PESQUISA.asp

nao tem formulario para mandar os dados..

<{POST_SNAPBACK}>

tem sim tigger, está na linha 24 da página "pesquisa.asp", estou com ele aberto aqui na minha frente.

[Tigger 0]

Qual a sua urgencia para isso...

[rodrigoap 0]

Qual a sua urgencia para isso...

<{POST_SNAPBACK}>

Sinceramente nenhuma, mas isso virou questão de honra pra mim agora!! hehehe....

 

Assim estou fazendo isso pra dar uma melhoradana inclusão de dados de uma pesquisa que rola aqui no trampo, porque inseri-lá diretamente no access ta me deixando louco, queria alguma coisa mais limpa e mais bonita, mas não achei que fosse dar tanto trampo. Mas agora eu quero fazer isso funcionar!!!

 

Mas fica tranquilo, você já ajudou até mais do que você devia, agradeço pelo help!! Mas se quiser continuar e não vou reclamar, hehehe! E se precisar de algo e só dar um grito.

 

Abraço...

 

Rodrigo.

[Tigger 0]

Estude isso,

 

Arquivo de cadastro (Arquivo este que contem os campos no formulario..)

<form name="form1" method="post" action="teste2.asp">
 <input name="nome" type="text" id="nome">
 <input type="submit" name="Submit" value="Ir pagina2">
</form>

 

Coloquei apenas um campo, mais e so seguir o raciocionio e ira funcionar...

 

Segue enta o codigo do Arquivo2.asp(Arquivo que ira inserir os valores no BD Access, SQL Server qq um....)

 

 

ASP

[*]

 

[*]<%

 

[*]StrNome = Request.Form("nome")

 

[*]

 

[*]StrCadastra = "INSERT INTO NOME_DA_SUA_TABELA (NOME_DO_SEU_CAMPO)"

 

[*]StrCadastra = StrCadastra & " VALUES ('"&StrNome&"') "

 

[*]

 

[*]'*** CASO VVC QUEIRA INSERIR MAIS DE UM VALOR FACA...

 

[*]

 

[*]StrCadastra = "INSERT INTO NOME_DA_SUA_TABELA 

 

[*]StrCadastra = StrCadastra & " (NOME_DO_SEU_CAMPO1, "

 

[*]StrCadastra = StrCadastra & " NOME_DO_SEU_CAMPO2) "

 

[*]StrCadastra = StrCadastra & " VALUES ('"&StrVariavel1&"', "&StrVariavel2&") "

 

[*]

 

[*]'*** SENDO QUE O CAMPO (NOME_DO_SEU_CAMPO2) E DO TIPO NUMERICO

 

[*]'*** , E COM ISSO A VARIAVEL StrVariavel2 NAO TEM ASPAS SIMPLES...

 

[*]%>

 

[*]

[rodrigoap 0]

Vou criar a página de novo e começar do zero o form, vamos ver no que vai dar... ai eu posto aqui se tiver algum problema!

 

Vlw!! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

Rodrigo.

[rodrigoap 0]

Tigger,

 

 

Só esqueci de perguntar uma coisa a você...

 

Como você faz a sua conexão com o banco de dados, agente ficou conversando em cima da programação da página e acabei esquecendo de perguntar isso a você.

 

A minha conexão está assim...

 

ASP

[*]

 

[*]

 

[*]<%

 

[*]Set Cnn = Server.CreateObject("ADODB.Connection")

 

[*]Cnn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:\inetpub\wwwroot\pesquisa\pesquisa.mdb"

 

[*]%>

 

[*]

 

[*]

 

Vlw...

 

Rodrigo.

[Tigger 0]

Esta correto...Levando em consideracao se a sua pasta base do Site tambem estiver nesse diretorio...Tipo...seu BD esta na pasta pesquisa..sena estiver da "pau".Aconselho o seguinte,...<%Set Cnn = Server.CreateObject("ADODB.Connection")Cnn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:\inetpub\wwwroot\pesquisa\dados\pesquisa.mdb"%>Coloque seu BD em uma pasta chamada dados, e seus arquivos ASP.HTML etc...na pasta pesquisa....beleza

[rodrigoap 0]

beleza... sem problemas!!Estou começando a mexer com o que você me mandou aquela hora, zerei o formulário e comecei um do zero! Vamos ver se agora eu consigo!

[Tigger 0]

Até as 17:20 estou aqui, depois so no MSN...heheheh

[rodrigoap 0]

Tigger,Então... consegui fazer funcionar, com três campos mas conseguiu fazer sem da erro, mas agora aconteceu outra coisa, ele disse que inseriu no banco, mas no banco não apareceu nada... O que pode ser?

[Tigger 0]

Faca o seguinte, no codigo que você esta cadastrando mude para..

SQL = "INSERT INTO TABELA (CAMPO1, CAMPO2, CAMPO3)"SQL = SQL & " VALUES "SQL = SQL & " ('"&VALOR1&"','"&VALOR2&"','"&VALOR3&"') "    SET RS = Cnn.execute(SQL)  *****

Acho que eu tinha esquecido da linha em destaque...

[rodrigoap 0]

Meu desisto...Eu coloquei a linha e voltou a dar erro...Tipo de erro:Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na instrução INSERT INTO./pesquisa/inclui_pesquisa.asp, line 12Não vai de jeito nenhum...Da dificil...

[Tigger 0]

Como esta o seu INSERT...mostre-me...vamos la nao podemos desisitr....forca...rapaz!!!!coloca o codgo todo, destacando a linha 12

[rodrigoap 0]

Hhehehehe.... vamo lá!

 

ASP

[*]

 

[*]<!--#include file="conexao.asp" -->

 

[*]<%

 

[*]MesPesquisa = Request.Form("mes_pesquisa")

 

[*]Unidade = Request.Form("unidade")

 

[*]Nome = Request.Form("nome")

 

[*]

 

[*]StrCadastra = " INSERT INTO Pesquisa (MesPesquisa,"

 

[*]StrCadastra = StrCadastra & " Unidade, Nome) "

 

[*]StrCadastra = StrCadastra & " VALUES "

 

[*]StrCadastra = StrCadastra & " ("&mes_pesquisa&", '"&unidade&"', '"&nome&"') "

 

[*]

 

[*]SET RS = Cnn.execute(StrCadastra) ---> Linha 12

 

[*]

 

[*]Response.Redirect "pesquisa_incluida.asp" 

 

[*]

 

[*]%>

 

[*]

[Marcelo Barcellos 0]

Não tem nenhum campo com uma virgula no meio ?Tipo: Unidade=12,45Então, voce deveria transformar isso em "12.45"...Se não tiver.Dá um response.Write na instrução SQL.

[Tigger 0]

Hhehehehe....  vamo lá!

 

ASP

[*]<!--#include file="conexao.asp" --><br /><%<br />MesPesquisa = Request.Form("mes_pesquisa")<br />Unidade = Request.Form("unidade")<br />Nome = Request.Form("nome")<br /><br />StrCadastra = " INSERT INTO Pesquisa (MesPesquisa,"<br />StrCadastra = StrCadastra & " Unidade, Nome) "<br />StrCadastra = StrCadastra & " VALUES " <br />StrCadastra = StrCadastra & " ("&mes_pesquisa&", '"&unidade&"', '"&nome&"') "<br /><br />SET RS = Cnn.execute(StrCadastra) ---> Linha 12<br /><br />Response.Redirect "pesquisa_incluida.asp" <br /><br />%>

<{POST_SNAPBACK}>

Tenta fazer isso

 

ASP

[*]<!--#include file="conexao.asp" -->

 

[*]<%

 

[*]MesPesquisa = Request.Form("mes_pesquisa")

 

[*]Unidade = Request.Form("unidade")

 

[*]Nome = Request.Form("nome")

 

[*]

 

[*]StrCadastra = " INSERT INTO Pesquisa (MesPesquisa,"

 

[*]StrCadastra = StrCadastra & " Unidade, Nome) "

 

[*]StrCadastra = StrCadastra & " VALUES "

 

[*]StrCadastra = StrCadastra & " ("&mes_pesquisa&", '"&unidade&"', '"&nome&"') "

 

[*]

 

[*]Response.Write(StrCadastra)

 

[*]Response.End()

 

[*]

 

[*]SET RS = Cnn.execute(StrCadastra) ---> Linha 12

 

[*]

 

[*]Response.Redirect "pesquisa_incluida.asp" 

 

[*]

 

[*]%>

[rodrigoap 0]

Vou tentar...Já posto aqui se consegui!!Obrigado a você também Marcelo,Rodrigo.

[rodrigoap 0]

Não tem nenhum campo com uma virgula no meio ?

Tipo: Unidade=12,45

Então, voce deveria transformar isso em "12.45"...

 

Se não tiver.

Dá um response.Write na instrução SQL.

<{POST_SNAPBACK}>

Marcelo,

 

O primeiro item dessa pesquisa é o mês em que a pessoa a respodeu, ela está enviando para o banco somente os números. Ex: 05/2005 (mês e ano). A label do item está como 05/2005 e o valor dele é 052005.

 

Não sei se está certo, se caso eu errei em algo por favor me corrija.

 

Rodrigo.

[rodrigoap 0]

Fiz o que você falou Tigger e o browser me retornou essa mensagem. Eu reparei que o campo mês pequisa está em branco, o que pode ser?

INSERT INTO Pesquisa (MesPesquisa, Unidade, Nome) VALUES (, 'Umarizal', 'Rodrigo Ap. S. Rodrigues')

Rodrigo.