rs.movefirst
for i = 1 to rs.recordcount
label1.caption = label1.caption + rs.fields(0)
if len(label1.caption) >=20 then
label1.caption = right(label1.caption,20)
endif
rs.movenext
next i
semoga membantu
layong
http://newbieprogrammer.blogspot.com/
On 2/18/08, rtzfslo2007 <[EMAIL PROTECTED]> wrote:
>
> Hi.Para Pakar 2x n Suhu VB ..Salam Kenal, saya tau banget kalo
> Suhu2x uda expert dibidang VB ,boleh lah kiranya membagi ilmunya
> sedikit n memberi pencerahan kepada saya ...
>
> Saya bener-bener sdh putus asa..,saya ingin membuat running text yg
> diambil dari database yg sudah ada (.mdb) ceritanya saya ingin
> membuat suatu sistem antrian untuk keperluan tugas kuliah (sumprit
> gak bakal dijual lagi )
>
> saya cuma ingin dari label yg dibuat di vb bisa menampilkan nomor2x
> antrian yg ada di database access..seperti running text dari kiri ke
> kanan...
> saya sudah coba code spt ini label1.caption = rs.fields("no")
> rs.movenext
>
> tapi yg muncul hanya no yg terakhir saja ..saya tidak mengerti
> looping nya bagaimana? tolong lah saya yg bodoh ini ,kiranya suhu
> berkenan membagi ilmu nya yg sangat tinggi kepada saya yg lemah
> ini ....
> Terimakasih Suhu.....
> God Bless U
>
>
>
