Ir para conteúdo

POWERED BY:

Arquivado

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

ademarfreitas

update

Por , em ASP Clássico

Recommended Posts

ademarfreitas    0

ademarfreitas
Postado

escrevi esse sistema de update mas está dando problema e naum consegui saber onde está o problma ai vai o código:

 

<TITLE>Atualizar2.asp</TITLE>

</HEAD>

<BODY>

 

<%

 

codigo=Request.querystring("codigo")

almox= Request.Form("almox")

 

 

Set objConn = Server.CreateObject("ADODB.Connection")

varConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("base\desknet.mdb") & ";Persist Security Info=False;Jet OLEDB:Database Password="

objConn.Open varConn

 

SQL = "UPDATE almoxarifados SET almox_nome= '"&almox&"' WHERE almox_codigo='"&codigo&"'"

Set objConn = Conn.Execute(SQL)

 

%>

 

<h1><div align="center">Registro Atualizado</div></h1>

<div align="center"><a href="lectura.asp">Visualizar o conteudo da base</a></div>

 

<%

'Fechamos o sistema de conexao

Conn.Close

%>

 

</BODY>

</HTML> [code=auto:0]

 

e tah dando o seguinte erro:

 

 

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

Objeto necessário: ''

/idesknet/alterar2.asp, line 16

 

 

 

 

se alguem puder me ajudar, agradeço.

Compartilhar este post

Link para o post
Compartilhar em outros sites

joacatito    0

joacatito
Postado

O campo codigo é texto?

Se não (tipo numérico), retira os apóstrofos (aspas simples).

 

SQL = "UPDATE almoxarifados SET almox_nome= '"&almox&"' WHERE almox_codigo="&codigo
Caso ainda não seja isso, verifica se todas as variáveis realmente estão com algum valor... (não vazias)

 

E substitui:

 

Set objConn = Conn.Execute(SQL)

 

Por:

 

Conn.Execute(SQL)

Compartilhar este post

Link para o post
Compartilhar em outros sites

ademarfreitas    0

ademarfreitas
Postado

o campo eh tipo numérico e modifiquei jah, verifiquei tambem e as variáveis estão com valores mas naum deu certo, mas vou continuar tentando, se puder me dar uma ajuda novamente, agradeço joacatito.

Compartilhar este post

Link para o post
Compartilhar em outros sites

joacatito    0

joacatito
Postado

você substituiu:Set objConn = Conn.Execute(SQL)Por:Conn.Execute(SQL)Erro de objeto...Só se utiliza RecordSet para consulta... Inclusão, alteração e deleção, é direto pela conexão.Seleção:'comando = "SELECT campos FROM tabela"Set recordset = conexao.execute(comando)Inclusão, alteração e deleçãoconexao.execute(comando)

Compartilhar este post

Link para o post
Compartilhar em outros sites

ademarfreitas    0

ademarfreitas
Postado

Consegui resolver fiz o seguinte:

 

<TITLE>Atualizar2.asp</TITLE>

</HEAD>

<BODY>

 

<%

 

Dim objconn, ObjRs

 

codigo=Request.Form("codigo")

almox= Request.Form("almox")

 

 

Set objConn = Server.CreateObject("ADODB.Connection")

varConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("base\desknet.mdb") & ";Persist Security Info=False;Jet OLEDB:Database Password="

objConn.Open varConn

 

SQL = "UPDATE almoxarifados SET almox_nome= '"&almox&"' WHERE almox_codigo ="&codigo

 

Set ObjRs = objConn.Execute(SQL)

 

objConn.Close

 

Set objRs = Nothing

Set objConn = Nothing

%>

 

<h1><div align="center">Registro Atualizado</div></h1>

<div align="center"><a href="lectura.asp">Visualizar o conteudo da base</a></div>

 

 

 

</BODY>

</HTML>

 

e agora deu certo vlew aew

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

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

  Aceito