Juliana

[ju-rezende]

Olá pessoal mais uma vez vou sociliatar a ajuda de vocês .

estou tentando usar a o comando Update mas dá o seguinte erro:

Microsoft JET Database Engine (0x80040E14)

Erro de sintaxe (operador faltando) na expressão de consulta '* clientes where codigo='.

/tulio/Altera.asp, line 17

meu codigo é:

sql="select * clientes where codigo=" & vcod

set rs= server.CreateObject("ADODB.Recordset")

db = server.MapPath ("tulio\treino.mdb")

set con = server.CreateObject("adodb.connection")

con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("..\tulio\treino.mdb") &";Persist Security Info=False"

Linha 17 rs.Open sql,con,3,3

Poderia me ajudar?

[.Andreia.]

o correto é

sql="select * FROM clientes where codigo=" & vcod

[ju-rezende]

Valeu mesmo !!!

Desculpe a falta deatenao!!!!

[kuroi]

você tb não precisa por seu nome no titulo do tópico...

[ju-rezende]

O pior q já fiz isso mas continua dando erro

Tipo de erro:

Microsoft JET Database Engine (0x80040E14)

Erro de sintaxe (operador faltando) na expressão de consulta 'codigo='.

/tulio/Altera.asp, line 16

me codigo

vcod=request.querystring("Codigo")

sql="select * FROM clientes where codigo=" & vcod

set rs= server.CreateObject("ADODB.Recordset")

db = server.MapPath ("tulio\treino.mdb")

set con = server.CreateObject("adodb.connection")

con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("..\tulio\treino.mdb") &";Persist Security Info=False"

Linha 16 rs.Open sql,con,3,3

[kuroi]

pode ser duas coisa:

1. request.querystring("Codigo") esta trazendo um valor em branco, veja como esta no formulario q c passa esse valor.

2. codigo é um campo texto. nesse caso faca:

sql="select * FROM clientes where codigo='" & vcod  & "'"

[ju-rezende]

O campo é autonumeraçao,

Olhe de onde ele pega o codigo

<%

if session("logado")="" then 'segurança

response.redirect "pagina.asp"

end if

%>

<%dim rs

dim sql

sql="select * from Clientes"

db = server.MapPath ("tulio\treino.mdb")

set con = server.CreateObject("adodb.connection")

set rs = server.CreateObject ("adodb.recordset")

con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("..\tulio\treino.mdb") &";Persist Security Info=False"

rs.Open sql,con,3,3 %>

<table align=center border=1>

<tr>

<td > Código</td>

<td > Alterar</td>

</tr>

<tr>

<%do while not rs.eof%>

<td > <%=rs("Codigo")%> </td>

<td ><a href="Altera.asp?cod=<%=rs("Codigo")%>Alterartd</a></td>

</tr>

<%rs.movenext

loop%>

</table>

[kuroi]

o certo não seria:

vcod=request.querystring("cod")

[ju-rezende]

Valeu mesmo deu certinho, mas se não fosse encomodar Porque você usou request.querystring cod, não entendi muito.

[ju-rezende]

Vixi deu outro erro no udate

erro;

Erro de compilação do Microsoft VBScript (0x800A03F3)

'=' esperado

/tulio/ConfAlteracao.asp, line 12, column 20

set con.execute(sql)

'"

meu codigo

vnome=request.form("Nome")

sql= "Update clientes set empresa='" & vnome &"'"

Call AbreConexao()

set con.execute(sql)

call FechaConexao%>

<h2>Dados Alterados com sucesso!!!</h2>

Nome: <%=vnome%>

<a href="Listados.asp">Voltar</a>

porque?

[kuroi]

veja essa linha do seu codigo:

<td ><a href="Altera.asp?cod=<%=rs("Codigo")%>Alterartd</a></td>

veja q voce pos cod=<%=rs("Codigo")%>. ou seja, você esta passando o valor rs("Codigo") para o parametro "cod" ao abrir o Altera.asp. dai q vem o request.querystring("cod"). seria assim, como você tinha feito antes:

vcod=request.querystring("Codigo")

se fosse assim:

<td ><a href="Altera.asp?Codigo=<%=rs("Codigo")%>Alterartd</a></td>

quando ao novo erro. em vez de:

set con.execute(sql)

tente:

con.execute(sql)

[ju-rezende]

Se eu colocar o con.execute(sql)

Da o seguinte erro:

Erro de tempo de execução do Microsoft VBScript (0x800A000D)

Tipos incompatíveis: 'AbreConexao'

/tulio/ConfAlteracao.asp, line 11

A linha 11 é onde esta o Call AbreConexao()

[kuroi]

mostra o codigo da sub AbreConexao.

[ju-rezende]

Tirei o call e coloquei direto a conexao, deu certo, só que ele alterou todos os campos da tabela e era para alterar somente um campo.....

O q pode ter acontecido?

[ju-rezende]

Olha o codigo com o call

<% dim vnome

dim sql

vnome=request.form("Nome")

sql= "Update clientes set empresa='" & vnome &"'"

Call AbreConexao()

con.execute(sql)

call FechaConexao%>

<h2>Dados Alterados com sucesso!!!</h2>

Nome: <%=vnome%><br>

<a href="Listados.asp"><font color="#2165A5">Voltar</font></a><font color="#2165A5">

</font>

O que siguinifica o set do update?

[kuroi]

você deve selecionar os registros q atendam a uma condicao na hora de atualizar. exemplo:

sql= "Update clientes set empresa='" & vnome &"' Where Codigo = 1"

ou

sql= "Update clientes set empresa='" & vnome &"' Where Codigo = " & vcod

[ju-rezende]

Sera que no update posso usar um where?

[ju-rezende]

Ah vou tentar para ver se da certo, mas poderia me dizer o que siguinifica o set do update?

[kuroi]

no dicionario estava:

vt+vi (imp. e p. p. set) 1 pôr, colocar, localizar, assentar, adaptar, plantar. 2 ajustar, endireitar. 3 regular, acertar. 4 fixar, estabelecer, definir. 5 determinar. 6 apontar, designar. 7 marcar, fixar. 8 dar (exemplo). 9 ligar, firmar. 10 ficar firme, solidificar, coalhar, endurecer, pegar (cimento). 11 montar, engastar. 12 adornar, ornamentar. 13 descer, pôr-se (sol), baixar (maré). 14 chocar, pôr para chocar, colocar ovos para chocar. 15 amarrar (cão de caça). 16 cair, assentar-se, adaptar-se, servir (vestido). 17 tender, dirigir-se, rumar, soprar, vir de (vento). 18 começar a mover-se, pôr-se em movimento. 19 aplicar-se. 20 formar fruta. 21 adaptar. 22 pôr em música, compor. 23 Tipogr. compor. 24 afiar, assentar (corte de faca, etc.). 25 reduzir (osso deslocado). 26 meter velas.

acho q os q mais se enquadram são: estabelecer, definir, determinar, designar.

já q você usar o set pra definir os valores q serao passado pra cada campo.

[ju-rezende]

Valeu mesmo, você sabe porque quando uso o call ele da aquele erro?

[kuroi]

não sei dizer não.

não sei qual a utilidade do call, já q da pra chamar a sub sem ele.

[ju-rezende]

Como chamar um sub sem usar o call?

[kuroi]

sim.

[ju-rezende]

Como fazer isso?

[ju-rezende]

Vixi to com mais uma duvida,

Fiz uma pequena segurança na pagina de login, para o usuario, não conseguir passar para as outra paginas sem se logar

Veja o codigo da pagina Login

<%Option Explicit%>

<%dim db

dim con

DIM nome, senha, strSQL, rsSQL

db = server.MapPath ("tulio\treino.mdb")

set con = server.CreateObject("adodb.connection")

con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("..\tulio\treino.mdb") &";Persist Security Info=False"

'so mostra a pagina após ser totalmente carregada

response.buffer="true"

'declara as variaveis

'pega os valores e salva em variáveis

nome = Replace(Request.Form("login"), "'", "''")

senha = Replace(Request.Form("senha"), "'", "''")

'faz a busca no bd

strSQL = "SELECT * FROM login WHERE login ='" & nome & "' and senha ='" & senha & "' "

Set rsSQL=con.Execute(strSQL)

'salva o nome do usuário em uma session

Session("usuario") = nome

'verifica se esta liberado o acesso

IF not rsSQL.EOF THEN

session("logado")="sim"

Response.Redirect "listados.asp"

else

Response.Redirect "permissao.asp"

end if

%>

Quando o usuario se logar certinho entra na pagina listados.asp corretamente.

mas para ele não conseguir entra na pagina listados.asp sem passar antes pelo login, inseri no começo da pagina listados o seguinte codigo

if session("logado")="" then 'segurança

response.redirect("pagina.asp")

end if

Mas ele não ta funcionado direito, porque quando tento entrar direto na url ele entra na pagina listados.asp normalmente..

Poderia me ajudar... com isso....

[.Andreia.]

Se está aparecendo código na sua tela, é porque está fora das tags de asp <% %>

Outra coisa, se você faz verificação na primeira pagina e não quer que na segunda a pessoa tenha acesso sem que tenha passado pela primeira.... nesta segunda você tb tem q colocar uma condição verificando se o usuario autenticou.