SQL EXECUTE

4D v16.3

SQL

SQL EXECUTE


SQL EXECUTE ( instrucaoSQL {; objAssoc}{; objAssoc2 ; ... ; objAssocN} )

Parâmetro	Tipo	Descrição
instrucaoSQL	Texto	Comando SQL a executar
objAssoc	Variável, Campo	Recebe resultado (se necessário)

Descrição

O comando SQL EXECUTE é utilizado para executar um comando SQL e associar o resultado a objetos 4D (arrays, variáveis ou campos).

Para que o comando possa ser executado, uma conexão válida precisa ser especificada no processo atual.

O parâmetro instrucaoSQL contem o comando SQL a executar. objAssoc recebe os resultados. As variáveis estão associadas na ordem de sequência da coluna, o que significa que as colunas restantes são ignoradas..

Se os campos 4D são passados como parâmetros em objAssoc, o comando criará registros e os guardará automaticamente. Os campos 4D devem vir da mesma tabela (não é possível passar um campo da tabela 1 e um campo da tabela 2 na mesma chamada). Se forem passados campos de diferentes tabelas, um erro é gerado.

Atenção: Quando passe os campos 4D nos parâmetros objAssoc e execute o comando SELECT, sempre são os dados da fonte 4D remota os que se modificam. Se você quer recuperar dados de uma fonte remota localmente, deve utilizar arrays locais intermediários e chamar ao comando INSERT (ver o exemplo 6).

Se passa arrays 4D nos parâmetros objAssoc, é recomendável declarar antes de chamar o comando com o objetivo de controlar o tipo de dados processados. Os arrays são redimensionados automaticamente quando for necessário.

No caso de uma variável 4D, apenas um registro é recuperado a cada vez. Os outros resultados são ignorados..

Nota: Para maior informação sobre o referenciado das expressões 4D em pesquisas SQL, consulte a seção Introdução aos comandos SQL.

Exemplo 1

Neste exemplo, obteremos a coluna ename da tabela emp da fonte de dados externos. O resultado é armazenado no campo 4D [Empregados]Nome. Os registros 4D são criados automaticamente:

 SQLStmt:="SELECT ename FROM emp"

 SQL EXECUTE(SQLStmt;[Empregados]Nome)

 SQL LOAD RECORD(SQL all records)

Exemplo 2

Para controlar a criação de registros, é possível incluir o código numa transação e confirmá-la unicamente se a operação teste for satisfatória:

 SQL LOGIN("mysql";"root";"")

 SQLStmt:="SELECT campo _alfa FROM ap_Tabela_Testea"

 START TRANSACTION

 SQL EXECUTE(SQLStmt;[Tabela 2]Campo1)

 While(Not(SQL End selection))

    SQL LOAD RECORD

    ... `Escrever o código de validação de dados aqui

 End while

 VALIDATE TRANSACTION `Validação da transação

Exemplo 3

Neste exemplo, queremos obter a coluna ename da tabela emp da fonte de dados externos. O resultado será armazenado em um array Nome. Obtemos os registros de 10 em 10.

 ARRAY STRING(30;Nome;20)

 SQLStmt:="SELECT ename FROM emp"

 SQL EXECUTE(SQLStmt;Nome)

 While(Not(SQL End selection))

    SQL LOAD RECORD(10)

 End while

Exemplo 4

Neste exemplo, queremos obter as colunas ename e job da tabela emp para um ID especifico ID (cláusula WHERE) da fonte de dados externa. O resultado é armazena nas variáveis 4D vNome e vJob. Só se recupera o primeiro registro.

 SQLStmt:="SELECT ename, job FROM emp WHERE id = 3"

 SQL EXECUTE(SQLStmt;vNome;vJob)

 SQL LOAD RECORD

Exemplo 5

Neste exemplo, queremos obter a coluna Campo_Blob da tabela Test na fonte de dados. O resultado é armazenado em uma variável BLOB cujo valor é atualizado cada vez que um registro for carregado.

 C_BLOB(MeuBlob)

 SQL LOGIN

 SQL EXECUTE("SELECT Campo_Blob FROM Test";MeuBlob)

 While(Not(SQL End selection))

  `Buscamos nos resultados

    SQL LOAD RECORD

  `O valor de MeuBlob é atualizado a cada chamada

Exemplo 6

Para recuperar dados localmente de um banco de dados remoto 4D server onde está armazenado. Para fazer isso, deve usar arrays intermediários:

  // Log in ao banco de dados remoto

 SQL LOGIN("IP:192.168.18.15:19812";"user";"password";*)

 If(OK=1)

  // Começando daqui todos os SQL requests serão feitas no banco de dados remoto

    C_TEXT($LastName_value) // 4D variable usada em search statement

    ARRAY TEXT($a_LastName;0) // Armazenamento Temporário dos valores remotos para LastName

    ARRAY TEXT($a_FirstName;0) // Armazenamento temporário dos valores remotos para FirstName

    C_BOOLEAN($UseSQL) //Escolha dos modos para armazenamento local de dados do banco de dados remoto

  // (demo only)

 

    $LastName_value:="Smith" // Initializa o 4D variable

 

  // Associa o 4D $LastName_value variável com o primeiro  "?" em SQL request

    SQL SET PARAMETER($LastName_value;SQL param in)

 

  // Da tabela remota PERSONS, recupera os valores dos campos LastName e  FirstName

  // onde "LastName = Smith" e armazena-as em arrays $a_LastName e $a_FirstName

    SQL EXECUTE("SELECT LastName, FirstName FROM PERSONS WHERE LastName = ?";$a_LastName;$a_FirstName)

    If(Not(SQL End selection)) // Se ao menos um registro for encontrado

 

       SQL LOAD RECORD(SQL all records) // Carrega todos os registros

 

       $UseSQL:=True // Escolhe o modo para integrar os dados (só demo)

 

       If($UseSQL) // Usa SQL requests

          SQL LOGOUT // Log out do banco de dados remoto

          SQL LOGIN(SQL_INTERNAL;"user";"password") // Log in ao banco de dados local

  // A partir daqui todas as requisições  SQL são feitas no banco de dados local 

  // Salva os arrays $a_LastName e $a_FirstName na tabela local PERSONS

          SQL EXECUTE("INSERT INTO PERSONS(LastName, FirstName) VALUES (:$a_LastName, :$a_FirstName);")

 

       Else // Usa 4D commands

          For($i;1;Size of array($a_LastName))

             CREATE RECORD([PERSONS])

             [PERSONS]LastName:=$a_LastName{$i}

             [PERSONS]FirstName:=$a_FirstName{$i}

             SAVE RECORD([PERSONS])

          End for

       End if

    End if

    SQL LOGOUT // Fecha a conexão

 End if

Variáveis e conjuntos do sistema

Se o comando for executado corretamente, a variável sistema OK retorna 1, do contrário retorna 0.

Ver também

SQL LOAD RECORD