Jump to content


Kibe_Ghost

Member Since 28/03/2004
Offline Last Active 23/01/2012, 00:52
-----

Topics I've Started

Erro Ao Editar (atualizar) Dados... Update

27/09/2006, 17:17

Olá a todos..

Primeiro quero agradeçer o apoio q este forum sempre me deu e dizer q ja realizei diversas buscas no mesmo para tentar resolver meu problema mas não consegui, veja:

Estou migrando meu site para de Access para MySQL e tenho algumas dificuldades pois há algumas coisas a serem alteradas.

Se alguem tiver alguma tabela comparativa destas mudanças, me mande ou publique aki.


Informações: ASP + MYSQL


MEU CODIGO
Dim rsFestas
Dim sAcao

Set rsFestas = Server.CreateObject("ADODB.RecordSet")

sAcao = CStr(Request.Form("Acao"))
cod = Request.form("Codigo")

If (sAcao = "Cadastrar") Then
  SQL = "SELECT * FROM Festa"
Else
  SQL = "SELECT * FROM Festa WHERE CodFesta = " & cod
End If

rsFestas.Open SQL, Conexao, 2, 2

If (sAcao = "Cadastrar") Then
  If (Not rsFestas.EOF) Then
	rsFestas.MoveLast
	rsFestas.AddNew
  Else
	rsFestas.AddNew
  End If
End If
	
If (sAcao <> "Excluir") Then
  rsFestas("Festa") = Trim(Request.Form("Festa"))
  rsFestas("Data") = Request.Form("Data")
  rsFestas("Foto") = Trim(Request.Form("Foto"))
  rsFestas("Fotografo") = Trim(Request.Form("Fotografo"))
  rsFestas("Descricao") = Trim(Request.Form("Descricao"))  
  rsFestas("Ativo") = Trim(Request.Form("Ativo"))
  
  rsFestas.Update
Else
  rsFestas.Delete
End If
%>

ERRO
Microsoft OLE DB Provider for ODBC Drivers error '80004005' 

Query-based update failed because the row to update could not be found. 

/home/admin/controle_festas.asp, line 39 



LINHA 39
  rsFestas.Update



Agradeço....

IPB Skin By Virteq