Pq O Negocio Nao Grava No Banco

marcos_804 · Dezembro 9, 2004

Galera, eu to tentando fazer um sistema de clientes que cria varias parcelas, mas o negocio não grava no bando de dados, o que poderia fazer para ele gravar.

A linha que eu acho que esta errada vai ai, mas o pior que a merda na iforma nenhum erro!!

Eis, a questao, nenhum erro

aqui o link, para verem que não da erro!

http://i.1asphost.com/teajudo/cliente/clie...ere_cliente.asp

<html>
<head>
<title>Sistema de Cliente</title>
<style>
a{text-decoration:none;color:#000000}
a:hover{text-decoration:underline}
body{font-family:verdana;font-size:11;color:#000000}
#barra {border:2px outset #336699;background-color:#336699;font-size:13;color:#ffffff;width:100%;text-align:center;font-family:verdana;font-weight:bold}
#bot {background-color:#BFE2FF;color:#000000;font-weight:bold;font-family:verdana;font-size:11;text-align:center;border:2px solid #ffff00}
#caixa {font-family:verdana;font-size:11;color:#ff0000;background-color:#f1f1f1;border:1px solid #000000}
</style>
</head>
<body topmargin="5">
<%
tipo = request.querystring("tipo")
If IsEmpty(tipo) or tipo = "" then
%>
<center>
<form action="insere_cliente.asp?tipo=criaParcela" method="post">
<table width="650" border="0" style="font-size:11">
<tr>
<td id="barra" valign="top">
Inserir Clientes e Parcelas
</td>
</tr>
<tr>
<td valign="top">
<table width="100%" colspan="4" style="background-color:#f1f1f1;border:1px solid #000000;font-size:12">
<tr>
<td valign="top" align="center">
<b>Escolha o número de parcelas:</b>
<select size="1" name="parcelas" id="bot">
<option value="1" selected>1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
<option value="8">8</option>
<option value="9">9</option>
<option value="10">10</option>
</select>
 
</td>
</tr>
</table>
<table width="642" style="font-size: 11;padding:10;border:1px solid #000000;background-color:#e3e3e3" colspan="4">

<tr>
<td valign="middle" align="right" width="88">
Cliente:
</td>
<td valign="middle" align="left" width="255">
<input type="text" name="cliente" size="39" id="caixa">
</td>
<td valign="middle" align="right" width="69">
Livro:
</td>
<td valign="middle" align="left" width="204">
<select size="1" name="livro" id="caixa">
<option value="Escola Viva" selected>Escola Viva</option>
<option value="Dicionário - Portugês">Dicionrio -
Portugs</option>
<option value="Dicionário - Inglês">Dicionrio -
Ingls</option>
<option value="A - Z">De A a Z</option>
<option value="Outro">Outro</option>
</select>
</td>
</tr>
<tr>
<td colspan="4">
<table colspan="6" width="669" style="font-size: 11">
<tr>
<td valign="middle" align="right" width="84">
Preço Total:
</td>
<td valign="middle" align="left" width="88">
<input type="text" name="preço" size="13" id="caixa">
</td>
<td valign="middle" align="right" width="103">
Nº do Pedido:
</td>
<td valign="middle" align="left" width="128">
<input type="text" name="pedido" size="14" id="caixa" value="">
</td>
<td valign="middle" align="right" width="105">
1º Vencimento:
</td>
<td valign="middle" align="left" width="123">
<input type="text" name="vencD" size="2" id="caixa" value="" maxlength="2"> /
<input type="text" name="vencM" size="2" id="caixa" value="" maxlength="2"> /
<input type="text" name="vencA" size="4" id="caixa" value="" maxlength="4">
</td>
</tr>
<tr>
<td colspan="6" width="653">
<table width="661" style="font-size: 11">
<tr>
<td valign="middle" align="right" width="89">
Preço Parcela:
</td>
<td valign="middle" align="left" width="142">
<input type="text" name="Pparcela" size="13" id="caixa">
</td>
<td valign="middle" align="right" width="31">
Complemento:
</td>
<td valign="middle" align="left" width="145">
<input type="text" name="complemento" size="44" id="caixa" value="">
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="6" align="center">
<input type="submit" value="Criar Cadastro" id="bot">
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</center>
<%end if
If tipo = "criaParcela" then
parcelas = request.form("parcelas")
'Estas são as requisicoes do formulario acima
cliente = request.form("cliente")
livro = request.form("livro")
preço = request.form("preço")
pedido = request.form("pedido")
vencD = request.form("vencD")
vencM = request.form("vencM")
vencA = request.form("vencA")
Pparcela = request.form("Pparcela")
complemento = request.form("complemento")%>
<form action="insere_cliente.asp?tipo=grava" method="post">
<table width="650" border="0" style="font-size:11">
<tr>
<td id="barra" valign="top">
Criar Parcelas - <%=parcelas%>
</td>
</tr>
<tr>
<td>
<%
'Aqui determina o numero de parcelas a ser gerado
'com informacoes vindo do formulario acima
for NParcela = 1 to parcelas
%>
<table width="642" style="font-size: 11;padding:10;border:1px solid #000000;background-color:#e3e3e3" colspan="4">
<tr>
<td valing="middle" colspan="4" style="background-color:#ffffff;padding:3">
<b>Nº da Pacela:</b> <span style="padding:2;background-color:#ffff00;color:#000000;font-weight:bold;font-size:11"><%=NParcela%></span>
</td>
</tr>
<tr>
<td valign="middle" align="right" width="88">
Cliente:
</td>
<td valign="middle" align="left" width="255">
<input type="text" name="cliente" size="39" value="<%=cliente%>" id="caixa">
</td>
<td valign="middle" align="right" width="69">
Livro:
</td>
<td valign="middle" align="left" width="204">
<input type="text" name="livro" value="<%=livro%>" id="caixa">
</td>
</tr>
<tr>
<td colspan="4">
<table colspan="6" width="669" style="font-size: 11">
<tr>
<td valign="middle" align="right" width="84">
Preço Total:
</td>
<td valign="middle" align="left" width="88">
<input type="text" name="preço" size="13" id="caixa" value="<%=preço%>">
</td>
<td valign="middle" align="right" width="103">
Nº do Pedido:
</td>
<td valign="middle" align="left" width="128">
<input type="text" name="pedido" size="14" id="caixa" value="<%=pedido%>">
</td>
<td valign="middle" align="right" width="105">
Vencimento:
</td>
<td valign="middle" align="left" width="123">
<input type="text" name="vencD" size="2" id="caixa" maxlength="2" value="<%=vencD%>"> /
<input type="text" name="vencM" size="2" id="caixa" maxlength="2" value="<%=vencM%>"> /
<input type="text" name="vencA" size="4" id="caixa" maxlength="4" value="<%=vencA%>">
</td>
</tr>
<tr>
<td colspan="6" width="653">
<table width="661" style="font-size: 11">
<tr>
<td valign="middle" align="right" width="89">
Preço Parcela:
</td>
<td valign="middle" align="left" width="142">
<input type="text" name="Pparcela" size="13" id="caixa" value="<%=Pparcela%>">
</td>
<td valign="middle" align="right" width="31">
Situação:
</td>
<td valign="middle" align="left" width="145">
<select size="1" name="situacao" id="caixa">
<option value="0" selected>Aguardando confirmao</option>
<option value="1">Pago</option>
</select>
</td>
</tr>
<input type="hidden" name="complemento" size="44" id="caixa" value="<%=complemento%>">
<input type="hidden" name="parcelas" size="44" id="caixa" value="<%=parcelas%>">
</table>
</td>
</tr>
</table>
<%Next%>
</td>
</tr>
<tr>
<td colspan="6" align="center" valign="top">
<input type="submit" value="Criar Cadastro" id="bot">
</td>
</tr>
</table>

<%end if
If tipo = "grava" then
cliente = request.form("cliente")
livro = request.form("livro")
preço = request.form("preço")
pedido = request.form("pedido")
Pparcela = request.form("Pparcela")
situacao = request.form("situacao")
parcelas = request.form("parcela")
vencD = request.form("vencD")
vencM = request.form("vencM")
vencA = request.form("vencA")
complemento = request.form("complemento")
%>
<%
SET marcos = CreateObject("ADODB.connection")
meuLivro = "DRIVER={Microsoft Access Driver (*.mdb)};"
meuLivro = meulivro &"DBQ="& Server.MapPath("banco.mdb")
marcos.open meuLivro
'SERÁ QUE ISSO QUE TÁ DANDO ERRO?
For gravar = 1 to parcelas
data = vencD & " / " & vencM + gravar & " / " & vencA
NNParcela = gravar
SQL = "INSERT INTO clientes (cliente, livro, preço, pedido, Pparcela, situacao, parcelas, data, NParcela, complemento)"
SQL = SQL & "VALUES ('"& cliente &"','"& livro &"','"& preço &"','"& pedido &"','"& Pparcela &"','"& situacao &"','"& parcelas &"','"& data &"', '"& NNParcela &"', '"& complemento &"')"
Set Inerindo = marcos.Execute(SQL)
Next
%>
<%
Response.Write "<script>alert('Cliente e parcelas inseridas com sucesso!');</script>"
%>
<br><br><br><center><a href="insere_cliente.asp?tipo=redireciona"><b>CLIQUE AQUI</b><br>Para Inserir um novo cliente!!!</a></center>
<%end if
If tipo = "redireciona" then
response.redirect "insere_cliente.asp"
end if%>
</body>

marcos_804 · Dezembro 9, 2004

CADE OS MODERADORES DO FORUM??????????????

ViniciusJau · Dezembro 10, 2004

cara, ativa os erros amigaveis no seu navegador e posta o erro ai

dark0 · Dezembro 10, 2004

Eita

como o povo ta folgado.. fala serio..

É muito facil chegar, largar o codigo, e dizer "Porque não funciona"?

Amigo, ninguém aqui tem obrigação nenhuma de responder nenhum tópico.

Se ninguém respondeu, ou é porque sua duvida está confusa, e ninguém entendeu, ou porque ninguém sabe resolver.

Eu diria, que sempre que um cara chega e joga o codigo inteiro da pagina dele, eu nem olho o tópico. simplesmente ignoro.

Pois, eu gosto de ajudar, quando a pessoa se ajuda, procurando e tentando entender.

Agora, jogar o codigo aí, e 'solicitar resolução', fala serio..

Bom, o que eu posso te dizer, é que eu olhei seu link, e ele deu erro porque não preenchi nenhum campo.

Isso é configuração do seu banco de dados.

Se você não vê o erro, como nós vamos ver?

marcos_804 · Dezembro 11, 2004

EITA , QUE "DEDO" AFIADO O DO MODERADOR, MAS TUDO BEM!

O CHATO É QUE O NEGOCIO NÃO APRESENTA NEHUM ERRO, FALA QUE INSERIU, MAS É TUDO MENTIRA

ONDE ACHO QUE DÁ O ERRO EU POSTEI EM VERMELHO, MAS ESTE FORUM não O POS, POR ISSO AQUI VAI ONDE EU ACHO QUE DEVE ESTAR ERRADO

<%
For gravar = 1 to parcelas
data = vencD & " / " & vencM + gravar & " / " & vencA
NNParcela = gravar
SQL = "INSERT INTO clientes (cliente, livro, preço, pedido, Pparcela, situacao, parcelas, data, NParcela, complemento)"
SQL = SQL & "VALUES ('"& cliente &"','"& livro &"','"& preço &"','"& pedido &"','"& Pparcela &"','"& situacao &"','"& parcelas &"','"& data &"', '"& NNParcela &"', '"& complemento &"')"
Set Inerindo = marcos.Execute(SQL)
Next
%

dark0 · Dezembro 11, 2004

Amigo, veja só..

Muita gente chega, posta e fica cobrando da gente alguma resposta, como se a gente fosse obrigado à responder.

Não é porque somos moderadores, que somos obrigados à responder tudo. Porque? Porque ninguém ganha dinheiro para moderar o forum, sendo assim, não temos obrigação alguma de responder tudo.

Estamos aqui apenas ajudando a organizar o forum.

Pena que muita gente não valoriza isso

Bom, mas isso não vem ao caso, né..

Para o forum colocar Tags de Negrito, cores, e tudo mais, dentro de codigos, utilize a tag QUOTE.

Pode ver no seu post, eu editei, e substitui CODE por QUOTE, assim a coloração apareceu, entendeu?

Agora, sobre seu codigo..

Me explica uma coisa..

você ta gerando um Insert dentro de um FOR?

Mas, ele está entrando nesse for?

Tente dar um response.write dentro do for, pra ver se essa parte esta sendo executada..

Pois, se ele não entrar no for, não executará o insert..

ursolouco · Dezembro 13, 2004

CADE OS MODERADORES DO FORUM??????????????

Brother!!!

O Dark, em nome da moderação da seção, já se manifestou e não vou dar uma segunda opinião sobre o assunto, pois o mesmo, já esta tomando as devidas medidas sobre o POST.

Beleza ? Qualquer resposta sobre este assunto, procure via P.M. os moderadores da seção.

Por favor, vamos voltar as dúvidas sobre ASP/Asp.Net

Abração!!!

Entrar

Pq O Negocio Nao Grava No Banco

Pergunta

marcos_804

Link para o comentário

Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

marcos_804

Link para o comentário

Compartilhar em outros sites

ViniciusJau

Link para o comentário

Compartilhar em outros sites

dark0

Link para o comentário

Compartilhar em outros sites

marcos_804

Link para o comentário

Compartilhar em outros sites

dark0

Link para o comentário

Compartilhar em outros sites

ursolouco

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades