(16/01/2020, 21:09)berduş yazdı: Dosyayla kısa vadede yani bu akşam ilgilenebilme ihtimalim)Acelesi yok Üstad vaktin olunca
Excel Den Hücre Verisi Alma ?
Do Until rs.EOF = True
degerler = degerler & ", '" & rs.Fields(0) & "'"
rs.MoveNext
LoopNot: 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
#27
(16/01/2020, 21:20)berduş yazdı:Hocam gene mükemmelsiniz hemde süper ve eksiksiz oldu. Bill Gates getir götürünüzü yaparkodunu aşağıdaki kodla değiştirip dener misiniz?Do Until rs.EOF = True
degerler = degerler & ", '" & rs.Fields(0) & "'"
rs.MoveNext
Loop
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
Önlem olarak rs.fields() ları nz() içine alabilirsiniz
nz(rs.fields(1),"")
Konuyu Okuyanlar: 1 Ziyaretçi
