Ir para conteúdo
Fórum Script Brasil
  • 0

Incluindo Dados Em Um Bd Access Atraves De Um Form Asp


Notax

Pergunta

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

Visitante
Este tópico está impedido de receber novos posts.


  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...