AccessTr.neT

ADO_RS.Open SQL, ADO_CN, 3, 1

buradaki "3" ve "1" görevleri nelerdir

ThisWorkbook.FullName  calisilan aktif Excel dosyasını gösterir
Eğer başka bir dosyadan veri alınacaksa
veri alınacak Excel dosyasının adresi+adı  yazilir

Do While Not ADO_RS.EOF
            Lst_Detay.AddItem
        '        Lst_Detay.Column(0, Lst_Detay.ListCount - 1) = ADO_RS.Fields("Departman").Value
        '        Lst_Detay.Column(1, Lst_Detay.ListCount - 1) = ADO_RS.Fields("MuhasebeHesapNo").Value
        '        Lst_Detay.Column(2, Lst_Detay.ListCount - 1) = Format(ADO_RS.Fields("FullTarih").Value, "DD/MM/YYYY")
        '        Lst_Detay.Column(3, Lst_Detay.ListCount - 1) = ADO_RS.Fields("FisNo").Value
        '        Lst_Detay.Column(4, Lst_Detay.ListCount - 1) = ADO_RS.Fields("Aciklama").Value
        '        Lst_Detay.Column(5, Lst_Detay.ListCount - 1) = Format(ADO_RS.Fields("Tutar_TL").Value, "#,###.00")
        '        ToplamTutar = ToplamTutar + ADO_RS.Fields("Tutar_TL").Value
           ADO_RS.MoveNext
Loop


burada 
"Lst_Detay.Column(0, Lst_Detay.ListCount - 1) = ADO_RS.Fields("Departman").Value"
cümlesinde listboxun sutunları ekleniyor  "Departman" kelimesi Sql de de hiç geçmemiş acaba nedir acaba Excel sutun başlığımıdır  yoksa listenin opsiyonel sutun başlığı mıdır

(18/01/2020, 10:42)berduş yazdı: [ -> ]ThisWorkbook.FullName  calisilan aktif Excel dosyasını gösterir
Eğer başka bir dosyadan veri alınacaksa
veri alınacak Excel dosyasının adresi+adı  yazilir

teşekkürler berduş
peki "excel 8.0" 2010 Excel kullananlarda "excel 10.0" mı olacak

(18/01/2020, 10:51)accessman yazdı: [ -> ]peki "excel 8.0" 2010 Excel kullananlarda "excel 10.0" mı olacak

versiyon siralamasini tam olarak bilmiyorum o nedenle birşey diyemem

ADO_RS.Fields("Departman").Value"
Excel sütun başlığıdır opsiyonel başlık olsaydı Sql kodunda " as departman" gibi bir kod olurdu