Transaction cannot have multiple recordsets with this cursor type

[SerraVentura 0]

Galera é o seguinte...

esta dando o seguinte erro no meu script...

 

Transaction cannot have multiple recordsets with this cursor type. Change the cursor type, commit the transaction, or close one of the recordsets.

erro Completo:

 

Error Type:Microsoft OLE DB Provider for ODBC Drivers (0x80004005)Transaction cannot have multiple recordsets with this cursor type. Change the cursor type, commit the transaction, or close one of the recordsets./Classes/db/UsuarioSite_Class.asp, line 247

eu estou trabalhando com BeginTrans...

 

oConn.BeginTrans

A linha do erro é no momento do execute

 

Call ValidaPropriedades()		Set oCmd = CreateObject("ADODB.Command")		With oCmd			Set .ActiveConnection = oConn			.CommandType = adCmdStoredProc			.CommandText = "USUARIO_SITE_SALVAR"			.Parameters.Append .CreateParameter("ID_USUARIO_SITE", ADINTEGER, adParamInput,, m_IdUsuarioSite)			.Parameters.Append .CreateParameter("CD_LOGIN", ADVARCHAR, adParamInput,20, m_CdLogin)			.Parameters.Append .CreateParameter("CD_SENHA", ADVARCHAR, adParamInput,20, m_CdSenha)			.Parameters.Append .CreateParameter("NM_USUARIO", ADVARCHAR, adParamInput,150, m_NmUsuario)			.Parameters.Append .CreateParameter("DS_EMAIL", ADVARCHAR, adParamInput,100, m_DsEmail)			.Parameters.Append .CreateParameter("FG_SEXO", ADCHAR, adParamInput,1, m_FgSexo)			.Parameters.Append .CreateParameter("NM_SEXUALIDADE", ADVARCHAR, adParamInput,20, m_NmSexualidade)			.Parameters.Append .CreateParameter("ID_TIPO_ESTADO_CIVIL", ADINTEGER, adParamInput,, m_IdTipoEstadoCivil)			.Parameters.Append .CreateParameter("ID_TIPO_IDIOMA_NATIVO", ADINTEGER, adParamInput,, m_IdTipoIdiomaNativo)			.Parameters.Append .CreateParameter("ID_TIPO_USUARIO", ADINTEGER, adParamInput,, m_IdTipoUsuario)			.Parameters.Append .CreateParameter("NU_IP_CADASTRO", ADVARCHAR, adParamInput,20, m_NuIpCadastro)			.Parameters.Append .CreateParameter("DH_CADASTRO", adDBTimeStamp, adParamInput,, m_DhCadastro)			.Parameters.Append .CreateParameter("DT_NASCIMENTO", adDBTimeStamp, adParamInput,, m_DtNascimento)			.Parameters.Append .CreateParameter("NU_DDI_TELEFONE", ADVARCHAR, adParamInput,3, m_NuDdiTelefone)			.Parameters.Append .CreateParameter("NU_DDD_TELEFONE", ADVARCHAR, adParamInput,3, m_NuDddTelefone)			.Parameters.Append .CreateParameter("NU_TELEFONE", ADVARCHAR, adParamInput,50, m_NuTelefone)			Set oRs = .Execute		End With

se alguém puder ajudar...vlw!

[Otata 4]

eae beleza...cara não tem result set em transaçoes...tem que ter CommitTrans pra finalizar ou rollback se der algum paufa assim oConn.execute(query) depois você tem que dar oConn.CommitTrans pra finalizar a transação entendeu ...qualquer duvida posta ai e eu te mando um exemplo...bl flw

[SerraVentura 0]

Cheguei a mesma conclusão tbm..rssem o committrans é impossível ter um recordset...porém eu queria fazer assim...begintrans tabela1.salvar()if erro then rollbackend iftabela2.salvar()if erro then rollbackend iftabela3.salvar()if not erro then committransend ifeu só queria dar o commit depois q tivesse td ok mesmo... porém preciso recuperar um valor de um recordset na minha primeira tabela... tipo será q existe alguma solução ?eu não entendi muito bem sua idéia... tem como tu dar um exemplo, por alto...?vlw

[Otata 4]

hummm...quem devolve se deu tudo certo ou não é o objeto de coneão que você fez...

 

vamos lah um ex vou tentar te ajudar..

 

'cria lah a conexao do seu jeito...set conn = new Conexao				conn.Conn() 'inicia a transaçãoconn.BeginTrans 'cria sua query com a instrução sql....=)query = "insert into tabela value..."'executeon error resume nextconn.execute(query)'verifica se deu tudo certoif err.Number = 0 then'da o commitconn.commitTranselse'da o rollbackconn.RollbackTrans

beleza ve se você entendeu qualquer dúvida posta ai.....mas posta mesmo..rs..flw http://forum.imasters.com.br/public/style_emoticons/default/natal_smile.gif