Estou tentando fazer um formulario em Asp que possa incluir registro em uma tabela especifica de meu banco de dados em access... meu db possui 2 tabelas: "pagar" e "receber".
minha referencia é um exemplo que baixei aqui mesmo no site scriptbrasil... mas infelizmente este exemplo é para um bd com apenas uma tabela e eu acho que é por isso que não está funcinando... pode ser?
todo caso minha dúvida está no seguinte trecho do script abaixo... onde pretendo incluir os registros do form no BD "sjonline.mdb" na tabela especifica denominada "pagar"... portanto, segue:
o scrpt abaixo, vem sendo executado em "post" action pelo form contendo os dados a ser acrescentado em tabela 'pagar' do bd 'sjonline'...
<%
'Força a declaração de todas as variáveis
Option Explicit
'Não deixa informações no Cache
Response.Expires = 0
'Declaração das variáveis
Dim objConn, objRs, strQuery, strConnection, data, historico, tipo, valor
'Atrubuição dos valores as respectivas variáveis
data = Request.Form("data")
historico = Request.Form("historico")
tipo = Request.Form("tipo")
valor = Request.Form("valor")
'Cria o objeto RecordSet e atribui a variável
Set objConn = Server.CreateObject("ADODB.Connection")
'Abre a conexão com o banco de dados utilizando o Drive {Microsoft Access...
'(para utilizar outro, ex: Paradox é só substituir o Drive pelo do Paradox)
'(*.mdb) indica que o arquivo utiliza extensão mdb
objConn.Open "DBQ=" & Server.MapPath("sjonline.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"
'Insere os dados na tabela aberta
strQuery = "INSERT INTO pagar (data,historico,tipo,valor) VALUES ('"&data&"','"&historico&"','"&tipo&"','"&valor&"')"
'Caso ocorra um erro esta função de erro será chamada
On error Resume Next
'Executa a inserção no Banco de Dados
Set ObjRs = objConn.Execute(strQuery)
'Fecha o Objeto de Conexão
objConn.close
'"APAGA" qualquer instancia que possa ter no objeto objRs e objConn
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 "index.asp"
end if
%>
alguém pode me dar uma mãozinha? como conseguir definir que os dados sejam incluidos na tabela pagar do db?
Pergunta
Notax
amigos, boa noite.
Estou tentando fazer um formulario em Asp que possa incluir registro em uma tabela especifica de meu banco de dados em access... meu db possui 2 tabelas: "pagar" e "receber".
minha referencia é um exemplo que baixei aqui mesmo no site scriptbrasil... mas infelizmente este exemplo é para um bd com apenas uma tabela e eu acho que é por isso que não está funcinando... pode ser?
todo caso minha dúvida está no seguinte trecho do script abaixo... onde pretendo incluir os registros do form no BD "sjonline.mdb" na tabela especifica denominada "pagar"... portanto, segue:
o scrpt abaixo, vem sendo executado em "post" action pelo form contendo os dados a ser acrescentado em tabela 'pagar' do bd 'sjonline'...
<% 'Força a declaração de todas as variáveis Option Explicit 'Não deixa informações no Cache Response.Expires = 0 'Declaração das variáveis Dim objConn, objRs, strQuery, strConnection, data, historico, tipo, valor 'Atrubuição dos valores as respectivas variáveis data = Request.Form("data") historico = Request.Form("historico") tipo = Request.Form("tipo") valor = Request.Form("valor") 'Cria o objeto RecordSet e atribui a variável Set objConn = Server.CreateObject("ADODB.Connection") 'Abre a conexão com o banco de dados utilizando o Drive {Microsoft Access... '(para utilizar outro, ex: Paradox é só substituir o Drive pelo do Paradox) '(*.mdb) indica que o arquivo utiliza extensão mdb objConn.Open "DBQ=" & Server.MapPath("sjonline.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" 'Insere os dados na tabela aberta strQuery = "INSERT INTO pagar (data,historico,tipo,valor) VALUES ('"&data&"','"&historico&"','"&tipo&"','"&valor&"')" 'Caso ocorra um erro esta função de erro será chamada On error Resume Next 'Executa a inserção no Banco de Dados Set ObjRs = objConn.Execute(strQuery) 'Fecha o Objeto de Conexão objConn.close '"APAGA" qualquer instancia que possa ter no objeto objRs e objConn 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 "index.asp" end if %>alguém pode me dar uma mãozinha? como conseguir definir que os dados sejam incluidos na tabela pagar do db?
Abração, Notax.
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados