paradox a excelden veri aktarma?

[sga]

merhaba,
paradox7 de oluşturduğum tabloma excelde bulunan verilerimi aktarmak istiyorum nasıl yapabilirim?

[XeoN]

yaw sen ne kadar cok soru soruyon.
delphiturk'e yazdıgın soruya cevap verdim m_yaprakci olarak.
ordan alıp burada da dağıtırsan diğer arkadaslar da fdaydalansınlar.

saygılarımla

muhammedyaprakci@gmail.com

---

[XeoN]

--- ALINTIDIR ---

Kod: Tümünü seç

< uses comobj; > eklenmelidir !!!!


procedure TFrmVeriAktar.Button1Click(Sender: TObject);
var i,j:integer;
begin

if application.MessageBox('Veri aktarımı başlayacaktır',PChar(application.Title),mb_yesno)=idno then exit;
Ilerleme.Progress:=0;

// Excel'in kurulu olup olmadığı kontrol ediliyor
try
   XLApp := GetActiveOleObject('Excel.Application');
   except
     try
       XLApp := CreateOleObject('Excel.Application');
     except
       ShowMessage('Excel kurulu değil');
       Exit;
     end;
end;
XLApp.Workbooks.Open('c:\Deneme.xls');
XLApp.Visible := False;

// Hane Kayıtları Aktarımı
sayfa:=XLApp.workbooks[1].worksheets[1]; //Deneme.xls deki 1.sayfayı sayfa değişkenine aktar

for i:=1 to 50 do  // Excel tablosundaki 1.satırdan 50.satıra kadar oku
begin              // burada döngüyü while döngüsü ile Sayfa.cells[i,1].text değerini kontrol ettirerek yapabilirsiniz de
   dm.Hane.Insert;
   dm.HaneVaTno.Text:=Muhkod.Text+'-'+Sayfa.cells[i,1].text;
   dm.HaneHaneNo.Text:=Muhkod.Text+'-'+Sayfa.cells[i,2].text;
   dm.HaneForm5No.Text:=Sayfa.cells[i,3].text;
   dm.HaneMahKod.Text:=Sayfa.cells[i,4].text;
   dm.HaneMahalle.Text:=Sayfa.cells[i,5].text;
   dm.HaneCadde.Text:=Sayfa.cells[i,6].text;
   dm.HaneSokak.Text:=Sayfa.cells[i,7].text;
   dm.HaneAptSit.Text:=Sayfa.cells[i,8].text;
   dm.HaneKapiNo.Text:=Sayfa.cells[i,9].text;
   dm.HaneKat.Text:=Sayfa.cells[i,10].text;
   dm.HaneDaire.Text:=Sayfa.cells[i,11].text;
   dm.HaneTelefon.Text:=Sayfa.cells[i,12].text;
   dm.HaneKSahKir.Text:=Sayfa.cells[i,13].text;
   dm.HaneYakTur.Text:=Sayfa.cells[i,14].text;
   dm.HaneKonuTuru.Text:=Sayfa.cells[i,15].text;
   dm.HaneFkDer.Text:=Sayfa.cells[i,16].text;
   dm.HaneOncAdr.Text:=Sayfa.cells[i,17].text;
   dm.HaneGelTar.Text:=Sayfa.cells[i,18].text;
   if Sayfa.cells[i,19].text='DOĞRU' then
   dm.HaneNakGitti.value:=True;
   if Sayfa.cells[i,19].text='YANLIŞ' then
   dm.HaneNakGitti.value:=false;

   dm.HaneNakTar.Text:=Sayfa.cells[i,20].text;
   dm.HaneNakMuhKod.Text:=Sayfa.cells[i,21].text;
   dm.HaneNakMuh.Text:=Sayfa.cells[i,22].text;
   dm.HaneNakIl.Text:=Sayfa.cells[i,23].text;
   dm.HaneNakIlce.Text:=Sayfa.cells[i,24].text;
   dm.HaneNakMah.Text:=Sayfa.cells[i,25].text;
   dm.HaneNakCad.Text:=Sayfa.cells[i,26].text;
   dm.HaneNakSk.Text:=Sayfa.cells[i,27].text;
   dm.HaneNakAptSit.Text:=Sayfa.cells[i,28].text;
   dm.HaneNakKapiNo.Text:=Sayfa.cells[i,29].text;
   dm.HaneNakKat.Text:=Sayfa.cells[i,30].text;
   dm.HaneNakDaire.Text:=Sayfa.cells[i,31].text;
   dm.HaneSonIsl.Text:=Sayfa.cells[i,32].text;
   dm.HaneSonIslZam.Text:=Sayfa.cells[i,33].text;
   dm.Hane.Post;
end;
end;

[sga]

bazen cevap veren olmuyor bende acil olduğu zaman birkaç yerde soruyorum ikisi içinde teşekkürler