Excel Ado Kullanımı - Baskı Önizleme

Excel Ado Kullanımı - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excel Ado Kullanımı (/konu-excel-ado-kullanimi.html)

Sayfalar: 1 2 3 4 5 6

Cvp: Excel Ado Kullanımı - accessman - 18/01/2020

ADO_RS.Open SQL, ADO_CN, 3, 1

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

Cvp: Excel Ado Kullanımı - berduş - 18/01/2020

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

Cvp: Excel Ado Kullanımı - accessman - 18/01/2020

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

Cvp: Excel Ado Kullanımı - accessman - 18/01/2020

(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

Cvp: Excel Ado Kullanımı - berduş - 18/01/2020

(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

Cvp: Excel Ado Kullanımı - berduş - 18/01/2020

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