Inclusão de dados no BD atraves de forumulário

[Sou_Designer]

Boa tarde, <_<

Alguém me ajuda por favor...

Tenho um formulário online que conecta-se a uma base ACCESS.

Preciso que ao preencher este formulário, quando o usuário clicar em enviar, seja salvo no banco de dados a data que este usuário enviou o formulário.

como posso fazer isso ?

Help-me please !

Obrigada gente !!!! :wub:

[Jonathan Queiroz]

Primeira coisa:

* Não poste dois tópicos com o mesmo conteúdo (olha isso aqui)

Que linguagem você utiliza ??

ASP ?

Se for ASP, faça algo como isso:

set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=C:\dados.mdb"
Conexao.Execute("Update dados set data=" & date(now())

De qualquer forma acho que postou na seção errada...

Vai precisar de linguagem dinâmica pra fazer isso, é impossível em HTML ou JavaScript (você fez um post na seção de HTML e outro na de JavaScript)

Qualquer coisa, posta aí !

Edit:

Fui olhar agora...

Você fez três posts (um em HTML, outro em ASP e outro em JavaScript)

Jamais faça isso !

Além de ser mais difícil de encontrar a solução (como tem posts iguais, você vai ter que ficar indo de um em um e ver se alguém postou), você prejudica a organização do fórum (fica mal organizado com vários posts iguais) e torna mais difícil que um usuário com o mesmo problema encontre uma solução (você acha que alguém vai olhar em três tópicos e ver se existe uma solução para seu problema ?? Fora que ele pode ter vindo da Google)

Postarei o link dos três tópicos aqui para que algum moderador "junte" os três, tornando o fórum mais organizado...

* Seção JavaScript

* Seção HTML

* Seção ASP

Editado Novembro 13, 2008 por Jonathan Queiroz

[Rafael Spilki]

Bom, para saber a data exata você usa

<% =now %>

Para incluir no bd basta fazer uma instrução de insert e e efetuar a inclusão...

Não sei se entendi muito bem sua dúvida, você já tem algo pronto?

Poste os códigos que você esta trabalhando ai que fica mais fácil ajudar.

[]'s Rafael Spilki

[Sou_Designer]

Ok muito obrigada ! Desculpem ai ! Sorry

Já tem no meu código:

set Conexao = Server.CreateObject("ADODB.Connection")

Conexao.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=C:\dados.mdb"

--//--

data é o campo que terei que criar no meu MDB ? Essa linha já faz tudo automático ? Simples asssimmm :lol:

Conexao.Execute("Update dados set data=" & date(now())

Obrigadinha !

<% @ LANGUAGE="VBSCRIPT" %>

<%

'String de conexão para o banco de dados do Microsoft Access

strCon = "DBQ=C:\Inetpub\wwwroot\BD\bdvest09.mdb;Driver={Microsoft Access Driver (*.mdb)};"

'Nome da página de consulta

pagina_consulta = "consulta.asp"

'Nome da página de alteração

pagina_alteracao = "alteracao.asp"

'Nome da página de inclusão

pagina_inclusao = "inclusao.asp"

'Nome da página de login

pagina_login = "login.asp"

'*******************************************************************

%>

é vbscript e no meu Banco o campo é cod_data_i onde irá armazenar a data automaticamente.

Alguém ?

Editado Novembro 13, 2008 por Sou_Designer

[Jonathan Queiroz]

Respondendo às perguntas:

data é o campo que terei que criar no meu MDB ?

Sim...Pode ser "data" ou qualquer outro campo !

É só você escolher o nome do campo e colocar na tabela

Essa linha já faz tudo automático ?

Sim, faz tudo "automatico".Entretando, você pode realizar modificações (se não conseguir, posta aí)

Qualquer coisa, posta aí !

Editado Novembro 13, 2008 por Jonathan Queiroz

[jow]

um exemplo bem tosco

formulário.asp

<form action="inserir.asp" method="post">
<table>
<tr>
<td>Nome</td>
<td><input type="nome"></td>
</tr>
<tr>
<td><input type="submit" value="Salvar"></td>
</tr>
</table>
</form>

inserir.asp

<% 'Incluir uma conexão aki

vnome = request.form("nome")

sql = "INSERT INTO table (CampoNome, CampoData) values ('"&vnome&"', '"&date()&"')"
Set rs = conexao.execute(sql)

%>

Editado Novembro 13, 2008 por jow

[Sou_Designer]

Respondendo às perguntas:

data é o campo que terei que criar no meu MDB ?

Sim...Pode ser "data" ou qualquer outro campo !

É só você escolher o nome do campo e colocar na tabela

Essa linha já faz tudo automático ?

Sim, faz tudo "automatico".Entretando, você pode realizar modificações (se não conseguir, posta aí)

Qualquer coisa, posta aí !

é VBScript :(

<% @ LANGUAGE="VBSCRIPT" %>
<%


'String de conexão para o banco de dados do Microsoft Access
strCon = "DBQ=C:\Inetpub\wwwroot\BD\bdvest09.mdb;Driver={Microsoft Access Driver (*.mdb)};"





'Nome da página de consulta
pagina_consulta = "consulta.asp"

'Nome da página de alteração
pagina_alteracao = "alteracao.asp"

'Nome da página de inclusão
pagina_inclusao = "inclusao.asp"

'Nome da página de login
pagina_login = "login.asp"

'*******************************************************************
%>

é vbscript e no meu Banco o campo é cod_data_i onde irá armazenar a data automaticamente.

Como faço em vbscript ?

ou posso abrir duas conexões uma em asp e outra em vb script ? Porque mudar tudo p/ asp vai dar um trabalhão...

[Rafael Spilki]

Vbscript é usado em asp! prtanto sem problemas!

leia isso: http://pt.wikipedia.org/wiki/VBScript

De uma olhadinha nos exemplos acima, todos eles poderão lhe ajudar...

Para buscar a data atual, como disse anteriormente use

<%=now%> Hora e data completa, ou <%=date%> somente data, caso o seu campo data seja formato data abreviada!

[]'s Rafael Spilki

[Sou_Designer]

Respondendo às perguntas:

data é o campo que terei que criar no meu MDB ?

Sim...Pode ser "data" ou qualquer outro campo !

É só você escolher o nome do campo e colocar na tabela

Essa linha já faz tudo automático ?

Sim, faz tudo "automatico".Entretando, você pode realizar modificações (se não conseguir, posta aí)

Qualquer coisa, posta aí !

Oiiiiiiiiiiiiii !!!!!!!

Não consigo...

Coloquei a conexão para abrir da forma que você falou, só que sem a data para testar a conexão:

set Conexao = Server.CreateObject("ADODB.Connection")

Conexao.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=C:\Inetpub\wwwroot\BD\bdvest09.mdb"

dá erro:

HTTP 500.100 - Servidor interno Erro - erro do ASP

Internet Information Services

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

[Microsoft][ODBC Driver Manager] Nome da fonte de dados não encontrado e nenhum driver padrão especificado

/bd/df_inclusao.asp, line 387

e dá erro na seguinte linha:

objCon.Open strCon

Set objRS= Server.CreateObject("ADODB.Recordset")

objRS.CursorLocation = 2

objRS.CursorType = 0

objRS.LockType = 3

strQ = "SELECT * FROM Cadastro Where 1 <> 1"

objRS.Open strQ, objCon, , , &H0001

%>

E agora ? :(

[Rafael Spilki]

Que linha é essa: 387?

Ta meio estranho esses seus códigos aí... posta aqui o codigo completo ok?

Não esqueça de os colocar entre as tags code, desta forma:

code

[]'s Rafael Spilki

[Sou_Designer]

Não estou conseguindo colar o código todo, parece que o início é "comido"... não tá aparecendo............

help!!!!!!!!!!!!!!!!!!!!!!!!! esse cód ai não tá completo

Editado Novembro 17, 2008 por Sou_Designer

[Jonathan Queiroz]

Era isso que ia falar agora...

Seu código tá estranho (começa com um "end if"...)

Nunca tinha visto esse problema aqui no fórum, mas tenta colocar dentro da etiqueta "quote" (acho que não resolve, mas não custa tentar...Se não conseguir, coloca em "code" de novo)

[Sou_Designer]

[Jonathan Queiroz]

Cara, pode parecer loucura, mas você cometeu um mínimo erro

Olha isso aqui:

strCon = "DBQ=C:\Inetpub\wwwroot\BD\bdvest09.mdb;Driver={Microsoft Access Driver(*.mdb)};"

O certo é:

strCon = "DBQ=C:\Inetpub\wwwroot\BD\bdvest09.mdb;Driver={Microsoft Access Driver (*.mdb)};"

Tem um espaço entre o "Driver" e o "(*.mdb)"

Qualquer coisa, posta aí !

[Sou_Designer]

Cara, pode parecer loucura, mas você cometeu um mínimo erro

Olha isso aqui:

strCon = "DBQ=C:\Inetpub\wwwroot\BD\bdvest09.mdb;Driver={Microsoft Access Driver(*.mdb)};"

O certo é:

strCon = "DBQ=C:\Inetpub\wwwroot\BD\bdvest09.mdb;Driver={Microsoft Access Driver (*.mdb)};"

Tem um espaço entre o "Driver" e o "(*.mdb)"

Qualquer coisa, posta aí !

Nooooooooossa... muito obrigada mesmo pela sua presteza e atenção !

Tá caminhando... agora o erro é:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

[Microsoft][Driver ODBC para Microsoft Access]Erro geral Não é possível abrir a chave 'Temporary (volatile) Jet DSN for process 0x8b0 Thread 0xc40 DBC 0x129352c Jet' do Registro.

naquela mesma linha

[Jonathan Queiroz]

O banco de dados está aberto no momento que você efetua a conexão ?

Se estiver, feche ele !

Tente também acessar outra página qualquer de seu site que tenha conexão a banco de dados (pode ser tanto esse banco ou qualquer outro, só para testar)

Depois posta o resultado aí !

[Sou_Designer]

Primeira coisa:

* Não poste dois tópicos com o mesmo conteúdo (olha isso aqui)

Que linguagem você utiliza ??

ASP ?

Se for ASP, faça algo como isso:

set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=C:\dados.mdb"
Conexao.Execute("Update dados set data=" & date(now())

De qualquer forma acho que postou na seção errada...

Vai precisar de linguagem dinâmica pra fazer isso, é impossível em HTML ou JavaScript (você fez um post na seção de HTML e outro na de JavaScript)

Qualquer coisa, posta aí !

Edit:

Fui olhar agora...

Você fez três posts (um em HTML, outro em ASP e outro em JavaScript)

Jamais faça isso !

Além de ser mais difícil de encontrar a solução (como tem posts iguais, você vai ter que ficar indo de um em um e ver se alguém postou), você prejudica a organização do fórum (fica mal organizado com vários posts iguais) e torna mais difícil que um usuário com o mesmo problema encontre uma solução (você acha que alguém vai olhar em três tópicos e ver se existe uma solução para seu problema ?? Fora que ele pode ter vindo da Google)

Postarei o link dos três tópicos aqui para que algum moderador "junte" os três, tornando o fórum mais organizado...

* Seção JavaScript

* Seção HTML

* Seção ASP

Bom, funcionando com a forma de conexão:

strCon = "DBQ=C:\Inetpub\wwwroot\FACULDADE_SUESC\BD\bdvest09.mdb;Driver={Microsoft Access Driver (*.mdb)};"

Agora vem aquele velho problema de 5a...

que você me ajudou mas não funcionou...

o formulário pegar a data que a pessoa tá se inscrevendo (pode ser quando enviaro send) automaticamente do windows e jogar no banco de dados (cod_data_i) ...

Desta forma que me orientou nem conectar ao banco conecta (comentando a linha da data)... dá erro na mesma linha que tava dando o outro, será que não é nenhum outro espacinho ? :))

E no:

Conexao.Execute("Update dados set data=" & date(now())

como fica o comando se o meu campo no BD é cod_data_i ?

MUUUUITO OBRIGADA!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

[Jonathan Queiroz]

Seu código ficaria assim, olha:

Conexao.Execute("Update dados set cod_data_i=" & date(now())

Obs.: Esse código apenas pega a data (Exemplo: 21/10/2008) Se quiser os minutos e segundos faça algo como:

Conexao.Execute("Update dados set cod_data_i=" & now())

Lembre-se de que caso for hospedar em um servidor fora do brasil colocar um "LCID" (localidade) Exemplo:

Session.LCID = 1046 'É o LCID do Brasil

Se não me engano o "1046" é o LCID do Brasil.Se estiver enganado, por favor me corrijam...

Fazendo uma explicação rápida sobre LCID

O LCID é usado no ASP para indicar corretamente a formatação de campos, como data/hora e moeda

Por exemplo, se o LCID estiver definido como o padrão dos EUA, um código como o "FormatCurrency(1,25)" retornaria "US$1,25"

Se fosse o LCID do Brasil a função retornaria "R$1,25"

Espero ter explicado corretamente o funcionamento dessas funções

Obs.:

Essa foi uma explicação rápida.Para entender melhor o funcionamento dê uma pesquisada na Google

Qualquer coisa, posta aí !

Editado Novembro 17, 2008 por Jonathan Queiroz

[Sou_Designer]

Queridos,

fiz direitinho como vocês falaram mas dá erro:

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A03EE)

')' esperado

/bd/df_inclusao.asp, line 12, column 60

Conexao.Execute("Update dados set cod_data_i=" & date(now())

-----------------------------------------------------------^

está assim:

strCon = "DBQ=C:\Inetpub\wwwroot\FACULDADE_SUESC\BD\bdvest09.mdb;Driver={Microsoft Access Driver (*.mdb)};"

Conexao.Execute("Update dados set cod_data_i=" & date(now())

Não aguento mais.......... pior que já são 18hs

Já verifiquei e o BD está com o usr SYSTEM com controle total

socorro!

[Rafael Spilki]

O campo no bd está como data/hora? Qual o formato? abreviada, completa, sem formato?!?

de qualquer forma tente assim:

Conexao.Execute("Update dados set cod_data_i='" & date(now())

caso não note a diferença acrescentei ' (aspas simples) antes de " & date(now())

[]'s Rafael Spilki

[Sou_Designer]

O campo no bd está como data/hora? Qual o formato? abreviada, completa, sem formato?!?

de qualquer forma tente assim:

Conexao.Execute("Update dados set cod_data_i='" & date(now())

caso não note a diferença acrescentei ' (aspas simples) antes de " & date(now())

[]'s Rafael Spilki

Mesmo erro :( .. infelizmente, nem abre o formulário pra preencher

Como posso fazer então pra pegar a data, armazenar numa variável, e essa variável jogar no BD Access campo cod_data_i

[Rafael Spilki]

Como assim nem abre o form? Aparece alguma mensagem de erro?!?

Além disso você não respondeu minhas outras perguntas! olha ali denovo...

Olha só, teu código ta enorme... nem consegui olhar ele com calma ainda... mas tem alguma coisa na dinâmica (abertura X fechamento) de seu BD que não ta rolando... e isso é pra ser bem simples... da uma revisada nisso, ok?

[]'s Rafael Spilki

[Sou_Designer]

Como assim nem abre o form? Aparece alguma mensagem de erro?!?

Além disso você não respondeu minhas outras perguntas! olha ali denovo...

Olha só, teu código ta enorme... nem consegui olhar ele com calma ainda... mas tem alguma coisa na dinâmica (abertura X fechamento) de seu BD que não ta rolando... e isso é pra ser bem simples... da uma revisada nisso, ok?

[]'s Rafael Spilki

No banco DATA e ABREVIADA

e quando eu coloco o seu código :

Conexao.Execute("Update dados set cod_data_i=" & date(now())

ou

Conexao.Execute("Update dados set cod_data_i='" & date(now())

a página do formulário nem abre e dá erro de cara... sem esse comando que eu quero da ddata a página abre e grava os dados direitinhos:

HTTP 500.100 - Servidor interno Erro - erro do ASP

Internet Information Services

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A03EE)

')' esperado

/bd/df_inclusao.asp, line 12, column 60

Conexao.Execute("Update dados set cod_data_i=" & date(now())

e a COLUNA 60 é o último PARÊNTESES

Obrigada amigo!!!

[Rafael Spilki]

Acabei de deletar sua mensagem anterior e floods não serão aceitos, leia as regras do fórum:

http://scriptbrasil.com.br/forum/index.php?act=boardrules

quanto ao problema, se está como data abreviada o certo é usar date ao contrário de now!

E realmente, basta contarmos os parenteses para vermos que está errado!

o certo seria:

data = date
Conexao.Execute = "Update dados set cod_data_i = '"&data&"'"

Mas porque usar um update e não um insert?!? o campo já existe?!? já esta preenchido com alguma data?!? se não estiver procure fazer atraves de insert...

[]'s Rafael Spilki