RST.Fields Alanlarının Tek hücreye yan yana yazdırmak

[a_self_lion]

Merhaba arkadaşlar,
Herkesin geçmiş bayramını kutlarım.

For i = 1 To RST.RecordCount Step 1
'gelen veriyi s satırının 9 inci sütunundaki hücreye RST nin 3 üncü alanının değerini yaz
Cells(s, 8) = RST.Fields(3), RST.Fields(4), rst.Fields(5)

Yapmak istediğim.

1- bu şekilde Rst.Fields alanlarında ki verilerimizi tek hücreye yan yana yazdırmak istiyorum.
2- Bazısında da sadece 4 karakterini yazdırmak istiyorum.

Yardımlarınızı bekliyorum.
Saygılarımla.

 

[Erdem Akdemir]

Örnek dosyanızı ekleyebilir misiniz?

 

[Murat OSMA]

[FONT="Trebuchet MS"][SIZE="2"]For i = 0 To rst.Fields.Count - 1
    Cells(s, 8) = Cells(s, 8).Value & rst.Fields(i).Name
Next i[/SIZE][/FONT]

 

[a_self_lion]

Teşekkür ederim Murat bey peki Rst ile gelen verilerimizin birisinden sadece ilk 4 karakterini nasıl alabilirim sadece.
Cells(s, 8) = rst.Fields(8) in ilk 4 karekterini almak istiyorum.

 

[Erdem Akdemir]

Bunu sorgunun içinde de yapabilirsiniz.

Aşağıdaki gibi sonradan da olabilir.

Cells(s, 8) = left(rst.Fields(8),4)