4D v12.1
Joins
- Manual de SQL
-
- Tutorial
-
- Introducción
- Recibir el resultado de una petición SQL en una variable
- Utilizar la cláusula WHERE
- Recibir el resultado de una petición SQL en un array
- Utilizar la función CAST
- Utilizar la cláusula ORDER BY
- Utilizar la cláusula GROUP BY
- Utilizar funciones estadísticas
- Utilizar la cláusula HAVING
- Llamar los métodos 4D desde el código SQL
- Joins
- Utilizar Alias
- Subconsultas
- Seguimiento y depuración del código SQL
- Data Definition Language
- Conexiones externas
- Conexión al motor SQL 4D vía el driver ODBC
4D v12.1
Joins
Joins
Ahora queremos conocer la ciudad de nacimiento de cada actor. La lista de actores está en la tabla ACTORS y la lista de ciudades en la tabla CITIES. Para ejecutar esta búsqueda necesitamos unir las dos tablas: ACTORS y CITIES.
- El código 4D inicial sería:
ARRAY LONGINT(aSoldTickets;0)
ARRAY TEXT(aTitles;0)
ARRAY TEXT(aDirectors;0)
C_LONGINT($i;$vInd)
$vInd:=0
ALL RECORDS([ACTORS])
For($i;1;Records in selection([ACTORS]))
$vInd:=$vInd+1
INSERT IN ARRAY(aTitles;$vInd;1)
aTitles{$vInd}:=[ACTORS]FirstName+" "+[ACTORS]LastName
RELATE ONE([ACTORS]Birth_City_ID)
INSERT IN ARRAY(aDirectors;$vInd;1)
aDirectors{$vInd}:=[CITIES]City_Name
NEXT RECORD([ACTORS])
End for
` Inicializa el resto de las columnas del list box para mostrar la información
ARRAY INTEGER(aMovieYear;Size of array(aTitles))
ARRAY TEXT(aMedias;Size of array(aTitles))
ARRAY LONGINT(aSoldTickets;Size of array(aTitles))
ARRAY LONGINT(aNrActors;Size of array(aTitles))
MULTI SORT ARRAY(aDirectors;>;aTitles;>;aMovieYear;aMedias;aSoldTickets;aNrActors)
- Utilizando código SQL:
ARRAY TEXT(aTitles;0)
ARRAY TEXT(aDirectors;0)
Begin SQL
SELECT CONCAT(CONCAT(ACTORS.FirstName,' '),ACTORS.LastName), CITIES.City_Name
FROM ACTORS, CITIES
WHERE ACTORS.Birth_City_ID=CITIES.City_ID
ORDER BY 2,1
INTO :aTitles, :aDirectors;
End SQL
` Inicializa el resto de las columnas del list box para mostrar la información
ARRAY INTEGER(aMovieYear;Size of array(aTitles))
ARRAY TEXT(aMedias;Size of array(aTitles))
ARRAY LONGINT(aSoldTickets;Size of array(aTitles))
ARRAY LONGINT(aNrActors;Size of array(aTitles))
- Utilizando comandos SQL genéricos:
ARRAY TEXT(aTitles;0)
ARRAY TEXT(aDirectors;0)
C_TEXT($tQueryTxt)
SQL LOGIN(SQL_INTERNAL;"";"")
$tQueryTxt:=""
$tQueryTxt:=$tQueryTxt+"SELECT CONCAT(CONCAT(ACTORS.FirstName,' '),ACTORS.LastName), CITIES.City_Name"
$tQueryTxt:=$tQueryTxt+" FROM ACTORS, CITIES"
$tQueryTxt:=$tQueryTxt+" WHERE ACTORS.Birth_City_ID=CITIES.City_ID"
$tQueryTxt:=$tQueryTxt+" ORDER BY 2,1"
SQL EXECUTE($tQueryTxt;aTitles;aDirectors)
SQL LOAD RECORD(SQL All Records)
SQL LOGOUT
` Inicializa el resto de las columnas del list box para mostrar la información
ARRAY INTEGER(aMovieYear;Size of array(aTitles))
ARRAY TEXT(aMedias;Size of array(aTitles))
ARRAY LONGINT(aSoldTickets;Size of array(aTitles))
ARRAY LONGINT(aNrActors;Size of array(aTitles))
- Utilizando el comando QUERY BY SQL, no podemos efectuar la búsqueda anterior porque no es posible pasar más de una tabla como primer parámetro.
- Utilizando el comando SQL EXECUTE IMMEDIATE:
ARRAY TEXT(aTitles;0)
ARRAY TEXT(aDirectors;0)
C_TEXT($tQueryTxt)
$tQueryTxt:=""
$tQueryTxt:=$tQueryTxt+"SELECT CONCAT(CONCAT(ACTORS.FirstName,' '),ACTORS.LastName), CITIES.City_Name"
$tQueryTxt:=$tQueryTxt+" FROM ACTORS, CITIES"
$tQueryTxt:=$tQueryTxt+" WHERE ACTORS.Birth_City_ID=CITIES.City_ID"
$tQueryTxt:=$tQueryTxt+" ORDER BY 2,1"
$tQueryTxt:=$tQueryTxt+" INTO :aTitles, :aDirectors"
Begin SQL
EXECUTE IMMEDIATE :$tQueryTxt;
End SQL
` Inicializa el resto de las columnas del list box para mostrar la información
ARRAY INTEGER(aMovieYear;Size of array(aTitles))
ARRAY TEXT(aMedias;Size of array(aTitles))
ARRAY LONGINT(aSoldTickets;Size of array(aTitles))
ARRAY LONGINT(aNrActors;Size of array(aTitles))
Para probar todos los ejemplos anteriores, lance la base "4D SQL Code Samples" y vaya a la ventana principal. A continuación, puede elegir el modo de búsqueda y presionar el botón Joins.
PROPIEDADES
Producto: 4D
Tema: Tutorial
© 4D SAS 1985 - 2012. Todos los derechos reservados.