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

Como Incluir Os Resultados Do Loop No Bd?


Notax

Pergunta

pessoal, como faço para incluir os resultados do loop no bd?

segue o código que estou usando e que só funciona na inserção unitária, quando e para usar o loop ele não da erro nenhum, mas também não inclui nada!

testei o loop em separado e está funcionando!

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252" LCID="1046"%>
<%Response.Expires = 0
Dim objConn, objRs, strQuery, strConnection, historico, tipo, valor, repercussao, quantidade, chcBoleto, vezes, qtdParcela, i, dtInicial, x, dtParcela, dtVencimento, dt, data
historico = Request.Form("txtDescricao")
tipo = Request.Form("cmbTipo")
valor = Request.Form("txtValor")
repercussao = Request.Form("qdrRepercussao")
Quantidade = Request.Form("txtQuantidade")
chcBoleto = Request.form("chcBoleto")
data = request.form("txtData")
Set objConn =  Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=" & Server.MapPath("a_pagar.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"
If chcBoleto = False Then
strQuery = "INSERT INTO a_pagar (data,historico,tipo,valor) VALUES ('"&data&"','"&historico&"','"&tipo&"','"&valor&"')"
On error Resume Next
Set ObjRs = objConn.Execute(strQuery)
objConn.close
Set objRs = Nothing
Set objConn = Nothing
end if
if err = 0 Then
response.redirect "inclusao.asp"
end if
If chcBoleto = True then
elseif qdrRepercussao = 2 Then
'Data = #01/31/07#
'>>>>Quantidade = 24
vezes = Quantidade
qtdParcela = Quantidade
dt = Data
end if
if err = 0 Then
response.redirect "inclusao.asp"
end if
%>

grato pela atenção de todos!

Editado por Notax
Link para o comentário
Compartilhar em outros sites

11 respostass a esta questão

Posts Recomendados

  • 0

FerCosMig, muito obrigado pelo retorno...

Então eu tirei esta parte que você mencionou de meu script, simplesmente exclui... mas continuo quase a mesma coisa, porque... só inclui quando são lançamentos unitarios... quando é pra lançar varios meses ele não lança nada...

ficou quase igual, porque depois que eu tirei aquele trecho as datas ficaram completamente bagunçadas...

Será que o amigo poderia me dar mais alguma sugestão?

desde já agradeço!

Editado por Notax
Link para o comentário
Compartilhar em outros sites

  • 0

Marcos.... muito obrigado pelo seu retorno... valeu mesmo...

com relação ao loop:

removi (on error resume next) daí apareceu a seguinte mensagem de erro:

Microsoft VBScript runtime error '800a01a8'

Object required

/rafa/teste/insert_into.asp, line 26

a linha 26 vem a ser: Set ObjRs = objConn.Execute(strQuery)

já com relação as datas: o campo de datas no access ta configurado como data abreviada! uma coisa que eu notei é que se eu coloco no preenchimento do form a data tipo mm/dd/aaaa funciona beleza... já tentei usar uma função que eu copiei de você mesmo... mas não funcionou... pelo menos eu não consegui fazer funcionar... devo ter errado alguma coisa...

se puderes continuar contribuindo lhe agradeceria... já foi de grande valia...

um forte abraço

Link para o comentário
Compartilhar em outros sites

  • 0

Pessoal... o caso da data já foi resolvido... ta faltando só eu conseguir incluir o resultado do loop na tabela... se puderem dar essa força...

a data foi resolvida da seguinte forma:

Option Explicit
Response.Expires = 0
Dim objConn, objRs, strQuery, anoi, mesi, diai, ComandoSQL
Dim strConnection
anoi=year(Request.Form("data"))
mesi=month(Request.Form("data"))
diai=day(Request.Form("data"))
Session.LCID=1033
ComandoSQL = "SELECT * FROM a_pagar ORDER BY DATA ASC"
Session.LCID=1046 
'Conectando com o banco de dados contato.mdb
Set objConn =  Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=" & Server.MapPath("a_pagar.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"
'Seleciona da tabela contato
strQuery = "SELECT * FROM a_pagar"
Set ObjRs = objConn.Execute(strQuery)
Set ObjRs = objConn.Execute(ComandoSQL)

Link para o comentário
Compartilhar em outros sites

  • 0

Pô marcos... brigadão por toda tua atenção... nem sei como agradecer!

o erro agora é so na inclusão do loop, visto que a data já consegui resolver...

o erro que está aparecendo é:

Microsoft VBScript runtime error '800a01a8'

Object required

/rafa/teste/insert_into.asp, line 26

a linha 26 vem a ser: Set ObjRs = objConn.Execute(strQuery)

valeu a força

abração

Link para o comentário
Compartilhar em outros sites

  • 0

Marcos, muito obrigado...

o amigo tinha total razão... o next estava abaixo do fechamento da conexão...

então agora ficou assim:

Set ObjRs = objConn.Execute(strQuery)
next
objConn.close
Set objRs = Nothing
Set objConn = Nothing
if err = 0 Then
response.redirect "sucesso_incluir_a_pagar.asp"

Só que agora, o loop tá quase perfeito... mas ainda ficou com um pequeno problema: as datas estão sendo lançadas sem modificação... na qtde de parcelas certa... mas todos com a mesma data!

Assim ó... o loop faz o seguinte: 12 parcelas data inicial 01/01/07... daí ele deve lançar: 01/01/07 01/02/07 01/03/07 e assim até 01/12/07 quando termina as 12 parcelas...

o resultado do loop se chama dtParcela...

só que quando vai inserir eu coloquei data p/ data... se eu coloco dtParcela p/ data, por exemplo ele dá um erro:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] The INSERT INTO statement contains the following unknown field name: 'dtVencimento'. Make sure you have typed the name correctly, and try the operation again.

/rafa/teste/insert_into_a_pagar.asp, line 26

linha 26 é: strQuery = "INSERT INTO a_pagar (dtParcela,historico,tipo,valor) VALUES ('"&data&"','"&historico&"','"&tipo&"','"&valor&"')"

valeu a força... mais uma vez!

Editado por Notax
Link para o comentário
Compartilhar em outros sites

  • 0

Aí Marcos... consegui... a única coisa que tive de fazer é criar parâmetros para que o nome data fosse igual ao dtParcela... daí pude lançar data em data e o loop funcionou bacana! consegui graças a sua ajuda!

valeu a força viu!

A todos que contribuiram muito obrigado e forte abraço.

Editado por Notax
Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

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