teman2 vbers yth
saya punya masalah sepele.
saya ingin menampilkan jam di aplikasi saya, waktu yang ditampilkan
adalah waktu pada server, bukan waktu pada komputer lokal (yang pake
function NOW).
saya mengambil waktu di server yang menjalankan MySQL dengan
perintah SELECT NOW(), hasilnya saya taruh di objek label.
saya juga meletakkan objek timer yang saya set intervalnya 1000,
terus di sub Timer1_Timer saya letakkan kode berikut
Label1.Caption = Format(DateAdd("s", 1, TimeValue
(Label1.Caption)), "HH:mm:ss")
awalnya saya kira selesai. tetapi ternyata kalo ada msgbox yg
keluar, timer akan berhenti.
setelah beberapa msgbox, waktu yang ditampilkan di label sudah tidak
sama dengan waktu di server.
kemudian saya ganti kode di timer1_timernya dengan
rs.Open "SELECT NOW() AS Jam", cn
Label1.Caption = Format(rs.Fields!Jam, "HH:mm:ss")
rs.close
tapi beban server nerima koneksi jadi berat.
mohon masukan dari teman2 utk masalah saya ini
trims sebelumnya.
cahyo
