Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Paksu

erro Insert

Recommended Posts

aí tem como alguem me ajudaraparece esse erro na minha instr~ção insertpq??Tipo de erro:Microsoft JET Database Engine (0x80040E14)Erro de sintaxe na instrução INSERT INTO./teste/concluir.asp, line 90Tipo de navegador: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1) Página: POST 12 bytes to /teste/concluir.aspPOST Data:endereco=rua a instrução insert éstrSQL = "Insert into tb_pedido (cd_cliente,dt_pedido,cd_sessao,forma,total,local) values ("& CodCliente &",'"& dtPedido &"','"& Session.SessionID & dtPedido &"','" & tforma & "','" & tVtota & "','" & tendereco & "')"

Compartilhar este post


Link para o post
Compartilhar em outros sites

Cara tenta isso:

 

strSQL = "Insert into tb_pedido (cd_cliente, dt_pedido, cd_sessao, forma, total, local) values ("& CodCliente &", '"& dtPedido &"', '"& Session.SessionID & dtPedido &"', '" & tforma & "', '" & tVtota & "', '" & tendereco & "')"
Só insere um espaço após a virgula de cada campo da tb e de cada valor tambem.

 

Valeu?

Compartilhar este post


Link para o post
Compartilhar em outros sites

Aí esse é o códigose eu tirar os tres ultimos campos(forma,total e local) funciona!!!!se alguem puder me ajudar!!!<%@ Language=VBScript %><!--#include file="conexao.asp"--><%'///////////////////////////////////////////////////////////////////////////////////////////////'Sub para incluir os produtos do carrinho no banco de dadosSub InsereItens (pCdPedido) if cint (pCdPedido) = 0 then exit sub end if 'varre array pegando todos os produtos For i = 0 To UBound(arrProd,2) if arrProd(0,i) <> vbNullString then 'Limpa string strSQL = vbNullString 'MONTA A TSQL 'strSQL = "INSERT INTO TB_Item (CD_PEDIDO, CD_PRODUTO,QT_ITEM) VALUES (" 'strSQL = strSQL & cdPedido & ", " & arrProd(0,i) & ", " & arrProd(1,i) & ")" strSQL = "INSERT INTO TB_Item (CD_PEDIDO, CD_PRODUTO,QT_ITEM,forma,total,local) VALUES (" strSQL = strSQL & cdPedido & ", " & arrProd(0,i) & ", " & arrProd(1,i) & ", " & Forma & ", " & Vtota & ", " & tendereco & ")" 'EXECUTA ConnDB.Execute strSQL end if Nextend Sub '/////////////////////////////////////////////////////////////////////////////////////////////////'Abrindo Conexão com o banco de dadosCall AbreBanco'Declarando variaveisDim CodCliente 'Código do clienteDim dtPedido 'data do pedidoDim strSQL 'String SQLDim rsPedido 'RecordSet do pedido realizadoDim cdPedido 'Código do pedido realizadoDim arrProd 'Array do carrinho de compras Dim blnItens 'verifica se a array esta vaziaDim tVtotaDim tenderecoDim tForma'Inicializando variaveisCodCliente = Session("CodCliente") 'Pegando o código do cliente da sessiondtPedido = now() 'Guardando a data do peditoarrProd = Session("arrCarrinho") 'pegando array do carrinhoblnItens = falsetforma = session("forma")tVtota = session("Vtot")tendereco = request.form("endereco")'verifica se arrProd é uma array If Not IsArray(arrProd)Then Response.Write "<script>alert('Você não tem nenhum produto no carrinho')</script>" Response.Write "<script>window.location='carrinho.asp?txhAcao=3';</script>" Response.End End IfFor i = 0 To UBound(arrProd,2) if arrProd(0,i) <> vbNullString then blnItens = true end ifnext If not blnItens Then Response.Write "<script>alert('Você não tem nenhum produto no carrinho')</script>" Response.Write "<script>window.location='carrinho.asp?txhAcao=3';</script>" Response.End End If'Inserindo o pedido'strSQL = "Insert into tb_pedido (cd_cliente,dt_pedido,cd_sessao,forma,total,local) values ("& CodCliente &",'"& dtPedido &"','"& Session.SessionID & dtPedido &"','" & tforma & "','" & tVtota & "','" & tendereco & "')"strSQL = "Insert into tb_pedido (cd_cliente, dt_pedido, cd_sessao, forma, total, local) values ("& CodCliente &", '"& dtPedido &"', '"& Session.SessionID & dtPedido &"', '" & tforma & "', '" & tVtota & "', '" & tendereco & "')"'strSQL = "Insert into tb_pedido (cd_cliente,dt_pedido,cd_sessao) values ("& CodCliente &",'"& dtPedido &"','"& Session.SessionID & dtPedido &"')"'executa string SQL ConnDb.Execute strSQL'Limpa s1tringstrSQL = vbNullStringstrSQL = "Select cd_pedido from tb_pedido" & _ " where cd_cliente="& CodCliente &" and " & _ " cd_sessao='" & session.SessionID & dtPedido & "' "'Pega o código do pedidoSet rsPedido = ConnDB.Execute (strSQL)'Limpa stringstrSQL = vbNullString'if para pegar o código do pedigo gerado pelo insert anteriorif not rsPedido.Eof then cdPedido = rsPedido ("cd_pedido")else cdPedido = 0end if'chama sub que insere os itens do pedidoCall InsereItens (cdPedido)'Destroi o carrinhoSession("arrCarrinho") = null'Fecha banco de dadosCall FechaBanco%><HTML><HEAD><title>Très Bien - Conclusão de Pedido</title><META NAME="GENERATOR" Content="Microsoft FrontPage 4.0"></HEAD><BODY background="untitled.bmp"><center><BR><BR><% if cint (cdPedido) <> 0 then %><FONT face=Arial size=4><b>Seu pedido foi concluido com sucesso!</b></FONT><br> <FONT face=Arial size=4><b>Numero do Pedido: <%= cdPedido %></b></FONT><br><%else%><FONT face=Arial size=4 color=red><b>Erro ao concluir o seu pedido!</b></FONT><br> <FONT face=Arial size=4 color=red><b>Favor tentar novamente!</b></FONT><br><%end if%><INPUT type="button" value="Visualizar Carrinho" name="VerCarrinho" Onclick="window.location = 'carrinho.asp?txhAcao=3'" style="font-family: verdana; font-size:8pt; border-style: double; border-width: 2px; border-color: #7C6534; background-color: #E6D9BF; "><INPUT type="button" value="Cardapio" name="Cardapio" Onclick="window.location = 'tipo.asp'" style="font-family: verdana; font-size:8pt; border-style: double; border-width: 2px; border-color: #7C6534; background-color: #E6D9BF; "><P> </P></center></BODY></HTML>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Tira as aspas simples do Total e veja se funciona.strSQL = "Insert into tb_pedido (cd_cliente, dt_pedido, cd_sessao, forma, total, local) values ("& CodCliente &", '"& dtPedido &"', '"& Session.SessionID & dtPedido &"', '" & tforma & "', " & tVtota & ", '" & tendereco & "')"Abraços,Nyan

Compartilhar este post


Link para o post
Compartilhar em outros sites

cara faz o seguinte manda escrever a sql na tela e copia o valor dela aqui pra gente ver se ela ta sendo formatada corretamente, pois aparentemente ta certofaz isso ajudará muito a você mesmo

Compartilhar este post


Link para o post
Compartilhar em outros sites

Paksu,

imprimi a sua instrução SQL INSERT na tela e verifique se ele está passando os dados corretamente.

 

Response.write (strSQL)Response.end ()

Coloque este código abaixo da sua instrução e antes do EXECUTE.

 

Tá aí minha dica.

 

 

Obs.: As aspas simples (' ') na instrução, indica que o valor que você está passando para gravar no banco é uma STRING, sem as aspas simples, entende-se como um inteiro. Por isso verifique também como está formatado os campos na sua tabela.

 

Falows...

 

[]'s

Compartilhar este post


Link para o post
Compartilhar em outros sites

como é que eu faço isso???

response.write(strSQL) antes de executar

Compartilhar este post


Link para o post
Compartilhar em outros sites

é isso que apareceInsert into tb_pedido (cd_cliente,dt_pedido,cd_sessao,forma,total,local) values (9,'30/6/2003 01:14:51','103429669630/6/2003 01:14:51','cheque-',243,'Av. Paulista No 123'

Compartilhar este post


Link para o post
Compartilhar em outros sites

strSQL = "Insert into tb_pedido (cd_cliente, dt_pedido, cd_sessao, forma, total, local) values ("& CodCliente &", '"& dtPedido &");"

Abraços

w.silva

Compartilhar este post


Link para o post
Compartilhar em outros sites

beleza Paksu,se você ainda não consegui resolver o problema do insert, tenta executar este que estou postando fiz umas modificações no codigo que você postou. Se der erro me avisa qual foi.[]'sstrSQL = "INSERT INTO tb_pedido (cd_cliente, dt_pedido, cd_sessao, forma, total, local) VALUES ('"& CodCliente &"', '"& dtPedido &"', '"& Session.SessionID &"', '"& dtPedido &"', '" & tforma & "', '" & tVtota & "', '" & tendereco & "')" Ps: tenta também jogar o valor da variável de sessão SessionID em uma outra variável antes e depois jogá-la no insert, pois resolvi um pro meu uma vez assim. Ex:ID = Session("SessionID")

Compartilhar este post


Link para o post
Compartilhar em outros sites

Analizando o problema acredito que o erro esta na outra instrução insert que é:'Sub para incluir os produtos do carrinho no banco de dadosSub InsereItens (pCdPedido) if cint (pCdPedido) = 0 then exit sub end if 'varre array pegando todos os produtos For i = 0 To UBound(arrProd,2) if arrProd(0,i) <> vbNullString then 'Limpa string strSQL = vbNullString 'MONTA A TSQL strSQL = "INSERT INTO TB_Item (CD_PEDIDO, CD_PRODUTO,QT_ITEM) VALUES (" strSQL = strSQL & cdPedido & ", " & arrProd(0,i) & ", " & arrProd(1,i) & ")" 'EXECUTA ConnDB.Execute strSQL end if Next end Sub pois analizando o banco percebo que ele não grava os itens qdo eu utilizo os tres ultimos campos!!!se alguem puder []'s Paksu

Compartilhar este post


Link para o post
Compartilhar em outros sites

Conseguiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii!!!!!!!!!!!!!!!!! :D :)

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.