Unir dos tablas sin relación

[GINMARMENOR]

duilioisol me sale todo como dices la tabla perfecto, para este caso utiliza UNION en vez de UNION ALL, miles de gracias.

pero lo único que no consigo introducir los datos en el campo (TIPO) para diferenciar si es de una tabla u otra, ya que lo hago en modo diseño por que tengo que pasar por 'SQl.Txt:=' '':



/*
sql.text:=' SELECT 'PED' as tipo, id, codigo, nombre, cantidad
FROM PEDIDOS
WHERE
codigo = 'A001'
UNION
SELECT 'COM' as tipo, id, codigo, nombre, cantidad
FROM COMPRAS
WHERE
codigo = 'A001' '
*/

He intentado miles de formas pero al usar las comillas no lo puedo hacer, no consigo insertar los datos.

[Casimiro Notevi]

Hay varias formas, lo mejor es usar parámetros.
De todas formas prueba a usar la comilla doble "

[GINMARMENOR]

No tampoco con doble comillas funciona da error

Código Delphi [-]
/*
sql.text:=' SELECT "PED" as tipo, id, codigo, nombre, cantidad
FROM PEDIDOS
WHERE
codigo = 'A001'
UNION
SELECT "COM" as tipo, id, codigo, nombre, cantidad
FROM COMPRAS
WHERE
codigo = 'A001' '
*/

Por internet no encuentro nada que pueda unir dos tablas y además insertar datos fijos en un campo, con esta sintaxis.

[Casimiro Notevi]

Ahí no, en el parámetro:

Código Delphi [-]
codigo = "A001" '

Y por cierto, no olvides usar las etiquetas para código, gracias.

[[duilioisola]]

He intentado miles de formas pero al usar las comillas no lo puedo hacer, no consigo insertar los datos.

¿Cuál es el mensaje de error?

Si es un error de Delphi que te impide compilar y dice alg así como que "la línea no termina" debes seguir haciéndolo como hasta ahora lo hacías (Según tu ejemplo anterior)

Código Delphi [-]
SQL.Text := 'select * from pedidos inner join compras on pedidos.id=Compras.Id where pedidos.id=' + Quotedstr('A001') + ' and Compras.Id=' + Quotedstr('A001');

Para enteder el tema:
1. Los strings en Delphi se determinan entre comillas simpels

Código Delphi [-]
s := 'Hello World';
wrilte(s);

=>Hello World

2. La forma de poner una comilla simple en un string en el codigo es repitiéndola

Código Delphi [-]
s := 'Hello ''World''';
wrilte(s);

=>Hello 'World'

3. Otra forma de hacer lo mismo es mediante la función QuoteStr

Código Delphi [-]
s := 'Hello ' + QuotedStr('World');
wrilte(s);

=>Hello 'World'

Yo suelo hacerlo de la siguiente manera para poder ver código SQL dentro de código Delphi facilmente:

Código Delphi [-]
// Cierro Dataset
// Asigno SQL
// Filtro por parámetro
// Abro Dataset
with DataSet do
begin
   Close;
   SQL.Clear;
   SQL.Add(' SELECT ''PED'' as tipo, id, codigo, nombre, cantidad ');
   SQL.Add(' FROM PEDIDOS ');
   SQL.Add(' WHERE ');
   SQL.Add(' codigo = :CODIGO ');
   SQL.Add(' UNION ');
   SQL.Add(' SELECT ''COM'' as tipo, id, codigo, nombre, cantidad ');
   SQL.Add(' FROM COMPRAS ');
   SQL.Add(' WHERE ');
   SQL.Add(' codigo = :CODIGO ');
   Params.ByName['CODIGO'].AsString := 'A001';
   Open;
   [...]
end;

[Casimiro Notevi]

Es la mejor opción y la más profesional y segura.

Empezado por duilioisola

Código Delphi [-]
SQL.Add(' codigo = :CODIGO ');
Params.ByName['CODIGO'].AsString := 'A001'

La opción de poner dobles comillas también funciona, aunque no me gusta.

[GINMARMENOR]

Ok, funciona perfectamente, gracias por vuestra paciencia.