Ir para conteúdo

POWERED BY:

Arquivado

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

fabiosc80

Problema no Banco de Dados???

Recommended Posts

Pessoal oque esta acontecendo aqui?

 

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

 

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

 

/loja01/formapagamento.asp, line 373

 

 

alinha 373 é essa aqui:

 

Set tbtot = Dataconn.Execute(sqltot)

 

A query é essa aqui.

 

sqltot = "Select * from cartoes where Nome=" & NomeCartao

 

Vou colocar aqui tb ó código:

ASP [/tr][tr] <%

Dim NomeCartao,ID

NomeCartao = request.form ("CreditCardName")

%>

<form NAME="FrontPage_Form1" method="POST" action="shipping.asp"

onsubmit="return FrontPage_Form1_Validator(this)">

<input type="hidden" name="ShippingMethod" value="<%=ShippingMethod%>"><input

type="hidden" name="PaymentMethod" value="<%=PaymentMethod%>"><input type="hidden"

name="Tarifa" value="<%=Tarifa%>"><table border="0" width="100%" cellpadding="2">

<tr>

<td width="25%" class="TOPO_Celula_Meio">Cartão de Crédito:</td>

<td width="75%" class="TOPO_Celula_Links"><select NAME="CreditCardName" size="1" onChange="java script:CarregaCartao();">

<% if nomecartao = "" then%>

<option selected value="<%=CreditCardName%>" ><%=CreditCardName%></option>

<%else%>

<option selected value="<%=NomeCartao%>" ><%=NomeCartao%></option>

<%end if%>

<option><% x = populateSelectBox("SELECT * FROM Cartoes where aceita = 'SIM' ","nome","nome")%></option>

</select></td>

</tr>

<tr>

<td width="25%" class="TOPO_Celula_Meio">Nome no Cartão:</td>

<td width="75%" class="TOPO_Celula_Links"><input type="text" name="CardName"

value="<%=CardName%>" size="20"></td>

</tr>

<tr>

<td width="25%" class="TOPO_Celula_Meio">Número do Cartão:</td>

<td width="75%" class="TOPO_Celula_Links"><input type="text" maxLength="16"

name="CreditCardNumber" value="<%=CreditCardNumber%>" size="20"></td>

</tr>

<tr>

<td width="25%" class="TOPO_Celula_Meio">Codigo de Segurança: </td>

<td width="75%" class="TOPO_Celula_Links"><input type="text" maxLength="4"

name="CreditCardSeguro" value="<%=CreditCardSeguro%>" size="6">(no verso do cartão Ex: <small><small>1111222233334444</small></small>-<font

color="#FF0000"><strong><U>1234</U></strong></font>):</td>

</tr>

<tr>

<td width="25%" class="TOPO_Celula_Meio">Data de Validade:(mês/ano)</td>

<td width="75%" class="TOPO_Celula_Links"><table border="0" cellpadding="0">

<tr>

<td><select NAME="Mes" size="1">

<option value="01">Janeiro</option>

<option value="02">Fevereiro</option>

<option value="03">Março</option>

<option value="04">Abril</option>

<option value="05">Maio</option>

<option value="06">Junho</option>

<option value="07">Julho</option>

<option value="08">Agosto</option>

<option value="09">Setembro</option>

<option value="10">Outubro</option>

<option value="11">Novembro</option>

<option value="12">Dezembro</option>

</select></td>

<td><select NAME="Ano" size="1">

<option value="2002">2002</option>

<option value="2003">2003</option>

<option value="2004">2004</option>

<option value="2005">2005</option>

<option value="2006">2006</option>

<option value="2007">2007</option>

<option value="2008">2008</option>

<option value="2009">2009</option>

<option value="2010">2010</option>

<option value="1990">2011</option>

<option value="1991">2012</option>

<option value="1992">2013</option>

<option value="1993">2014</option>

<option value="1994">2015</option>

<option value="1995">2016</option>

<option value="1996">2017</option>

<option value="1997">2018</option>

<option value="1998">2019</option>

<option value="1999">2020</option>

<option value="1990">2021</option>

<option value="1991">2022</option>

<option value="1992">2023</option>

<option value="1993">2024</option>

<option value="1994">2025</option>

<option value="1995">2026</option>

<option value="1996">2027</option>

<option value="1997">2028</option>

<option value="1998">2029</option>

<option value="1999">2030</option>

</select></td>

<%

sqlcart = "select * from cartoes"

set rsc = Dataconn.Execute(sqlcart)

%>

</tr>

</table>

</td>

</tr>

<tr>

<td width="25%"></td>

<td width="75%">  </td>

</tr>

</table>

<%if NomeCartao= "" then

NomeCartao="Mastercard"

End if

%>

<%if valortotal >= 300 then%>

 

<%sqltot = "Select * from cartoes where Nome=" & NomeCartao

Set tbtot = Dataconn.Execute(sqltot)

%>

<table>

<tr>

<td width="100%"><span class="CESTA_Tit_18">Pagamento Parcelado:</span><hr

noshade size="1" align="left">

</td>

</tr>

</table>

<table>

<tr>

 

<td width="25%" class="TOPO_Celula_Meio">A Vista:</td>

<td width="75%" class="TOPO_Celula_Links"><input type="radio" value="<%=%>"></td>

</tr>

<tr>

<td width="100%" colspan="2"><input type="submit" value="Prosseguir" name="B1"> <input

type="reset" value="Limpar" name="B2"></td>

</tr>

</table>

<%else%>

<table>

<tr>

<td width="100%" colspan="2"><input type="submit" value="Prosseguir" name="B1"> <input

type="reset" value="Limpar" name="B2"></td>

</tr>

</table>

<%end if%>

 

 

<p> </p>

</form>

[/tr]

 

Só preciso de uma Luz por favor, nao sei oque ta acontecendo.

 

Fábio Sanches Carmona

Compartilhar este post


Link para o post
Compartilhar em outros sites

NomeCartao eh texto ou num??

se for texto faz a SQL assim

sqltot = "Select * from cartoes where Nome=' " & NomeCartao & " ' "

Compartilhar este post


Link para o post
Compartilhar em outros sites

NomeCartao eh texto ou num??se for texto faz a SQL assim

sqltot = "Select * from cartoes where Nome=' " & NomeCartao & " ' "
Deu certo porem agora ta dando esse erro aqui aonde teria que mostrar os valores no campoADODB.Field error '80020009' Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. /loja01/formapagamento.asp, line 0 a linha que vai o valor é essa aqui, linha 389 <td width="75%" class="TOPO_Celula_Links"><input type="radio" name="parcela1" value="<%=tbtot("nome")%>"></td>OQue faço?oque pode ser?

Compartilhar este post


Link para o post
Compartilhar em outros sites

Coloca logo abaixo da linha Set tbtot = Dataconn.Execute(sqltot)

 

ASP [/tr][tr]<%if not tbtot.eof then%>

ai você coloca o codigo que é pra aparecer aqui

<%end if%>

[/tr]

Compartilhar este post


Link para o post
Compartilhar em outros sites

Não deu certo agora nao aparece o input

 

olha como eu fiz:

 

ASP [/tr][tr] <%

Dim NomeCartao,ID

NomeCartao = request.form ("CreditCardName")

ID = request.form ("ID")

%>

<form NAME="FrontPage_Form1" method="POST" action="shipping.asp"

onsubmit="return FrontPage_Form1_Validator(this)">

<input type="hidden" name="ShippingMethod" value="<%=ShippingMethod%>"><input

type="hidden" name="PaymentMethod" value="<%=PaymentMethod%>"><input type="hidden"

name="Tarifa" value="<%=Tarifa%>"><table border="0" width="100%" cellpadding="2">

<tr>

<td width="25%" class="TOPO_Celula_Meio">Cartão de Crédito:</td>

<td width="75%" class="TOPO_Celula_Links"><select NAME="CreditCardName" size="1" onChange="java script:CarregaCartao();">

<% if nomecartao = "" then%>

<option selected value="<%=CreditCardName%>" ><%=CreditCardName%></option>

<%else%>

<option selected value="<%=NomeCartao%>" ><%=NomeCartao%></option>

<%end if%>

<option><% x = populateSelectBox("SELECT * FROM Cartoes where aceita = 'SIM' ","nome","nome")%></option>

</select></td>

</tr>

<tr>

<td width="25%" class="TOPO_Celula_Meio">Nome no Cartão:</td>

<td width="75%" class="TOPO_Celula_Links">

<input type="hidden" name="ID" value="<%=ID%>" size="20">

<input type="text" name="CardName"

value="<%=CardName%>" size="20"></td>

</tr>

<tr>

<td width="25%" class="TOPO_Celula_Meio">Número do Cartão:</td>

<td width="75%" class="TOPO_Celula_Links"><input type="text" maxLength="16"

name="CreditCardNumber" value="<%=CreditCardNumber%>" size="20"></td>

</tr>

<tr>

<td width="25%" class="TOPO_Celula_Meio">Codigo de Segurança: </td>

<td width="75%" class="TOPO_Celula_Links"><input type="text" maxLength="4"

name="CreditCardSeguro" value="<%=CreditCardSeguro%>" size="6">(no verso do cartão Ex: <small><small>1111222233334444</small></small>-<font

color="#FF0000"><strong><U>1234</U></strong></font>):</td>

</tr>

<tr>

<td width="25%" class="TOPO_Celula_Meio">Data de Validade:(mês/ano)</td>

<td width="75%" class="TOPO_Celula_Links"><table border="0" cellpadding="0">

<tr>

<td><select NAME="Mes" size="1">

<option value="01">Janeiro</option>

<option value="02">Fevereiro</option>

<option value="03">Março</option>

<option value="04">Abril</option>

<option value="05">Maio</option>

<option value="06">Junho</option>

<option value="07">Julho</option>

<option value="08">Agosto</option>

<option value="09">Setembro</option>

<option value="10">Outubro</option>

<option value="11">Novembro</option>

<option value="12">Dezembro</option>

</select></td>

<td><select NAME="Ano" size="1">

<option value="2002">2002</option>

<option value="2003">2003</option>

<option value="2004">2004</option>

<option value="2005">2005</option>

<option value="2006">2006</option>

<option value="2007">2007</option>

<option value="2008">2008</option>

<option value="2009">2009</option>

<option value="2010">2010</option>

<option value="1990">2011</option>

<option value="1991">2012</option>

<option value="1992">2013</option>

<option value="1993">2014</option>

<option value="1994">2015</option>

<option value="1995">2016</option>

<option value="1996">2017</option>

<option value="1997">2018</option>

<option value="1998">2019</option>

<option value="1999">2020</option>

<option value="1990">2021</option>

<option value="1991">2022</option>

<option value="1992">2023</option>

<option value="1993">2024</option>

<option value="1994">2025</option>

<option value="1995">2026</option>

<option value="1996">2027</option>

<option value="1997">2028</option>

<option value="1998">2029</option>

<option value="1999">2030</option>

</select></td>

<%

sqlcart = "select * from cartoes"

set rsc = Dataconn.Execute(sqlcart)

%>

</tr>

</table>

</td>

</tr>

<tr>

<td width="25%"></td>

<td width="75%">  </td>

</tr>

</table>

<%if NomeCartao= "" then

NomeCartao=""

End if

%>

<%sqltot = "Select * from cartoes where Nome=' " & NomeCartao & " ' "

Set tbtot = Dataconn.Execute(sqltot)

%>

 

 

<%if valortotal >= 300 then%>

 

 

 

<table>

<tr>

<td width="100%"><span class="CESTA_Tit_18">Pagamento Parcelado:</span><hr

noshade size="1" align="left">

</td>

</tr>

</table>

<table>

<%if not tbtot.eof then%>

<tr>

<td width="25%" class="TOPO_Celula_Meio">A Vista:</td>

<td width="75%" class="TOPO_Celula_Links"><input type="text" name="parcela1" value="<%=tbtot("1parcela")%>"></td>

</tr>

<%end if%>

<tr>

<td width="100%" colspan="2"><input type="submit" value="Prosseguir" name="B1"> <input

type="reset" value="Limpar" name="B2"></td>

</tr>

</table>

<%else%>

 

<table>

<tr>

<td width="100%" colspan="2"><input type="submit" value="Prosseguir" name="B1"> <input

type="reset" value="Limpar" name="B2"></td>

</tr>

<%end if%>

</table>

 

 

 

<p> </p>

</form>

[/tr]

Compartilhar este post


Link para o post
Compartilhar em outros sites

ops, ignorem emu post, nao li todo...quanto ao EOF e BOF, quando voce faz uma consulta e espera registros, tem que testar com EOF se tem algum registro no recordset...ok?

Tem dois registros

Compartilhar este post


Link para o post
Compartilhar em outros sites

o erro ta mudando??quando era issoToo few parameters. Expected 1. era o nome de algum campo que estava errado...

Compartilhar este post


Link para o post
Compartilhar em outros sites

fabio, agora confundiu a todos, qual o seu real problema? que erro esta acontecendo agora?se for o EOF, voce tem que verificar se a consulta retornou registros... voce pode achar que tem registros, mas a consulta nao retorna por alguma diferenca nas condicoes que voce pode nao estar vendo...e se tiver, faça um "WHILE" para verificar se esta no EOF...se for o primeiro erro, é algum campo que nao esta com o nome certo... ou nome invalido, como DESC (abreviação para DESCRICAO), igual a outro topico com "erro na instrucao insert to" pois é uma palavra reservada....ok? ;)

Compartilhar este post


Link para o post
Compartilhar em outros sites

fabio, agora confundiu a todos, qual o seu real problema? que erro esta acontecendo agora?

 

se for o EOF, voce tem que verificar se a consulta retornou registros... voce pode achar que tem registros, mas a consulta nao retorna por alguma diferenca nas condicoes que voce pode nao estar vendo...

e se tiver, faça um "WHILE" para verificar se esta no EOF...

 

se for o primeiro erro, é algum campo que nao esta com o nome certo... ou nome invalido, como DESC (abreviação para DESCRICAO), igual a outro topico com "erro na instrucao insert to" pois é uma palavra reservada....

 

ok? ;)

Vou fazer o seguinte, vou postar o erro que ta dando agora e o código do form denovo ok como ta agora...

 

o erro é esse aqui:

___________

 

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

 

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

 

/loja01/formapagamento.asp, line 374

______________

 

a linha 374 é essa aqui:

 

Set tbtot = Dataconn.Execute(sqltot)

 

a Query é essa:

 

sqltot = "Select parcela1 from cartoes where Nome=' " & NomeCartao & " ' "

 

_______________________

 

o asp é esse aqui:

 

 

ASP [/tr][tr] <td>

<%

Dim NomeCartao,ID

NomeCartao = request.form ("CreditCardName")

ID = request.form ("ID")

%>

<form NAME="FrontPage_Form1" method="POST" action="shipping.asp"

onsubmit="return FrontPage_Form1_Validator(this)">

<input type="hidden" name="ShippingMethod" value="<%=ShippingMethod%>"><input

type="hidden" name="PaymentMethod" value="<%=PaymentMethod%>"><input type="hidden"

name="Tarifa" value="<%=Tarifa%>"><table border="0" width="100%" cellpadding="2">

<tr>

<td width="25%" class="TOPO_Celula_Meio">Cartão de Crédito:</td>

<td width="75%" class="TOPO_Celula_Links"><select NAME="CreditCardName" size="1" onChange="java script:CarregaCartao();">

<% if nomecartao = "" then%>

<option selected value="<%=CreditCardName%>" ><%=CreditCardName%></option>

<%else%>

<option selected value="<%=NomeCartao%>" ><%=NomeCartao%></option>

<%end if%>

<option><% x = populateSelectBox("SELECT * FROM Cartoes where aceita = 'SIM' ","nome","nome")%></option>

</select></td>

</tr>

<tr>

<td width="25%" class="TOPO_Celula_Meio">Nome no Cartão:</td>

<td width="75%" class="TOPO_Celula_Links">

<input type="hidden" name="ID" value="<%=ID%>" size="20">

<input type="text" name="CardName"

value="<%=CardName%>" size="20"></td>

</tr>

<tr>

<td width="25%" class="TOPO_Celula_Meio">Número do Cartão:</td>

<td width="75%" class="TOPO_Celula_Links"><input type="text" maxLength="16"

name="CreditCardNumber" value="<%=CreditCardNumber%>" size="20"></td>

</tr>

<tr>

<td width="25%" class="TOPO_Celula_Meio">Codigo de Segurança: </td>

<td width="75%" class="TOPO_Celula_Links"><input type="text" maxLength="4"

name="CreditCardSeguro" value="<%=CreditCardSeguro%>" size="6">(no verso do cartão Ex: <small><small>1111222233334444</small></small>-<font

color="#FF0000"><strong><U>1234</U></strong></font>):</td>

</tr>

<tr>

<td width="25%" class="TOPO_Celula_Meio">Data de Validade:(mês/ano)</td>

<td width="75%" class="TOPO_Celula_Links"><table border="0" cellpadding="0">

<tr>

<td><select NAME="Mes" size="1">

<option value="01">Janeiro</option>

<option value="02">Fevereiro</option>

<option value="03">Março</option>

<option value="04">Abril</option>

<option value="05">Maio</option>

<option value="06">Junho</option>

<option value="07">Julho</option>

<option value="08">Agosto</option>

<option value="09">Setembro</option>

<option value="10">Outubro</option>

<option value="11">Novembro</option>

<option value="12">Dezembro</option>

</select></td>

<td><select NAME="Ano" size="1">

<option value="2002">2002</option>

<option value="2003">2003</option>

<option value="2004">2004</option>

<option value="2005">2005</option>

<option value="2006">2006</option>

<option value="2007">2007</option>

<option value="2008">2008</option>

<option value="2009">2009</option>

<option value="2010">2010</option>

<option value="1990">2011</option>

<option value="1991">2012</option>

<option value="1992">2013</option>

<option value="1993">2014</option>

<option value="1994">2015</option>

<option value="1995">2016</option>

<option value="1996">2017</option>

<option value="1997">2018</option>

<option value="1998">2019</option>

<option value="1999">2020</option>

<option value="1990">2021</option>

<option value="1991">2022</option>

<option value="1992">2023</option>

<option value="1993">2024</option>

<option value="1994">2025</option>

<option value="1995">2026</option>

<option value="1996">2027</option>

<option value="1997">2028</option>

<option value="1998">2029</option>

<option value="1999">2030</option>

</select></td>

<%

sqlcart = "select * from cartoes"

set rsc = Dataconn.Execute(sqlcart)

%>

</tr>

</table>

</td>

</tr>

<tr>

<td width="25%"></td>

<td width="75%">  </td>

</tr>

</table>

<%if NomeCartao= "" then

NomeCartao="Visa"

End if

%>

<%sqltot = "Select parcela1 from cartoes where Nome=' " & NomeCartao & " ' "

Set tbtot = Dataconn.Execute(sqltot)

%>

 

 

<%if valortotal >= 300 then%>

 

 

 

<table>

<tr>

<td width="100%"><span class="CESTA_Tit_18">Pagamento Parcelado:</span><hr

noshade size="1" align="left">

</td>

</tr>

</table>

<table>

<%if not tbtot.eof then%>

<tr>

<td width="25%" class="TOPO_Celula_Meio">A Vista:</td>

<td width="75%" class="TOPO_Celula_Links"><input type="text" name="parcela1" value="<%=tbtot("1parcela")%>"></td>

</tr>

<%end if%>

<tr>

<td width="100%" colspan="2"><input type="submit" value="Prosseguir" name="B1"> <input

type="reset" value="Limpar" name="B2"></td>

</tr>

</table>

<%else%>

 

<table>

<tr>

<td width="100%" colspan="2"><input type="submit" value="Prosseguir" name="B1"> <input

type="reset" value="Limpar" name="B2"></td>

</tr>

<%end if%>

</table>

 

 

 

<p> </p>

</form>

</td>

 

</tr>

</table>

</td>

 

</tr>

</table>

</td>

<td background="imagens/bar_fun_dir.gif" valign="top">

 

</td>

</tr>

</table>

 

<p> </p>

<%

else

'Response.Redirect "formapagamento.asp?ShippingMethod=" & ShippingMethod

Response.Redirect "shipping.asp?ShippingMethod=" & ShippingMethod & "&PaymentMethod=" & PaymentMethod & "&Tarifa=" & Tarifa

end if

end if

%>

</td>

[/tr]

Compartilhar este post


Link para o post
Compartilhar em outros sites

verifique se os nomes dos campos é realmente "parcela1" e "nome", e se a tabela é "cartoes"voce utiliza num dos recordset isso:tbtot("1parcela")e nao parcela1 como no select...ok ;)

Esta tudo certo.O campo no banco de dados é 1parcela mesmo e os outros estao certos tambem.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Fabio!!entao no select voce tem que colocar 1parcela.... nao parcela1....

Agora deu esse erro aqui:Microsoft OLE DB Provider for ODBC Drivers error '80040e14' [Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression '1parcela'. /loja01/formapagamento.asp, line 374

Compartilhar este post


Link para o post
Compartilhar em outros sites

<%sqltot = "Select 1parcela from cartoes where Nome='" & NomeCartao & "' "Set tbtot = Dataconn.Execute(sqltot)%>voce esta colocando assim??

Esta igualzinho ó: <%sqltot = "Select 1parcela from cartoes where Nome=' " & NomeCartao & " ' " Set tbtot = Dataconn.Execute(sqltot) %>

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.