Bom dia Pessoal
Gostaria de uma ajuda meio chata pode ser ate algo meio banal
tenho uma pagina em asp conecta.asp da seguinte maneira
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%
<%
dim conn
sub AbreConn()
'Criamos o objeto de conexão
Set conn = Server.CreateObject("ADODB.Connection")
'Abrimos uma conexão com o banco de dados
conn.Open("DRIVER={MySQL ODBC 5.1 Driver};SERVER=server;PORT=3306;DATABASE=database;USER=usuario;PASSWORD=senha;OPTION=3;")
conexao_executa=true
end sub
sub fechaConn()
'Fechamos a conexão com o banco de dados
conn.Close()
'Destruímos o objeto
Set conn = Nothing
end sub
'sub que executara comandos no bd
sub executaconexao(comando)
if conexao_executa=false then
call AbreConn
end if
response.Write(comando)
set objComando = Server.CreateObject("ADODB.Command")
objComando.ActiveConnection = conn
objComando.CommandText = comando
objComando.Execute()
Set objComando = Nothing
call fechaConn
end sub
%>
consigo executar os select's
normalmente não da nenhum erro no entanto na hora de fazer um update ou insert ele não executa nada, e tambem não da erro algum.
se alguem tiver alguma dica do que pode ser feito agradeço.
segue abaixo como chamo o update na pagina envia.asp
sql ="update produtos set descricao_produto = '" & server.HTMLEncode(request.form("elm1")) & "' where codigo_chave = 32"
executaconexao(sql)
codigo_chave = 32
, pois se não houver, não irá dar erro. Teste esse update, sem a cláusulawhere
. Assim você irá confirmar que os registros estão sim sendo atualizados.