excel deki veriyi paradox tabloya kaydetmek

[uzunefe]

selamünaleyküm arkadaşlar
Mesela excelde ADI, SOYADI, FİRMA ADI gibi alanlar olsun ve buralarda kayıtlar bulunsun.biz delphide excele nasıl bağlanıp buradaki verileri paradox veya sql server tablomuza aktarabiliriz.
Şimdiden teşekkürler.

[serkan]

Bunun için 3.parti import bileşenleri kullanabileceğin gibi ado ile direk excel dosyasınada bağlanabilisin;
form üzerine bir adet adotable1 koyup object inspectorden connectionString özelliğine :
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\a.xls;Extended Properties=Excel 9.0;Persist Security Info=False

yazıp.tabloyu aktif ederseniz c:\a.xls dosyasıyla bağlantı kurabilirsiniz.bende office 2007 olduğundan çalışmadı ama office 2000 de çalıştığını biliyorum...kolay gelsin..

[yetnot]

merhaba arkadaşım eğer excelde belli hucrelerden veri alacaksan aşağıda bununla ilgili dokuman bulabilirsin..Eger kelime avı yaptıracaksan vereceğim fonksiyon yerine arama kodunu kullanarak yapabilirsin...Şimdi hucreden veriyi okumak için gerekli olan fonksiyonu veriyorum

//hucreden bılgı okumak ıcın*****************
Function ExcelGetCellValue(Excel : Variant; RowNum, ColNum: Integer): ShortString;
Begin
Result := '';
Try
Result := Excel.Cells[RowNum, ColNum].Value;
Except
Result := '';
End;
End;


şimdide nasıl bu fonksiyonu kullarak hucrelerden aldıgım veriyi paradox veri tabanıma ait tablolara kayıt eklerim onun kodunu veriyorum dikkatlice kodlari incelemeni tavsiye ediyorum!!!


if FindFirst('C:\MART\*.xls',faAnyFile,bulanan)<>0 then //dosyaları lıstelemek ıcın sadece xls
begin end else
begin
repeat

excel:=CreateOleObject('excel.application'); //excel acılıyor
dosya:= 'C:\MART\'+bulanan.name;//dosyanın ıcındekı butun excel dosyaları tek tek okunuyor
book:=Excel.Workbooks.Open(dosya);//excelin acacagı dosya
sheet:=book.worksheets[1];//sayfa
//ExcelGetCellValue(); bu yukarda verdiğim fonksiyon idi
raporno:=ExcelGetCellValue(excel,1,12); //rapor no
mahhalle:=ExcelGetCellValue(excel,12,8);//mahalle
**********************burası**********
Table1.Insert;
Table1RAPARNO.Value:=raporno;//tabloya eklenıyor işini bu kod gorebılır
Table1MAHALLESI.Value:=mahhalle;//aynı sekılde

Table1.Post;
Table1.Refresh;
Table1.Next;

ARKADASIM UMARIM ISINI GORUR EGER ARAMA YAPARAK VERI ALMAK ISTIYORSAN KODLARIN ARASINDA BULUNAN '******BURASI****' YERİNE EKLEME YAPABILIRSIN...FORUMDA ARATIRSAN BU KODUDA BULABILIRSIN..FORUMDA YONETICI ARKADASLARA TESEKKUR EDELIM BU FORUM SAYFASI ICIN...BEN BUNU ALISKANLIK HALINE GETIRMEYE CALISIYORUM TESEKKURLER ARKADASLAR..KOLAY GELSIN