AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Übergabe von QRY-Tabelleninhalte an andere Connection
Thema durchsuchen
Ansicht
Themen-Optionen

Übergabe von QRY-Tabelleninhalte an andere Connection

Ein Thema von Gege · begonnen am 6. Jul 2023 · letzter Beitrag vom 7. Jul 2023
Antwort Antwort
Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.553 Beiträge
 
Delphi 12 Athens
 
#1

AW: Übergabe von QRY-Tabelleninhalte an andere Connection

  Alt 6. Jul 2023, 16:00
Wenn du selber kopierst, dann auch besser .Value anstatt .AsString verwenden.

* einmal für alles was kein String ist,
also nicht unnötig in einen String und wieder zurück umwandeln (z.B. Floats können verändert/ungenau werden)

* und auch bezüglich NULL, weil der String das NULL ja als '' raus giebt.




Oder alternativ innerhalb der Datenbanken bleiben, also die eine DB macht von sich auch ein SELECT in der anderen DB und holt sich die Daten rüber, bzw. schreibt dort drüben.
https://learn.microsoft.com/de-de/sq...l-server-ver16

Sowas können viele DBMS und nennen es z.B. DataLink oder Foreign Data Wrappers (FDW).
Das kann einmal eine Gruppe von Funktionen sein, so man ein SQL-Statement in der anderen DB ausführt
oder es können "virtuelle" Tabellen bei dir sein, die aber intern alles (Insert/Update/Select) zu einer Tabelle in der anderen DB weiterleiten.
Ein Therapeut entspricht 1024 Gigapeut.

Geändert von himitsu ( 6. Jul 2023 um 16:26 Uhr)
  Mit Zitat antworten Zitat
Papaschlumpf73

Registriert seit: 3. Mär 2014
Ort: Berlin
464 Beiträge
 
Delphi 12 Athens
 
#2

AW: Übergabe von QRY-Tabelleninhalte an andere Connection

  Alt 6. Jul 2023, 16:15
Sieh dir mal TDataSetProvider an.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.553 Beiträge
 
Delphi 12 Athens
 
#3

AW: Übergabe von QRY-Tabelleninhalte an andere Connection

  Alt 6. Jul 2023, 16:23
Dein XE7 ist schon ein bissl alt.

Aber grundsätzlich könnte man alternativ, z.B. im FireDAC, mit LocalDataSets arbeiten.
Da kannst'e in der einen QueryKomponente auf Inhalte von anderen Queries/DataSets oder sonstwelchen Komponenten (TEdit, TCheckBox, ...) zugreifen.
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.757 Beiträge
 
Delphi 12 Athens
 
#4

AW: Übergabe von QRY-Tabelleninhalte an andere Connection

  Alt 6. Jul 2023, 16:32
Vielleicht habe ich die Frage nicht richtig verstanden, aber es geht doch um die Felder eines Datensatzes und nicht um die gesamte Datenmenge, oder?
(emphasize be me)
gibt es eigentlich eine elegantere Variante als
jedes Feld einzeln mit
qryvoncon1.fieldbyname('name').assstring:= qryvoncon2.fieldbyname('name').assstring ... etc
für alle Felder
wenn alle Felder bei beiden Tabellen gleich sind zu übergeben ?
Weiterhin geht es hier offenbar um ADO und da bietet sich eine grundlegende TDataSet Funktionalität eher an als Komponenten eines anderen DAC. Bei entsprechender Flexibilität kann man das natürlich in Betracht ziehen, wenn denn die Batch-Funktionalität benötigt wird.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Delphi.Narium

Registriert seit: 27. Nov 2017
2.598 Beiträge
 
Delphi 7 Professional
 
#5

AW: Übergabe von QRY-Tabelleninhalte an andere Connection

  Alt 6. Jul 2023, 17:48
Es ist noch komplizierter:

Zwei Datenbanken zwischen denen über unterschiedliche Datenbankkomponenten kommuniziert werden soll.

Quelle = FireDac -> Ziel = ADO

bzw. umgekehrt.

Viele der BatchMovekomponenten wollen aber als Quelle und als Ziel 'nen Nachfolger von TDataSet, so dass die unterschiedlichen Datenbankkommponenten eigentlich "wurscht" sein sollten.

Nachfolger von TDataSet rein, Nachfolger von TDataSet raus.

Aus oben verlinktem StackOverFlow geklauter Source etwas angepasst und als ungetestete Idee gedacht:
Delphi-Quellcode:
var
  DataWriter: TFDBatchMoveDataSetWriter;
  DataReader: TFDBatchMoveDataSetReader;
  BatchMove: TFDBatchMove;
begin
  DataReader := nil;
  DataWriter := nil;
  BatchMove := nil;
  try
    DataReader := TFDBatchMoveDataSetReader.Create(nil);
    DataWriter := TFDBatchMoveDataSetWriter.Create(nil);
    BatchMove := TFDBatchMove.Create(nil);
    DataReader.DataSet := qryvoncon1;
    DataReader.Rewind := true;
    DataWriter.DataSet := qryvoncon2;
    BatchMove.Options := [poClearDestNoUndo, poCreateDest];
    BatchMove.Reader := DataReader;
    BatchMove.Writer := DataWriter;
    BatchMove.Execute;
  finally
    DataReader.Free;
    DataWriter.Free;
    BatchMove.Free;
  end;
end;
Lektüre dazu: FireDAC.TFDBatchMove Sample
  Mit Zitat antworten Zitat
Gege

Registriert seit: 5. Sep 2011
Ort: Sachsen / Naunhof
77 Beiträge
 
Delphi XE7 Architect
 
#6

AW: Übergabe von QRY-Tabelleninhalte an andere Connection

  Alt 6. Jul 2023, 18:40
oha .. jep da kann ich dann mal genauer probieren ..

in der Tat xE7 ist nicht das neuste aber da ich in der 11 er Version dummerweise nicht die Datenbank geschichte drinnen hab muss ich die XE7 nehmen

@Uwe Raabe es geht um den Inhalt .. Tabellen existieren bereits in Beiden Datenbanken .. nur die Daten müssen rüber


Danke Euch für die Anregungen .

Gerd
Gerd
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.553 Beiträge
 
Delphi 12 Athens
 
#7

AW: Übergabe von QRY-Tabelleninhalte an andere Connection

  Alt 6. Jul 2023, 18:45
Klar, kann man selber z.B.
Delphi-Quellcode:
for var i := 0 to QryVonCon1.Fields.Count - 1 do
  QryVonCon1.Fields[i].Value := QryVonCon2.Fields[i].Value;
aber man sollte nie davon ausgehn, dass die Reihenfolge übereinstimmt.

also dann so
Delphi-Quellcode:
for var i := 0 to QryVonCon1.Fields.Count - 1 do
  QryVonCon1.Fields[i].Value := QryVonCon2.FieldByName(QryVonCon1.Fields[i].FieldName).Value;
bzw.
Delphi-Quellcode:
for var i := 0 to QryVonCon1.Fields.Count - 1 do
  if Assigned(QryVonCon2.FindField(QryVonCon1.Fields[i].FieldName)) then
    QryVonCon1.Fields[i].Value := QryVonCon2.FieldByName(QryVonCon1.Fields[i].FieldName).Value;

Wobei das bereits genannte Delphi-Referenz durchsuchenTDataSet.CopyFields es im Prinzip ähnlich macht.
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat
Gege

Registriert seit: 5. Sep 2011
Ort: Sachsen / Naunhof
77 Beiträge
 
Delphi XE7 Architect
 
#8

AW: Übergabe von QRY-Tabelleninhalte an andere Connection

  Alt 6. Jul 2023, 22:09
Danke himitsu

den Ansatz finde ich jetzt gar nicht so übel ..
Ich denke mich zu erinnern das ich irgendwo so in der Art schon mal etwas gemacht habe ..

schon die 1. Variante geht in meinen Fall, da ich nur Meine Programme von einer Datenbank (ART) auf eine andere umstellen muss
und die Tabellen wirklich identich sind.
Während einer Umstellungsphase müssen eben beide Tabellen befüllt werden für Reports.
(Software Umstelung steht an und .. naja bereits bewehrte Statistiken sollen dann weiter laufen mit neuer Umgebung )
Schade fand Informix auch nicht schlecht .. aber man kann bei Fussionen nicht alles haben ^^

Gerd
Gerd

Geändert von Gege ( 7. Jul 2023 um 16:30 Uhr)
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:40 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz