Mega Code Archive

 

Categories / Delphi / ADO Database

 

Bir tablodaki verinin, başka bir tabloya eklenmesi

Codec By GeNiUS ! genius@turkiye.com Bir tablodaki verinin, başka bir tabloya eklenmesi Aynı yapıdaki iki ayrı toblo muhteviyatının, birleştirilmesi için kullanılabilecek olan bu fonksiyon, <SourceTable> isimli tablodaki verileri, <DestinationTable> isimli tabloya kopyalamaktadır. Bu yöntemle veriler, farklı veri tabanları arasında da taşınabilir. Function AddTables( const SourceDatabaseName, SourceTable, DestDatabaseName, DestinationTable: string): Boolean; Var BMode : TBatchMode; Begin If IsTableKeyed(DestDatabaseName,DestinationTable) Then Begin If IsTableKeyed(SourceDatabaseName,SourceTable) Then Begin BMode := BatAppendUpdate; End Else Begin BMode := BatAppend; End; End Else Begin BMode := BatAppend; End; Result := DBRecordMove(SourceDatabaseName,SourceTable, DestDatabaseName,DestinationTable,BMode); End;