Excel Den Hücre Verisi Alma ?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
16/01/2020, 21:16

Myalim

(16/01/2020, 21:09)berduş yazdı: Dosyayla kısa vadede yani bu akşam ilgilenebilme ihtimalim)
Acelesi yok Üstad vaktin olunca
16/01/2020, 21:20

berduş

Do Until rs.EOF = True           
degerler = degerler & ", '" & rs.Fields(0) & "'"    
rs.MoveNext    
Loop
kodunu aşağıdaki kodla değiştirip dener misiniz?
Not: deneme imkanım olmadı sadece teorik
Do Until rs.EOF = True           
degerler = degerler & ", '" & rs.Fields(1) & rs.Fields(2) & rs.Fields(3) & "'"    
rs.MoveNext    
Loop
16/01/2020, 21:26

Myalim

(16/01/2020, 21:20)berduş yazdı:
Do Until rs.EOF = True           
degerler = degerler & ", '" & rs.Fields(0) & "'"    
rs.MoveNext    
Loop
kodunu aşağıdaki kodla değiştirip dener misiniz?
Not: deneme imkanım olmadı sadece teorik
Do Until rs.EOF = True           
degerler = degerler & ", '" & rs.Fields(1)  & rs.Fields(2)  & rs.Fields(3) & "'"    
rs.MoveNext    
Loop
Hocam gene mükemmelsiniz hemde süper ve eksiksiz oldu. Bill Gates getir götürünüzü yapar
16/01/2020, 21:27

berduş

Önlem olarak rs.fields() ları nz() içine alabilirsiniz
nz(rs.fields(1),"")
gibi 3 alanı  da
16/01/2020, 21:33

berduş

))
iyi çalışmalar
Cevaplanmışlara taşıyalım mı?
16/01/2020, 21:37

Myalim

(16/01/2020, 21:33)berduş yazdı: ))
iyi çalışmalar
Cevaplanmışlara taşıyalım mı?
Teşekkürler Hocam Size de. Taşıyabilirsiniz uygundur.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15