• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Soru Access veritabanından excell şablona veri alma?

  • Konbuyu başlatan Konbuyu başlatan s.savas
  • Başlangıç tarihi Başlangıç tarihi
Katılım
12 Ocak 2009
Mesajlar
838
Excel Vers. ve Dili
2003
Merhaba arkadaşlar.
Aşağıdaki kod ile access veri tabanından Bordro isimli şablona veri alıyorum. (Sağolsun kodu veyselemre isimli arkadaş yazdı)
Kod bu haliyle veritabanından aldığı tc_kimlik, adı_soyadı ve brüt_asgari_ücret bilgilerini Bordro isimli şablonun sırasıyla C, D ve E sütunlarına yazıyor.
Ben istiyorum ki koda ilave ettiğim agi_tutarı bilgisini de aynı şablonun M sütununa yazsın.
Bu haliyle agi_tutarını F sütununa yazıyor dolayısıyla şablon düzeni bozuluyor.

Kod:
Call BAGLANTI
Set rs = CreateObject("ADODB.Recordset")
prog = s2.Range("J2")
ay = Month(s2.Range("R2"))
yil = Year(s2.Range("R2"))

strSQL = "SELECT adı_soyadı,tc_kimlik,brüt_asgari_ücret,agi_tutarı " & _
             "FROM katılımcı_listesi " & _
             "WHERE program_portal_no='" & prog & "' ORDER BY tc_kimlik"
           rs.Open strSQL, baglan, 1, 1
s2.Range("C5").CopyFromRecordset rs
rs.Close
 
Merhaba,

M sütununa tek gelene kadar select kısmına '' (İki tane tek tırnak) ekleyin.
Aşağıdaki örnek gibi.

SELECT adı_soyadı,tc_kimlik,brüt_asgari_ücret,'','','','',agi_tutarı
 
Geri
Üst