Como Incluir Os Resultados Do Loop No Bd?

[Notax]

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 Setembro 19, 2007 por Notax

[fercosmig]

aparentemente o script nem é executado, quando chega na linha se err for = 0 ele vai pra outra página

if err = 0 Then
response.redirect "inclusao.asp"
end if

[Notax]

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 Setembro 17, 2008 por Notax

[Marcos-rj]

você experimentou tirar o On error Resume Next para ver se dá algum erro?

Qual o tipo do campo data na tabela?

[Notax]

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

[Notax]

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)

[Marcos-rj]

eu havia respondido e nem apareceu, toda hora ta dando erro no forum.

nem lembro o que foi.

qual o erro agora?

[Notax]

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

[Marcos-rj]

Veja se este erro não é por que você esta fechando a conexão lá em cima.

objConn.close

Set objConn = Nothing

e veja se os IF estão certos tb.

[Notax]

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 Setembro 17, 2008 por Notax

[Notax]

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 Setembro 5, 2007 por Notax

[Marcos-rj]

Opa, que bom. se precisar estamos ai. to meio ausente pois estou todo enrrolado aqui.

T+