Delphi XE'de XLS işlemleri

[mcuyan]

MErhaba arkadaşlar. Linkedin'de gezinirken Embarcadero'nun bir wbinar'ına denk geldim.

Sizlerle paylaşmak istedim. Xls dosyalarını tabloda yada bir nesnede gösterimini yapmanın FireDac ile yöntemini basitce anlatmış. Hiç denememiştim bu yöntemi ama baya bi runtable'a benziyor.

bu linkden erişebilirsiniz.. XLS Connector:

Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.

[hi_selamlar]

(20-06-2019, Saat: 19:37)mcuyan Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.MErhaba arkadaşlar. Linkedin'de gezinirken Embarcadero'nun bir wbinar'ına denk geldim.

Sizlerle paylaşmak istedim. Xls dosyalarını tabloda yada bir nesnede gösterimini yapmanın FireDac ile yöntemini basitce anlatmış. Hiç denememiştim bu yöntemi ama baya bi runtable'a benziyor.

bu linkden erişebilirsiniz.. XLS Connector:

Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.

Merhabalar,

Paylaşımınız için teşekkürler.

Bu harici bir bileşen ile FireDAC arasında yapılan bir bağlantı.
Bağlantıyı FireDAC direkt olarak yapamıyor malesef.

Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.

Firmanın buna benzer geliştirdiği bir çok bileşende mevcut.
İş süreçlerini basitleştirecek gerçekten çok iyi bileşenler mevcut.

Kolay gelsin.

[sabanakman]

İyi günler. İşin aslı bir kaç haftadır bunu paylaşmak niyetim vardı ama örnek için vakit ayıramamıştım. Tıpkı ADO'nun JET sürücülerini kullandığı gibi FireDAC kütüphanesi de aynı modüller üzerinden excel dosyalarına bağlantı yapabilmektedir. Basit bir .dfm örneği ise ... 

object FDPhysMSAccessDriverLink: TFDPhysMSAccessDriverLink
  DriverID = 'fdrvExcel'
  Database = 'c:\yol\dosya.xls'
  ODBCDriver = 'Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)'
  ODBCAdvanced = 'HDR=No;IMEX=1'
end

object fdExcel: TFDConnection
 Params.Strings = (
   'DriverID=fdrvExcel')
 LoginPrompt = False
end

object fdqExcel: TFDQuery
 Connection = fdExcel
 SQL.Strings = (
   'SELECT * FROM [$Tablo1]')
end

... şeklinde olacaktır.

Not: Office 2003 (.xls) dosyaları için gerekmese de office 2007 (.xlsx) dosyaları için güncel sürücüler..:
x86 ..: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
x64 ..: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.

Ek bilgi olarak ise ADOConnection ile JET sürücüleri üzerinden bağlantı yapabilmek için aşağıdaki "ConnectionString"ler kullanılabilir.
jet 4.0 ile xls  => Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\yol\dosya.xls;Extended Properties="Excel 8.0;HDR=Yes;IMEX=1"
ace 12 ile xls  => Provider=Microsoft.ACE.OLEDB.12.0;Data Source=c:\yol\dosya.xls;Extended Properties="Excel 8.0;HDR=YES;IMEX=1"
ace 12 ile xlsx =>Provider=Microsoft.ACE.OLEDB.12.0;Data Source=c:\yol\dosya.xlsx;Extended Properties="Excel 12.0 Xml;HDR=YES;IMEX=1"


İyi çalışmalar.