Consultar si registro existe en campo de 2 tablas

[jonydread]

como puedo unir campos para ver si existe campo en ambas tablas
por ejemplo en campo1 de tabla1 y campo1 de tabla2 si existe el numero 1
he probado de este modo pero no logro funcionamiento
zquery1.SQL.Text := 'SELECT * FROM AsignadosA inner JOIN AsignadosB on AsignadosA.Sierras=AsignadosB.Sierras where AsignadosA.Sierras = ' + QuotedStr(dblookupcombobox1.KeyValue);
zquery1.Open;

saludos!

[ecfisa]

como puedo unir campos para ver si existe campo en ambas tablas
por ejemplo en campo1 de tabla1 y campo1 de tabla2 si existe el numero 1

Hola jonydread.

Si queres verificar si existen ocurrencias en ambas tablas podes hacer:

function Tu_Form.ExisteEnAmbas(aValue: Variant): Boolean;
begin
with ZQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('SELECT COUNT(*) AS EXISTE');
SQL.Add('FROM ASIGNADOSA T1, ASIGNADOSB T2');
SQL.Add('WHERE T1.SIERRAS = :PVALUE AND T2.SIERRAS = :PVALUE');
ParamByName('PVALUE').Value := aValue;
Open;
Result := FieldByName('EXISTE').AsInteger > 0;
Close
end
end;

(* Ejemplo de llamada *)
...
begin
if ExisteEnAmbas(Valor_Condicion) then
ShowMessage('Existe')
else
ShowMessage('No existe');
...


Si deseas mostrar todas las ocurrencias que coincidan con un valor:

...
with ZQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('SELECT * '); // (O la selección de campos que desees)
SQL.Add('FROM ASIGNADOSA T1, ASIGNADOSB T2');
SQL.Add('WHERE T1.SIERRAS = :PVALUE AND T2.SIERRAS = :PVALUE');
ParamByName('PVALUE').Value := Valor_Condicion;
Open;
end
...


Saludos :)

[jonydread]

muchisimas gracias el codigo o no me funciono o no supe ocuparlo pero me has dado una exelente referencia o idea y lo hice así y por separado
function TMainform.ExisteEnAmbas(aValue: Variant): Boolean;
begin
with ZQuery1 do
begin
Close;
SQL.Clear;
sql.Text := 'SELECT * FROM AsignadosA where Sierras = :PVALUE';
ParamByName('PVALUE').Value := aValue;
Open;
if not zquery1.IsEmpty then
begin
MessageDlg('Sierra ya se encuentra asignada', mtWarning, [mbOk],0);
Abort;
end else
with ZQuery1 do
begin
Close;
SQL.Clear;
sql.Text := 'SELECT * FROM AsignadosB where Sierras = :PVALUE';
ParamByName('PVALUE').Value := aValue;
Open;
if not zquery1.IsEmpty then
begin
MessageDlg('Sierra ya se encuentra asignada', mtWarning, [mbOk],0);
Abort;
end;
end;
end;
end;

y el llamado
ExisteEnAmbas(dblookupcombobox1.KeyValue);

Gracias y saludos!!!
v:-)v#:-)#