excel e bağlanamıyorum...

[zeynel6363]

iyi günler arkadaşlar.

kullandığım bir programda veritabanına excel de veri aktarmak istiyorum.internette çok araştırdım ama işime yarayacak kod bulamadım.

adoconnection,adoqury,datasource ve dbgrid ekliyorum. programı açtığımda programın içerisinde olan excel deki verileri grid e atacak.

kullanacağım excel dosyasının adı BOLGE_TAKSIMATI.xlsx
bu excel dosyası programın olduğu klasörde var.

acceess de bağlantı çok kolay da excel de biraz zormuş

bu konuda yardımcı olursanız sevinirim.

[mrmarman]

Forumda çok örnek paylaştık, deneyin yapamadığınız yeri yazın yardımcı olalım. Şimdi sorunu kendin bir oku ve söyle neresinden tutalım bunun değil mi? Bizden ne tür bir yardım bekliyorsun?

Forumda nasıl arama yapacağın konusunda yardım istiyorsan excel import kelimeleriyle arayabilirsin.

[zeynel6363]

haklısınız

şöyle diyeyim.aşağıdaki kodu denedim.hata veriyor.sayfa1 bulunamadı diyor.

Var
ExcelDosya : String;
begin
ExcelDosya := C:\TEFTIS_OTOMASYONU\BOLGE_TAKSIMATI.xlsx;
DataSource1.DataSet := AdoQuery1;
DBGrid1.DataSource := DataSource1;

AdoConnection1.LoginPrompt := False;
AdoConnection1.ConnectionString :=
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ ExcelDosya + ';Extended properties=Excel 8.0';
AdoQuery1.Connection := AdoConnection1;
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Add( 'Select * from [Sayfa1$]');
AdoQuery1.Active := True;
end;

[zeynel6363]

arkadaşlar sağ olsun en kolay ve en anlaşılır şekilde yazmışlar.denedim ama olmadı.

[zeynel6363]

EXCEL UZANTISINI YANLIŞ YAZMIŞIM.ONU DÜZELTİNCE ÇALIŞTI
KAÇ SAAT UĞRAŞTIM ÇALIŞMADI.BURAYA YAZIP Bİ DAHA DENEYİNCE ÇALIŞTI.DOKTORU GÖRÜNCE İYİLEŞEN HASTA GİBİ

HOCAM HAZIR KONU AÇILMIŞ İKEN Bİ SORU DAHA SORAYIM.
ExcelDosya := C:\TEFTIS_OTOMASYONU\BOLGE_TAKSIMATI.xlsx;
BU SATIRDA PROGRAM C:\TEFTIS_OTOMASYONU KLASÖRÜNDE İSE ÇALIŞIR.PROGRAM HER YERDE ÇALIŞIYOR.BU EXCEL DE PROGRAMIN OLDĞU KLASÖR İÇİNDE OLUNCA DİREK AÇILACAK KOD NASIL YAZILACAK?
MESELA ACCEESS DE ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(Application.ExeName)+'TEFTIS_VT.mdb YAZINCA PROGRAMIN OLDUĞU KLASÖRDEKİ 'TEFTIS_VT.mdb OLAN ACESSİ OTOMATİK AÇIYOR....BUNU EXCELL DE NASIL YAZACAĞIZ?

[mrmarman]

Aynı şekilde denerseniz cevabı kendiniz bulmuş ve daha kalıcı bilgiye sahip olmuş olacaksınız.

Olmazsa denediğiniz şekli buraya yazın yardımcı olalım.

[Lord_Ares]

Kod: Tümünü seç

AdoQuery1.SQL.Add( 'Select * from [Sayfa1$]');

Ufak bir hatırlatmada bulunmak istedim. Yukarıda kullandığın kod kısmında Sayfa1 kısmı ileride sana sorun çıkarabilir. Sebebi Exceldeki sayfayı silersen veya adını değiştirmen veya boş kitaplık açmandan kaynaklanacaktır. Sana tavsiyem excelin sayfa isimlerini kod ile alman veya sayfa1 varmı diye kontrol ettirmen. Aksi durumda programın kırılabilir.

[zeynel6363]

tmm kardeşim...teşekkürler