Hallo,
ich möchte bestimmte Felder einer Tabelle aus Firebird und einer aus MS-
Access miteinander vergleichen und die Unterschiede in einem DBGrid anzeigen. Mein Versuch (mit Fehlermeldung) ist folgender:
Delphi-Quellcode:
procedure TFrameRohwareLager.JvHTButton1Click(Sender: TObject);
begin
DatamoduleAuftrag.DataModule2.ADOConnection1.Connected := false;
DatamoduleAuftrag.DataModule2.ADOConnection1.connectionstring := 'Provider=Microsoft.Jet.OLEDB.4.0; Data Source = ' + ADOConnection + ' ; Persist Security Info=False;';
DatamoduleAuftrag.DataModule2.ADOConnection1.Connected := true;
DatamoduleAuftrag.DataModule2.ADOQueryEtikbase.Active := False;
DatamoduleAuftrag.DataModule2.ADOQueryEtikbase.SQL.Clear;
DatamoduleAuftrag.DataModule2.ADOQueryEtikbase.SQL.Add('select Art-Nr, Format, Numerierung from Artikel T2 INNER JOIN [Material-Stamm] on Artikel.[Mat-Nr] = [Material-Stamm].[Mat-Nr] ORDER BY Artikel.[Mat-Nr]');
DatamoduleAuftrag.DataModule2.ADOQueryEtikbase.Open;
DatamoduleRohwareLager.DataModule9.IBDatabaseRohwareBewegung.Connected := true;
DatamoduleRohwareLager.DataModule9.IBDataSetRohwareBestand.Close;
DatamoduleRohwareLager.DataModule9.IBDataSetRohwareBestand.SelectSQL.Clear;
DatamoduleRohwareLager.DataModule9.IBDataSetRohwareBestand.SelectSQL.Add('select ROHWARENR, FORMAT, OBERMATERIAL from ROHWARESTAND T1 on T1.ROHWARENR = T2.[Art-Nr] where T1.FORMAT <> T2.[Format] OR T1.OBERMATERIAL <> T2.[Numerierung] order by ROHWARENR');
DatamoduleRohwareLager.DataModule9.IBDataSetRohwareBestand.Open;
end;
Leider mit einer Fehlermeldung des
SQL-Servers. Könnte mir Jemand helfen?
Danke und Gruß,
Luckner