Ir para conteúdo

POWERED BY:

Arquivado

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

theoperations

Alteração de Dados em MySQL

Recommended Posts

Alguém saberia me informar qual a melhor forma para atualizar um registro usando mysql e Asp pois ja tentei usar um script que funciona bem com mdb e rola mas com mysql nao e agora estou tentando usar este e esta dando erro , o erro segue abaixo:

 

ADODB.Connection erro '800a0cb3'

 

O objeto ou provedor não é capaz de efetuar a operação solicitada

 

Erro na linha 97 que é correspondente a:

 

cn_expand.BeginTrans

 

Segue abaixo o script que estou usando:

 

 

<%

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

Set cm_expand = Server.CreateObject("ADODB.Command")

cn_expand.ConnectionString = "DSN=bd; UID=bd; PWS=bd;"

cn_expand.Open

Set cm_expand.ActiveConnection = cn_expand

 

cn_expand.BeginTrans

gravacao = "update noticias set "

gravacao = gravacao & "titulo = '" & Request.Form("titulo") & "', "

gravacao = gravacao & "bloco = '" & Request.Form("bloco") & "', "

gravacao = gravacao & "destaque = '" & Request.Form("destaque") & "', "

gravacao = gravacao & "texto = '" & Request.Form("texto") & "', "

gravacao = gravacao & "imagem = '" & Request.Form("imagem") & "', "

gravacao = gravacao & "vinheta = '" & Request.Form("vinheta") & "'"

 

gravacao = gravacao & " where controle = " & Request.Form("controle")

cm_expand.CommandText = gravacao

cm_expand.execute

 

set rs = nothing

cn_expand.CommitTrans

cn_expand.Close

set cn_expand = nothing

%>

 

 

O controle (numerico) é passado para a página normalmente mas não rola...

alguém saberia me dizer onde estou errando ou algum exemplo que funcione com mysql... ?

 

Alan

Compartilhar este post


Link para o post
Compartilhar em outros sites

Um tanto quanto complicado, não?

 

Prefiro usar essa forma:

 

 

Conectando ao banco. String de conexão.

Set connection = Server.CreateObject("ADODB.Connection") SCS = "DRIVER=MySQL ODBC 3.51 Driver;"SCS = SCS & "SERVER=localhost;"SCS = SCS & "PORT=3306;"SCS = SCS & "UID=user;"SCS = SCS & "PASSWORD=pass;"SCS = SCS & "DATABASE=asp"

Funcao pra abrir o banco sempre que preciso.

Sub OpenConnection()   connection.open SCSEnd Sub

 

Usando o UPDATE.

SQL = "UPDATE noticias SET autor='" & autor & "', titulo='" & titulo & "', noticia='" & noticia & "' WHERE codigo=" & codigoOpenConnectionConnection.Execute SQL

 

QUalquer dúvida, é só perguntar.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Valeu por esta força, agora deu certo, estranho é que com aquele script funcionou por um tempo não sei porque parou de funcionar mas o que importa é que agora esta funcionando novamente, agora tenho outra dúvida tenho um pagina de busca que quando uso uma string de conexao mysql da erro 500 ou que a pagina nao pode ser exibida, se eu mudo para string de conexao via access funciona normalmente.Segue abaixo as strings que ja tentei usar'strCon = "driver=MySQL;server=localhost;uid=usuario;pwd=senha;database=db"'strCon = "Driver={mySQL}; Server=localhost; Option=16834; Database=teste; UID=teste; PWD=teste"'strCon = "DSN=teste; DB=teste; UID=teste; PWD=teste"Tentei com esta string que voce me deu tambem mas nao rolou...nao sei onde esta o erro...Alan

Compartilhar este post


Link para o post
Compartilhar em outros sites

O Driver para o MySQL eu tenho instalado sim, não seria aquele acho que myodbc 3.5...? , se não me falhe a memória funciona perfeitamente em casa mas quando tento executar no servidor (internet) da erro, assim que chegar em casa e testar novamente ai lhe dou certeza, mas é quase certeza que é isto, se nao funcionar emcasa tambem, tem alguma outra alternativa ??Alan

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.