PC Toledo

Pessoal,

Como se define um tempo limite para o Execute de um command (ADODB.Command)

Nunca usei isso.
Mas se não me engano é na conexão.

Olá!

      // Prepare the stored procedure
       With Object oCmd := win_OleCreateObject("ADODB.Command")
          :CommandText := "spMyStoredProcedure"
          :CommandType := adCmdStoredProc
          :CommandTimeout = 120  // default = 30 seconds
          :parameters:append( :createParameter( 'cMarca',     adVarChar, adParamInput,  1, 'V' ) )
          :parameters:append( :createParameter( 'dtCotacao',  adDate,    adParamInput, 10, '2021-04-01' ) )
          :parameters:append( :createParameter( 'cHrCotacao', adVarChar, adParamInput,  5, '00:00' ) )
          :parameters:append( :createParameter( 'nIntervalo', adInteger, adParamInput,  4, 400 ) )
          :ActiveConnection := oCn
       End With

      // Execute the stored procedure. This returns a recordset. 
      oRs := oCmd:Execute()
      oCmd := NIL

Tô pensando aqui uma coisa:

Não seria mais interessante alterar de procedure pra function?
Igual naquelas rotinas de extenso.
Ou a finalidade de procedure é diferente de function?

Ao invés disso tudo, seria

Código: Selecionar todos

cnMySQL:Execute(  "function(" + param1 + ", " + Param2 + ", " + Param3 + ")" )

Estou testando o FOR UPDATE colocando o controle de transação

Inicia a transação BeginTrans

Faz select com for update
...
Grava com update

Finaliza com CommitTrans
ou
RollBackTrans em caso de erro

Quando faz o execute e se aquele registro está com lock, o execute demora muito na resposta, no meu caso estou usando MariaDB

asimoes escreveu:Quando faz o execute e se aquele registro está com lock, o execute demora muito na resposta

Provavelmente fica aguardando até que seja desbloqueado.

Fiz um teste no MariaDB e deu certo.

Código: Selecionar todos

CREATE PROCEDURE ze_test( DtInicial DATE, dtFinal DATE )
BEGIN
SELECT * FROM jpfinan WHERE fidatemi BETWEEN dtinicial AND dtfinal;
END

Código: Selecionar todos

CALL ze_test( '2021-01-01', '2021-06-01' )

Falta testar no MySQL 5.6
Assim fica padrão pra qualquer coisa, inclusive SQLMIX.

Ainda não uso STORED PROCEDURE, mas quando usar vou preferir assim.

Só NÃO deu certo algo assim

Código: Selecionar todos

SELECT * FROM 
( 
CALL ze_test( '2021-01-01', '2021-06-01' )
) as b

E consultando o fonte "create" no HeidiSQL, aparece assim:

Código: Selecionar todos

CREATE DEFINER=`jpatecnologia`@`%` PROCEDURE `ze_test`(
	IN `DtInicial` DATE,
	IN `dtFinal` DATE
)
LANGUAGE SQL
NOT DETERMINISTIC
CONTAINS SQL
SQL SECURITY DEFINER
COMMENT ''
BEGIN
SELECT * FROM jpfinan WHERE fidatemi BETWEEN dtinicial AND dtfinal;
END

Por default, quem criou é quem pode usar, então fica vinculado ao usuário.
Dependendo do caso, só o administrador vai conseguir cadastrar uma procedure/function pra uso geral.
Isso pode complicar, conforme o caso...

Esqueci de dizer:

Código: Selecionar todos

      // Prepare the stored procedure
       With Object oCmd := win_OleCreateObject("ADODB.Command")
          :CommandText := "spMyStoredProcedure"
          :CommandType := adCmdStoredProc
          :CommandTimeout = 120  // default = 30 seconds
          :parameters:append( :createParameter( 'cMarca',     adVarChar, adParamInput,  1, 'V' ) )
          :parameters:append( :createParameter( 'dtCotacao',  adDate,    adParamInput, 10, '2021-04-01' ) )
          :parameters:append( :createParameter( 'cHrCotacao', adVarChar, adParamInput,  5, '00:00' ) )
          :parameters:append( :createParameter( 'nIntervalo', adInteger, adParamInput,  4, 400 ) )
          :ActiveConnection := oCn
       End With

      // Execute the stored procedure. This returns a recordset. 
      oRs := oCmd:Execute()
      oCmd := NIL

Se entendi direito, tudo acima pode ser substituído por:

Código: Selecionar todos

cSQL := "call spMyStoredProcedure( 'V', '2021-04-01', '00:00', 400 )"
oRs := oCn:Execute( cSQL )

Funciona também no MySQL 5.6
Falta o teste prático, porque nunca se sabe se o HeidiSQL faz alguma modificação nisso, como por exemplo a necessidade do DELIMITER que não faz parte do comando.

Faltou dizer:

A conexão também tem essa configuração de timeout.
Não sei o que acontece ao definir diferente nesse outro ADODB.Command, já que faz uso da conexão.

Descobri,

FOR UPDATE NOWAIT

O NOWAIT, resposta imediata.

A tradução de NO WAIT é sem espera.
Ou atualiza pulando os bloqueados, ou apenas envia o comando sem esperar resposta.
Nos dois casos, acho que a atualização vai ser incompleta.

Olá!

Vai pegar a última versão estável do registro. Se este registro estiver sendo atualização por outro processo, vai pegar sem as atualizações deste processo.
Using skip locked and nowait to handle hot rows