Dear Sulaiman,
Ini sekedar ide aja, ada bbrp cara:
1. Gunakan socket utk tau server aktif atau tidak.
seperti program chat, di computer server dipasangi satu program yg akan
meresponse request dari program yang kamu bikin (client) klo ada response,
berarti server aktif.
2. Cara lain, cek aja koneksi database.
misal:
sub konesi()
dim NmSvr as string
dim NmClient as string
dim conn as adodb.connection
NmSvr = "server"
NmClient = "localhost"
set conn = openCon('dbtransaksi', 'sqlserver', NmSvr, 'sa','sa')
if typename(conn) = "Nothing" then
set conn = openCon('dbtransaksi', 'sqlserver', NmClient, 'sa', 'sa')
end if
.......
.......
end sub
Public Function OpenCon(ByVal dbname As String, ByVal jnsKoneksi As String,
Optional ByVal namaServer As String = "localhost", Optional ByVal UserName As
String, Optional ByVal pwd As String) As adodb.connection
On Error GoTo ErrMsg
Dim strProvider As String
Select Case LCase(Trim(jnsKoneksi))
Case "access":
strProvider = "Provider=Microsoft.jet.oledb.4.0; data source=" &
App.Path & "\" & dbname
Case "oracle":
strProvider = "Provider=MSDAORA.1;User ID=" & UserName & "; password="
& pwd & "; Data Source=" & namaServer & ";Persist Security Info=False"
Case "oracleoledb":
strProvider = "Provider=OraOLEDB.Oracle.1;Persist Security
Info=False;User ID=" & UserName & ";Data Source=" & namaServer & "; password="
& pwd
Case "sqlserver":
strProvider = "Provider=sqloledb.1.0; initial catalog=" & dbname & ";
data source=" & namaServer & "; user id=" & UserName & "; password=" & pwd & ";"
End Select
Dim conn As adodb.connection
Set conn = New adadb.connection
conn.Open strProvider
If TypeName(conn) = "Nothing" Then
GoTo ErrMsg
End If
Exit Function
ErrMsg:
Set OpenCon = Nothing
End Function
================================================
Klo ada yg kurang jelas, silakan emalin saya lagi or SMS. :)
================================================
Best Regards,
Yulianto Hiu
Financial Consultant
0817.6969.123 / 980.69.811
[EMAIL PROTECTED] / [EMAIL PROTECTED]
Let me serve You better!
NB: untuk mendapatkan konsultasi keuangan Anda dan Keluarga, silakan hubungin
saya.
Dengan senang hati, saya akan membantu.
Pembuatan Rencana Keuangan Anda & Keluarga:
http://akwet.blogs.friendster.com/my_blog/2007/03/pembuatan_renca.html
Pencapaian Tujuan Menabung:
http://akwet.blogs.friendster.com/my_blog/2007/03/pencapaian_tuju.html
----- Original Message ----
From: sulaiman eman <[EMAIL PROTECTED]>
To: [email protected]; [email protected]; [EMAIL
PROTECTED]
Sent: Friday, March 9, 2007 10:28:48 AM
Subject: [Programmer-VB] Minta saran ttng VB
Buat programmer - programmer VB Senior, mau Minta Saran Kode nich..., kalo ada
contoh Kode lebih bagus lagi ^_^.
Begini masalahnya, saat ini saya kan sedang membuat aplikasi basis data client
server yang akan mengalihkan penyimpanan ke basis data sementara jika server
sedang off. Masalahnya adalah PROSEDUR UNTUK MENGECEK SERVER AKTIF ATAU TIDAK;
MENGALIHKAN PENYIMPANAN KE BASIS DATA SEMENTARA JIKA SERVER OFF; MENGIRIMKAN
DATA SECARA OTOMATIS JIKA SERVER TELAH AKTIF; dijalankan hanya pada saat Form
Load. Jadi Jika Server mati secara tiba - tiba dalam kondisi aplikasi run time
aplikasi tidak bisa prosedur - prosedur di atas tidak dijalankan. So, harus
Merestart Aplikasi.
Pertanyaanya:
BAGAIMANA AGAR PROSEDUR2 DI ATAS SENANTIASA DIJALANKAN DALAM KONDISI APLIKASI
RUN TIME
Kalo ada Contoh Kode Lebih Bagus...
Trim's Atas Bantuannya.. ..
Kunjungi halaman depan Yahoo! Indonesia yang baru!
____________________________________________________________________________________
Finding fabulous fares is fun.
Let Yahoo! FareChase search your favorite travel sites to find flight and hotel
bargains.
http://farechase.yahoo.com/promo-generic-14795097
