ok deh....
ta' coba...makasih yah mas...
salam
--- aries <[EMAIL PROTECTED]> wrote:
> sebenarnya enggak ada yg aneh dengan kode
> programnya, yang penting kita deklarasikan 2
> variabel koneksi yang berbeda, lebih kurang seperti
> ini :
>
> Option Explicit
>
> Public connServer1 As New ADODB.Connection
> Public connServer2 As New ADODB.Connection
>
> Public Function connectToServer(ByVal userName As
> String, ByVal userPassword As String, _
> ByVal dbName As
> String, ByVal serverName As String, ByVal conn As
> ADODB.Connection) As Boolean
>
> Dim strConn As String
>
> On Error GoTo errHandle
>
> strConn = "Provider=SQLOLEDB.1;User ID=" &
> userName & ";Pwd=" & userPassword & _
> ";Initial Catalog=" & dbName & ";Data
> Source=" & serverName & ""
>
> If conn.state = adStateOpen Then
> conn.Close
> Set conn = New ADODB.Connection
> conn.Open strConn
> Else
> conn.Open strConn
> End If
>
> connectToServer = True
>
> Exit Function
>
> errHandle:
> connectToServer = False
> End Function
>
> Public Sub closeConnection(ByVal conn As
> ADODB.Connection)
> If Not (conn Is Nothing) Then
> If conn.state = adStateOpen Then
> conn.Close
> End If
> End If
> End Sub
>
> Public Sub reOpenConnection(ByVal conn As
> ADODB.Connection)
> If conn.state = adStateClosed Then conn.Open
> End Sub
>
> Public Function getStatusKoneksi(ByVal state As
> Long) As String
> Select Case state
> Case adStateClosed
> getStatusKoneksi = "adStateClosed"
> Case adStateConnecting
> getStatusKoneksi = "adStateConnecting"
> Case adStateExecuting
> getStatusKoneksi = "adStateExecuting"
> Case adStateFetching
> getStatusKoneksi = "adStateFetching"
> Case adStateOpen
> getStatusKoneksi = "adStateOpen"
> End Select
> End Function
>
> Private Sub Command1_Click()
> Dim ret As Boolean
>
> 'buka 2 koneksi
> ret = connectToServer("sa", "", "Db1",
> "(local)", connServer1)
> MsgBox ret
> ret = connectToServer("sa", "", "Db2",
> "(local)", connServer2)
> MsgBox ret
> End Sub
>
> Private Sub Command2_Click()
> 'tutup koneksi
> Call closeConnection(connServer1)
> Call closeConnection(connServer2)
>
> MsgBox getStatusKoneksi(connServer1.state)
> MsgBox getStatusKoneksi(connServer2.state)
> End Sub
>
> Private Sub Command3_Click()
> 'buka ulang koneksi
> Call reOpenConnection(connServer1)
> Call reOpenConnection(connServer2)
>
> MsgBox getStatusKoneksi(connServer1.state)
> MsgBox getStatusKoneksi(connServer2.state)
> End Sub
>
>
>
> Evi Damayanti <[EMAIL PROTECTED]> wrote:
> mas aku ikutan jg yah....
> aku mau tau donk...gmn caranya bikin dua koneksi
> itu...klo di SQL Server 2000 dan VB gmn caranya
> mas..?
>
> kasih tau cara kodingnya donk mas...aku mau coba
> bikin
> deh...software dengan dua database itu...
>
> thanks yah...
> -Evi-
> --- aries <[EMAIL PROTECTED]> wrote:
>
> > yang aq buat lebih kurang sepert ini :
> > 1. pada saat login kasir melakukan 2 koneksi ke
> > server dan lokal, kalo udah, koneksi ke lokal
> > ditutup, karena prioritas koneksi adalah ke server
> > 2. pada saat transaksi (misal insert data -
> > prioritas insert adalah keserver), kasir selalu
> > ngecek hasil dari proses insert, soalnya ini yang
> > kita jadikan salah parameter untuk mengetahui
> > kondisi server. jadi kalo hasil insertnya false
> (ada
> > kemungkinan server bermasalah), jadi kita tinggal
> > buka koneksi ulang ke lokal dan lakukan insert
> data
> > ke lokal. kalo di vb dan pake ado lebih kurang
> > perintahnya seperti ini untuk membuka koneksi yang
> > ditutup:
> > If connKasir.state = adStateClosed Then
> > connKasir.Open
> >
> > cara yang lain untuk ngecek server on/off line
> > bisa pake ping, ini lebih cepat, cuma hati2x dalam
> > penggunaannya soalnya bisa membebani jaringan
> >
> > kalo db lokanya pake access kan enggak perlu pake
> > ODBC
> >
> > Juned Syafruddin <[EMAIL PROTECTED]> wrote:
> > Mas aries ikut nimbrung nih
> >
> > pada point 1 Kasir punya database local dan
> adajuga
> > database server
> > dan kasir juga bisa offline pake database kasir
> > sendiri
> >
> > nah yang saya tanya
> > 1. misalkan server down/mati gimana dalam vb
> > mengecek server online atau tidak ?
> > 2. Perpindahan program membaca ODBC server dan
> ODBC
> > kasir gimana ?
> >
> > Terima kasih sebelumnya
> >
> >
> > aries <[EMAIL PROTECTED]> wrote:
> > 1. POS
> > Pengalaman aq sih waktu bangun sistem POS di salah
> > satu swalayan di jogja, setiap kasir punya
> database
> > lokal (aq pake ms access) untuk databasenya
> > servernya aq pake interbase 6. Ini dilakukan untuk
> > jaga2x kalo jaringan putus atau server down, jadi
> > kasir tetap bisa operasional
> >
> > Coba bayangkan waktu2x tertentu misal menjelang
> > lebaran, kan transaksinya banyak banget, kalo
> > kasirnya tergantung banget ke server pas severnya
> > lagi down, wah pemilik swalayannya bisa marah
> besar.
> >
> > Cuma repotnya di sinkronisasi data barang, jadi
> > aplikasi server nambah kerjaan kalo entri barang
> > baru selain harus update di server juga update di
> > masing2x client
> >
> > 2. Sistem Inventory
> > Kalo masalah entri data kayaxnya tiap hari,
> soalnya
> > kalo di swalayan sering banget terjadi perubahan
> > harga. Apalagi kalo swalayannya rame pasti banyak
> > barang yang masuk dari supplier. intinya pekerjaan
> > entri data ya tiap hari.
> >
> > Untuk tutup buku enaknya u kasih pake range
> tanggal
> > aja, jadi terserah pemilik mau tutup bukunya dari
> > tanggal berapa.
> >
> > antony <[EMAIL PROTECTED]> wrote:
> > salam,
> >
> > saya mau tanya ...
> >
>
=== message truncated ===
____________________________________________________________________________________
Pinpoint customers who are looking for what you sell.
http://searchmarketing.yahoo.com/
