Lebih baik diletakkan di module. Agar bisa digunakan di form-form. Sedangkan cara penggunaannya:
If GetInternetConnectedState Then 'menguji koneksi ke internet, lihat module1
'lakukan hal yang diinginkan disini
'karena koneksi sudah ok.
Else
MsgBox "Sambungan ke internet bermasalah." & vbCrLf _
& "Coba lakukan pengecekan terhadap hal-hal" & vbCrLf _
& "yang bekaitan dengan koneksi ke dunia maya", , ":: Gagal sambung ke internet"
End if
Sejatinya, syarat utama untuk on line ada di kestabilan koneksi. Kita tidak bisa melihat situs tertentu, kalau koneksi tidak stabil.
Memang bisa saja ini kita akali dengan cara mengerjakan off line terlebih dahulu. Misal, kita menambah 1 field (nama ol, type number). Tiap kali update maka, field ol kita beri nilai 0 (artinya belum on line). Bila saat koneksi sudah stabil, kita upload semua field ol yang bernilai 0. Kalau sukses, kita update nilai ol menjadi 1 (artinya sudah update ke data on line).
Namun, kalau dikerjakan multi user, off line justru menjadi masalah. Karena user lain tidak tahu, data upadate paling akhir. Atau, bisa pula user mengerjakan pekerjaan ganda. Sehingga kurang efisien.
Sedangkan untuk mengetahui apakah update 1 record berhasil ataukah tidak, bisa kita lakukan dengan cara mengambil kembali record tersebut dari server. Gambaran teknisnya begini. Misal kita akan mengupdate field nama (Abu Nawas) yang memiliki id 1, maka sql-nya:
"update tabel set nama='Abu Nanas Nanas' where id=" & id
Setelah eksekusi kita kirim ke server. Kita minta kembalian dengan memakai id.
"select nama from tabel where where id=" & id
Ini yang kita sampaikan ke user. Kalau benar ter update, nama akan berubah. Sebaliknya, kalau tidak, nama akan tetap. Hal sama bisa kita lakukan pada data baru.
Semoga bisa membantu dan memberi semangat.
Hariyanto (Surabaya)
--------------------------------------------
On Tue, 2/12/14, way_key111182 way_key111182@yahoo.co.id [belajar-access] <belajar-access@yahoogroups.com> wrote:
Subject: Re: [belajar-access] online status.
To: belajar-access@yahoogroups.com
Date: Tuesday, 2 December, 2014, 9:00 PM
Sebelumnya sy ucapkan terima kasih atas
responnya.Mas hariyanto, script tadi d simapan
dimana ya?Jika kita simpan d Form utama, disana
kita bikin satu label terhubung/tidak bagaimana
implem3ntasinya.
Kebetulan koneksi internetnya kurang stabil, jadi
saya rencana data d simpan d tabel lokal dl. Juga agar
pengerjaan input data bisa dimana saja tanpa koneksi
internet.Saat koneksi agak kenceng baru d
singkron ke server. Yg masih agak bingung dgn logika data
saat ada update pada satu record, mendeteksi perubahannya
gmn ya? Kl dgn data baru, sepertinya lbh mudah.
Mohon diskusi dan sharingnya mas.
Terima kasihYana
Posted by: hari yanto <har_i20002000@yahoo.com>
| Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (4) |
Tidak ada komentar:
Posting Komentar