Jump to content
Fórum Script Brasil
  • 0

Como Incluir Os Resultados Do Loop No Bd?


Notax
 Share

Question

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!

Edited by Notax
Link to comment
Share on other sites

11 answers to this question

Recommended Posts

  • 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!

Edited by Notax
Link to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other 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!

Edited by Notax
Link to comment
Share on other 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.

Edited by Notax
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      150.2k
    • Total Posts
      647.4k
×
×
  • Create New...