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 ...
>
> 1. Sistem Point Of Sales
> untuk sistem POS itu bagusnya gimana ya?misalnya
> saya ada 12 kasir..
> apakah di masing-masing komputer kasir tersebut ada
> masing-masing database lokal lalu di server nya ada
> 1 database lagi sebagai pusat atau hanya ada 1
> database saja di server?jadi di komputer kasir itu
> langsung koneksi nya ke database server???terus
> bagaimana supaya bisa tau sisa stock secara real
> time??
> ada yang pernah buat sistem POS yang untuk
> supermarket atau hypermarket gak ya?kalo ada boleh
> sharing gak???
>
> 2. Sistem Inventory
> biasanya di inventory system ini data yang di
> masukkan apakah hanya perbulan atau per beberapa
> bulan sekaligus lalu untuk proses tutup buku
> bulanannya berdasarkan bulan berapa yang ingin di
> proses?dan bagus sistem mana yang lebih efisien?
>
> ---------------------------------
> Be a better Globetrotter. Get better travel answers
> from someone who knows.
> Yahoo! Answers - Check it out.
>
> [Non-text portions of this message have been
> removed]
>
> ---------------------------------
> Don't get soaked. Take a quick peak at the forecast
> with theYahoo! Search weather shortcut.
>
> [Non-text portions of this message have been
> removed]
>
> ---------------------------------
> Be a PS3 game guru.
> Get your game face on with the latest PS3 news and
> previews at Yahoo! Games.
>
> [Non-text portions of this message have been
> removed]
>
>
>
>
>
>
> ---------------------------------
> Got a little couch potato?
> Check out fun summer activities for kids.
>
> [Non-text portions of this message have been
> removed]
>
>
__________________________________________________________
Looking for earth-friendly autos?
Browse Top Cars by "Green Rating" at Yahoo! Autos' Green Center.
http://autos.yahoo.com/green_center/
---------------------------------
Be a PS3 game guru.
Get your game face on with the latest PS3 news and previews at Yahoo! Games.
[Non-text portions of this message have been removed]
