Veri kümesinden delphi içinde veri kümesi ekleme

Question

Veritabanında bir erişim veritabanı tablosunda bulunan nexusdb tablosuna veri eklemek istiyorum. Bunun için iki sorgu kullanıyorum. erişim veritabanından belirli bir veri için ve diğeri nexusdb'ye eklemek için bir tane. Bunu bir döngü kullanarak eklemek istemiyorum. Seçilen tüm veri kümelerini doğrudan eklemek için herhangi bir yol var mı?

Answer 1

Seçilen tüm veri kümelerini doğrudan eklemek için herhangi bir yol var mı? İki veritabanları üzerinde olsaydı

, diyelim ki, MS SQL Sunucuları veya MySQL gibi diğer bazı arka uç SQL sunuculara, bunu ancak MS Access ve NexusDB, benim bildiğim hiçbiri arasında olabilir. Ortak olarak göründükleri tek db erişim bağlayıcıları ODBC ve farklı sürücüler arasında heterojen sorguları desteklemeyen afaik'tir (bu yüzden source.database'den destinationerver.database.table select * eklentisini ekleyemezsiniz) .table ")

Sanırım bir döngüde kaldınız. Tek gerçek soru, döngüyü kendiniz mi yoksa kütüphane kodunda saklı olup olmadığıdır.

Aşağıdaki kod, tablolar arasında veri taşımak için FireDAC'ın TFDDataMove bileşenini kullanır. Tabii ki kullanmak için, hedef sunucunun FireDAC veya ODBC'yi desteklemesi gerekir. Uwe Raabe'nin dediği gibi, şimdiki haliyle (Delphi şu anki Seattle versiyonu) FireDAC, NexusDB'yi desteklemiyor ya da tam tersi. Ancak, kendi web sitesine göre, NexusDB için kullanılabilir bir ODBC sürücüsü var. NexusDB yüklü olmamasına rağmen, aşağıdakiler başka bir ODBC sürücüsü ile düzgün çalışıyor, dolayısıyla NexusDB'lerle çalışmalıdır.

procedure TForm1.TestDataMove; 
var 
    Item : TFdMappingItem; 
begin 
    Item := FDDataMove1.Mappings.Add; 
    Item.SourceFieldName := 'ID'; 
    Item.DestinationFieldName := 'ID'; 

    Item := FDDataMove1.Mappings.Add; 
    Item.SourceFieldName := 'Name'; 
    Item.DestinationFieldName := 'Name'; 

    FDDataMove1.Source := FDTable1; 
    FDDataMove1.Destination := FDTable2; 
    FDDataMove1.Options := FDDataMove1.Options - [poOptimiseSrc]; 
    FDDataMove1.Execute; 

    FDConnection2.Connected := False; 
    FDTable2.Open; 
end;