Erro: nao sei o que é?

Matheus Brito · Outubro 27, 2007

sql="select * from credenciados where cod_empresa=" & request.Form("cod_empresa")

o erro eh o seguinte:

Microsoft OLE DB Provider for ODBC Drivers erro '80040e14'

[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe (operador faltando) na expressão de consulta 'cod_empresa='.

/matheus/altera.asp, line 12

vlw pessoal

Maux · Outubro 27, 2007

o request.form deve estar voltando em branco...

tente colocar

response.write request.Form("cod_empresa")

response.end()

só para ver se está retornando algo...

Matheus Brito · Outubro 27, 2007

è realmente ta voltando em branco mas porque?

abs

Ted k' · Outubro 27, 2007

ñ está passando valor cara, o nome do campo ñ está batendo ou simplismente ñ está indo valor, cabe a você fazer essa verificação!!!

Matheus Brito · Outubro 27, 2007

o nome do campo existe é a chave primaria da tabela... so nao sei porque nao ta passando?

abs

Maux · Outubro 27, 2007

pq o nome do campo do formulario não está com o mesmo que você buscou!

vai no seu form e ve se o nome do campo é o mesmo que você está buscando!

Matheus Brito · Outubro 27, 2007

Eh o mesmo nome, to usando um combobox, que quando o cara selecinar um credenciado no combo eu capturo o numero pelo nome sako... vou postar o codigo...

<form name="alterar" id="alterar" class="insere" action="altera.asp?fazer=resultado">
<p><b>Credenciados:</b>
<select name="cod_empresa" >
<%

Str= "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("dataBase") & "\bd.mdb"
set conexao= Server.CreateObject("adodb.connection")
conexao.open Str
sql ="SELECT * FROM credenciados ORDER BY nome;"
Set RS_Credenciados = conexao.execute(sql)
Do While Not RS_Credenciados.Eof
'response.Write(sql)
'response.End()
%>
<option value="<% = RS_Credenciados("cod_empresa") %>"><% = RS_Credenciados("nome") %></option>
<%
	RS_Credenciados.MoveNext
Loop
RS_Credenciados.Close
Set RS_Credenciados = Nothing
%>
</select>
<label>
<input type="submit" name="Submit" value="alterar" class="botao" />
</label>
<%
if request.QueryString("fazer") = "resultado" then

Str= "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("dataBase") & "\bd.mdb"
set conexao= Server.CreateObject("adodb.connection")
conexao.open Str
sql="select * from credenciados where cod_empresa=" & request.Form("cod_empresa")		   
'response.Write(sql)
'response.end()
set rs_cod=conexao.execute(sql)

rs_cod=nothing
end if
%>

Axo que eh isso ai... da uma força ai.

abs

Ted k' · Outubro 27, 2007

Coloque no form o method

[url="http-~~-//december.com/html/4/element/form.html"]<form[/url] METHOD="POST" name="alterar" id="alterar" class="insere" action="altera.asp?fazer=resultado">

Matheus Brito · Outubro 27, 2007

mesmo erro...:[

-----------------------------------------------------------------------------------

Post Mesclado

-----------------------------------------------------------------------------------

Aew man ta uma confusão retada, quando eu dou um:

response.write(sql)

response.end()

Aparece assim: select * from credenciados where cod_empresa=

Agora quando clico no botao que eu coloquei ao lado ja aprece o numero do cod_empresa:

Aparece assim: select * from credenciados where cod_empresa=17

Nao to entendendo porr.a nenhuma da uma luz aew...

abs

Ted k' · Outubro 27, 2007

há sim eu ñ estou vendo o form fechado, feche antes do IF

Matheus Brito · Outubro 27, 2007

Eh bahianom continuoou com o erro, agora eh o seguinte mesmo com o erro quando eu clico no botao de pois de selecionar a combobox eu consigo puxar os dados do banco para o form.... mas o erro continua.

abs

Ted k' · Outubro 27, 2007

Veja agora:

ASP

<%

Str= "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("dataBase") & "bd.mdb"

set conexao= Server.CreateObject("adodb.connection")

conexao.open Str

%>

<p><b>Credenciados:</b>

<%

sql ="SELECT * FROM credenciados ORDER BY nome asc"

Set RS_Credenciados = conexao.execute(sql)

Do While Not RS_Credenciados.Eof

'response.Write(sql)

'response.End()

%>

<%

RS_Credenciados.MoveNext

Loop

RS_Credenciados.Close

Set RS_Credenciados = Nothing

%>

</select>

<label>

</label>

</form>

<%

if request.Form("Submit") = "alterar" then

Dim VarCodigo : VarCodigo = request.Form("codigo")

sql="select * from credenciados where cod_empresa="&VarCodigo

set rs_cod = conexao.execute(sql)

If rs_cod.Eof Then

Response.Write("Não está Passando valores")

Else

Response.Write("Passando valores")

ENd If

end if

%>

Matheus Brito · Outubro 27, 2007

Porque você tirou aquela parte do request.querystring(" ") ? Eu nao teria que testar se isso era verdade pra poder dizer ao código que eu já escolhi a opção do combo? E daI ELE apenas buscar no banco, e exibir no formulario?

abs e vlw

Ted k' · Outubro 27, 2007

nessa linha que estou dizendo

if request.Form("Submit") = "alterar" then

ao clicar no botão cujo o nome é "Submit" e o valor é "alterar" que ele prossiga com o if!

e para mostrar no formulário!!

ASP

<%

if request.Form("Submit") = "alterar" then

Dim VarCodigo : VarCodigo = request.Form("codigo")

sql="select * from credenciados where cod_empresa="&VarCodigo

set rs_cod = conexao.execute(sql)

If rs_cod.Eof Then

Response.Write("Não está Passando valores")

Else

%>

coloque aqui seu formulário!!!!!!!!!!!!!!!!!!!

<%

ENd If

end if

%>

Matheus Brito · Outubro 28, 2007

Fala pessoal eh o seguinte fiz um formulario pra introduzir dados no banco, ate ai beleza, depois crie uma pagina de alteraçaõ, ou seja eu listo os clientes por uma combobox e dai exibo seus dados no formulario, ate ai tudo beleza tb, so que depois de listar os dados do banco no form, eu clico no botao alterar dados pra ja mandar de volta pro banco alterados....

Me deem uma força ai por favor vlw

ai da erro:

Erro de tempo de execução do Microsoft VBScript erro '800a01a8'

Objeto necessário: ''

/matheus/altera.asp, line 193

vo postar o codigo:

ASP

<% sub formulario_principal()

Str= "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("dataBase") & "bd.mdb"

set conexao= Server.CreateObject("adodb.connection")

conexao.open Str

%>

<title>Alteração</title>

<!--

form.insere {

background-color: #FFFFCC;

width:380px;

height:465px;

font: 11px Verdana, sans-serif;

color: #003399;

border: 0px solid #0000FF;

padding-left:10px;}

.campos {

background-color:#B0E0E6;

font: 11px georgia, sans-serif;

color:#0033CC;

margin-right: 20px;

}

.botao {

background-color: #CC3300;

font: 10px Arial, sans-serif;

color: #CCFFFF;

}

.style1 {font-size: larger}

-->

</style>

function validaForm(formulario){

//validar nome

if (formulario.nome.value == ""){

alert("O campo " + formulario.nome.name + " deve ser preenchido!");

formulario.nome.focus();

return false;

}

// valida endereco

if (formulario.endereco.value == ""){

alert("O campo " + formulario.endereco.name + " deve ser preenchido!");

formulario.endereco.focus();

return false;

}

if (formulario.bairro.value == ""){

alert("O campo " + formulario.bairro.name + " deve ser preenchido!");

formulario.bairro.focus();

return false;

}

if (formulario.complemento.value == ""){

alert("O campo " + formulario.complemento.name + " deve ser preenchido!");

formulario.complemento.focus();

return false;

}

if (formulario.email.value == ""){

alert("O campo " + formulario.email.name + " deve ser preenchido!");

formulario.email.focus();

return false;

}

//validar email

if (formulario.email.value == ""){

alert("O campo " + formulario.email.name + " deve ser preenchido!");

formulario.email.focus();

return false;

}

//validar email(verificao de endereco eletronico)

parte1 = formulario.email.value.indexOf("@");

parte2 = formulario.email.value.indexOf(".");

parte3 = formulario.email.value.length;

if (!(parte1 >= 3 && parte2 >= 6 && parte3 >= 9)) {

alert("O campo " + formulario.email.name + " deve ser conter um endereco eletronico!");

formulario.email.focus();

return false;

}

//validar telefone

if (formulario.telefone.value == ""){

alert("O campo " + formulario.telefone.name + " deve ser preenchido!");

formulario.telefone.focus();

return false;

}

//validar telefone(verificacao se contem apenas numeros)

if (isNaN(formulario.telefone.value)){

alert("O campo " + formulario.telefone.name + " deve conter apenas numeros!");

formulario.telefone.focus();

return false;

}

if (formulario.fax.value == ""){

alert("O campo " + formulario.fax.name + " deve ser preenchido!");

formulario.fax.focus();

return false;

}

if (isNaN(formulario.fax.value)){

alert("O campo " + formulario.fax.name + " deve conter apenas numeros!");

formulario.fax.focus();

return false;

}

if (formulario.razao.value == ""){

alert("O campo " + formulario.razao.name + " deve ser preenchido!");

formulario.razao.focus();

return false;

}

if (formulario.entrega.value == ""){

alert("O campo " + formulario.entrega.name + " deve ser preenchido!");

formulario.entrega.focus();

return false;

}

//formulario.submit();

}

</script>

</head>

<body>

<p><b>Credenciados:</b>

<%

'Str= "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("dataBase") & "bd.mdb"

'set conexao= Server.CreateObject("adodb.connection")

'conexao.open Str

sql ="SELECT * FROM credenciados ORDER BY nome;"

Set RS_Credenciados = conexao.execute(sql)

Do While Not RS_Credenciados.Eof

'response.Write(sql)

'response.End()

%>

<%

RS_Credenciados.MoveNext

Loop

RS_Credenciados.Close

Set RS_Credenciados = Nothing

%>

</select>

</form>

<% end sub %>

<% sub executar_alteracao %>

<%

Str= "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("dataBase") & "bd.mdb"

set conexao= Server.CreateObject("adodb.connection")

conexao.open Str

sql="UPDATE credenciados set"

sql=sql & "nome='"&Request.Form("nome") & "',"

sql=sql & "endereco='"&Request.Form("endereco") & "',"

sql=sql & "complemento='"&request.Form("complemento") & "',"

sql=sql & "site='"&request.Form("site") & "',"

sql=sql & "cod_atividade='"&request.Form("cod_atividade") & "',"

sql=sql & "telefone='"&request.Form("telefone") & "',"

sql=sql & "email='"&request.form("email") & "',"

sql=sql & "fax='"&request.form("fax") & "',"

sql=sql & "bairro='"&request.Form("bairro") & "',"

sql=sql & "razao='"&request.Form("razao") & "',"

sql=sql & "where cod_empresa="&request.Form("cod_empresa")

set rs_altera=conexao.execute(sql)

%>

<strong><font face="Arial" size="3">O contato escolhido foi alterado com sucesso</font></strong></br>

<br><a href="alterar.asp">Deseja alterar mais algum contato?</a>

<% end sub %>

<% sub alterar()

Str= "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("dataBase") & "bd.mdb"

set conexao= Server.CreateObject("adodb.connection")

conexao.open Str

sql= "select * from credenciados where cod_empresa=" & request.Form("cod_empresa")

set rs_cod=conexao.execute(sql)

%>

<label>

<b><span class="style1">Formulário de Alteração </span></b><br />

</p>

</label>

<p>

<label><b>Endereço:</b>

</label>

</p>

<p><b>Bairro:</b>

</p>

<p><b>Complemento:</b>

</p>

<b>Email:</b>

</p>

<p><b>Cidade:</b>

<%

Str= "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("dataBase") & "bd.mdb"

set conexao= Server.CreateObject("adodb.connection")

conexao.open Str

sql ="SELECT * FROM credenciados_cidades ORDER BY cidade;"

Set RS_Cidades = conexao.execute(sql)

Do While Not RS_Cidades.Eof

' Response.write("<option value=""" & RS_Cidades("cod_cidade") & """>" & RS_Cidades("cidade") & "</option>")

%>

<%

RS_Cidades.MoveNext

Loop

RS_Cidades.Close

Set RS_Cidades = Nothing

%>

</select>

</p>

<p><b>Telefone:</b>

</p>

<p><b>Razão:</b>

</p>

<p> <b>Entrega:</b>

</p>

</div>

</form>

<% end sub %>

<%

if request.QueryString("fazer")= "alterar" then

alterar

else if request.QueryString("fazer")="executar" then

executar_alteracao

else

formulario_principal

end if

%>

Salgado · Outubro 29, 2007

Indique qual é a linha do erro em seu código.

Matheus Brito · Outubro 29, 2007

aew Salgado linha 193 segue:

linha 193

ASP

set rs_cod=conexao.execute(sql)

ABS

Matheus Brito · Outubro 29, 2007

aew pessoal solucionei o outro erro, só que agora apareceu outro.... hehehe

só que parece que esse vai ser mais fácil de resolver entao me ajudem plis.

ASP

<html>

<head>

<title>Alteração</title>

<!--

form.insere {

background-color: #FFFFCC;

width:380px;

height:465px;

font: 11px Verdana, sans-serif;

color: #003399;

border: 0px solid #0000FF;

padding-left:10px;}

.campos {

background-color:#B0E0E6;

font: 11px georgia, sans-serif;

color:#0033CC;

margin-right: 20px;

}

.botao {

background-color: #CC3300;

font: 10px Arial, sans-serif;

color: #CCFFFF;

}

.style1 {font-size: larger}

-->

</style>

function validaForm(formulario){

//validar nome

if (formulario.nome.value == ""){

alert("O campo " + formulario.nome.name + " deve ser preenchido!");

formulario.nome.focus();

return false;

}

// valida endereco

if (formulario.endereco.value == ""){

alert("O campo " + formulario.endereco.name + " deve ser preenchido!");

formulario.endereco.focus();

return false;

}

if (formulario.bairro.value == ""){

alert("O campo " + formulario.bairro.name + " deve ser preenchido!");

formulario.bairro.focus();

return false;

}

if (formulario.complemento.value == ""){

alert("O campo " + formulario.complemento.name + " deve ser preenchido!");

formulario.complemento.focus();

return false;

}

if (formulario.email.value == ""){

alert("O campo " + formulario.email.name + " deve ser preenchido!");

formulario.email.focus();

return false;

}

//validar email

if (formulario.email.value == ""){

alert("O campo " + formulario.email.name + " deve ser preenchido!");

formulario.email.focus();

return false;

}

//validar email(verificao de endereco eletronico)

parte1 = formulario.email.value.indexOf("@");

parte2 = formulario.email.value.indexOf(".");

parte3 = formulario.email.value.length;

if (!(parte1 >= 3 && parte2 >= 6 && parte3 >= 9)) {

alert("O campo " + formulario.email.name + " deve ser conter um endereco eletronico!");

formulario.email.focus();

return false;

}

//validar telefone

if (formulario.telefone.value == ""){

alert("O campo " + formulario.telefone.name + " deve ser preenchido!");

formulario.telefone.focus();

return false;

}

//validar telefone(verificacao se contem apenas numeros)

if (isNaN(formulario.telefone.value)){

alert("O campo " + formulario.telefone.name + " deve conter apenas numeros!");

formulario.telefone.focus();

return false;

}

if (formulario.fax.value == ""){

alert("O campo " + formulario.fax.name + " deve ser preenchido!");

formulario.fax.focus();

return false;

}

if (isNaN(formulario.fax.value)){

alert("O campo " + formulario.fax.name + " deve conter apenas numeros!");

formulario.fax.focus();

return false;

}

if (formulario.razao.value == ""){

alert("O campo " + formulario.razao.name + " deve ser preenchido!");

formulario.razao.focus();

return false;

}

if (formulario.entrega.value == ""){

alert("O campo " + formulario.entrega.name + " deve ser preenchido!");

formulario.entrega.focus();

return false;

}

//formulario.submit();

}

</script>

</head>

<body>

<% sub formulario_principal()

Str= "DRIVER={Microsoft Access Driver (*.mdb)} ;DBQ=" & server.MapPath("dataBase") & "bd.mdb"

set conexao= Server.CreateObject("adodb.connection")

conexao.open Str

%>

<p><b>Credenciados:</b>

<%

sql ="SELECT * FROM credenciados ORDER BY nome;"

Set RS_Credenciados = conexao.execute(sql)

Do While Not RS_Credenciados.Eof

'response.Write(sql)

'response.End()

%>

<%

RS_Credenciados.MoveNext

Loop

RS_Credenciados.Close

Set RS_Credenciados = Nothing

%>

</select>

</form>

<% end sub %>

<% sub executar_alteracao %>

<%

Str= "DRIVER={Microsoft Access Driver (*.mdb)} ;DBQ=" & server.MapPath("dataBase") & "bd.mdb"

set conexao= Server.CreateObject("adodb.connection")

conexao.open Str

sql="UPDATE credenciados set"

sql=sql & "nome='"&Request.Form("nome") & "',"

sql=sql & "endereco='"&Request.Form("endereco") & "',"

sql=sql & "complemento='"&request.Form("complemento") & "',"

sql=sql & "site='"&request.Form("site") & "',"

sql=sql & "cod_atividade='"&request.Form("cod_atividade") & "',"

sql=sql & "telefone='"&request.Form("telefone") & "',"

sql=sql & "email='"&request.form("email") & "',"

sql=sql & "fax='"&request.form("fax") & "',"

sql=sql & "bairro='"&request.Form("bairro") & "',"

sql=sql & "razao='"&request.Form("razao") & "',"

sql=sql & "where cod_empresa="&request.Form("cod_empresa")

set rs_altera=conexao.execute(sql)

rs_altera=nothing

%>

<strong><font face="Arial" size="3">O contato escolhido foi alterado com sucesso.</font></strong></br>

<br><a href="alterar.asp">Deseja alterar mais algum contato?</a>

<% end sub %>

<% sub alterar()

Str= "DRIVER={Microsoft Access Driver (*.mdb)} ;DBQ=" & server.MapPath("dataBase") & "bd.mdb"

set conexao= Server.CreateObject("adodb.connection")

conexao.open Str

sql= "select * from credenciados where cod_empresa=" & request.Form("cod_empresa")

set rs_cod=conexao.execute(sql)

'response.Write(sql)

'response.end()

%>

<label>

<b><span class="style1">Formulário de Alteração </span></b><br />

</p>

</label>

<p>

<label><b>Endereço:</b>

</label>

</p>

<p><b>Bairro:</b>

</p>

<p><b>Complemento:</b>

</p>

<b>Email:</b>

</p>

<p><b>Cidade:</b>

<%

Str= "DRIVER={Microsoft Access Driver (*.mdb)} ;DBQ=" & server.MapPath("dataBase") & "bd.mdb"

set conexao= Server.CreateObject("adodb.connection")

conexao.open Str

sql ="SELECT * FROM credenciados_cidades ORDER BY cidade;"

Set RS_Cidades = conexao.execute(sql)

Do While Not RS_Cidades.Eof

' Response.write("<option value=""" & RS_Cidades("cod_cidade") & """>" & RS_Cidades("cidade") & "</option>")

%>

<%

RS_Cidades.MoveNext

Loop

RS_Cidades.Close

Set RS_Cidades = Nothing

%>

</select>

</p>

<p><b>Telefone:</b>

</p>

<p><b>Razão:</b>

</p>

<p> <b>Entrega:</b>

</p>

</div>

</form>

<% end sub %>

<%

if request.QueryString("fazer")= "alterar" then

alterar

else if request.QueryString("fazer")="executar" then

executar_alteracao

else

formulario_principal

end if

%>

</body>

</html>

o erro eh esse agora:

Microsoft OLE DB Provider for ODBC Drivers erro '80040e14'

[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na instrução UPDATE.

/matheus/alterar.asp, line 179

linha 179

ASP

set rs_altera=conexao.execute(sql)

Ajuda aew pessoal.

abs a todos

Arquivado

Erro: nao sei o que é?

Recommended Posts

Matheus Brito 12

Compartilhar este post

Link para o post

Compartilhar em outros sites

Maux 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Matheus Brito 12

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

Matheus Brito 12

Compartilhar este post

Link para o post

Compartilhar em outros sites

Maux 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Matheus Brito 12

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

Matheus Brito 12

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

Matheus Brito 12

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

Matheus Brito 12

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

Matheus Brito 12

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Matheus Brito 12

Compartilhar este post

Link para o post

Compartilhar em outros sites

Matheus Brito 12

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real