[sqlwin] =?iso-8859-1?Q?Problemas_de_Concorr=EAncia?=

Wed, 05 Feb 2003 11:52:20 -0800 


Ol� lista,

Tenho uma aplica��o feita em Centura vers�o 1.1.0 e o banco de dados SQLBASE
7.0.0, configurado para 5 conex�es. Preciso controlar a concorr�ncia ao
acessar a tabela "Ocorr�ncias" cuja chave prim�ria � composta pelos campos:
NumeroOcorrencia ( integer ) e Tipo ( char(1) ).
Os comandos para salvar as ocorr�ncias s�o:

Call SqlConnect( hSqlAux2 )

Call SqlSetIsolationLevel( hSqlAux2, 'RL' )

Call SqlPrepareAndExecute( hSqlAux2, 'Update Tab_nro_ocorrencia  set
numeroocorrencia = numeroocorrencia Where Tipo = :sTipo' )

Call SqlPrepareAndExecute( hSqlAux2, 'Select numeroocorrencia into
:dfNroOcorrencia from Tab_nro_ocorrencia Where Tipo = :sTipo' )

Call SqlFetchNext( hSqlAux2, nFetch )

Call SqlPrepareAndExecute( hSqlAux2, 'Update Tab_nro_ocorrencia  set
numeroocorrencia = numeroocorrencia + 2 Where Tipo = :sTipo' )

Call SqlCommit( hSqlAux2 )

Call SqlSetIsolationLevel( hSqlAux2, 'RR' )

Call SqlDisconnect( hSqlAux2 )

Call SqlPrepareAndExecute( hSqlAux,
        'Insert Into Ocorrencias ( NumeroOcorrencia, DtOcorrencia, Tipo,
LocalOcorrencia, TipoPessoa, Documento, NomeTitular, Motivo, DtNasc, Mae,
Pai, Identidade,                                Endereco, Numero,
Complemento, Bairro, CEP, Cidade, UF,  Historico, Telefone ) Values 
        ( :dfNroOcorrencia, :dtAtual, :sTipo, :dfLocalOcorrencia,
:sTipoPessoa, :dfCgcCpf, :dfTitular, :sMotivo, :dfDtNasc, :dfMae, :dfPai,
:dfIdentidade, :dfEndereco,     :dfNumero, :dfComplemento, :dfBairro,
:dfCEP, :dfCidade, :dfUF, :mlHistorico, :dfTelefone )' )

Call SqlCommit( hSqlAux )



Fiz v�rias tentativas para evitar erros de integridade referencial por�m, o
sistema est� travando.
Se algu�m puder ajudar agrade�o muito,

Lina M�rcia S. M. Buiate
Dep. de Tecnologia da Informa��o - CDL
Fone: (34) 3239-3553
E-mail: [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>
www.cdludi.com.br <http://www.cdludi.com.br>









=============================================Lista de Centura SQLWindows
Administrador : [EMAIL PROTECTED]
[ http://www.centuraexplorer.com ]
Para sair desta lista mande mensagem para:
[EMAIL PROTECTED] sem nada no Subject e
com o comando a seguir no corpo da msg:
"unsubscribe sqlwin" (sem as aspas)
=============================================

Responder a