Koneksi ODBC Sql Server di vb 6.0

‘ Deklarasi variable
Public Cn As New rdoConnection
Public En As rdoEnvironment

‘KOneksi ODCB dengan windows NT Authentication

Sub OpenConnectServer()
On Error GoTo ErrH
Set En = rdoEngine.rdoEnvironments(0)
With Cn
.Close
.Connect = “DSN=DBTEST”

.LoginTimeout = 25
.EstablishConnection rdDriverNoPrompt, True
End With

ErrH:
If Err.Number > 0 Then
MsgBox “Error Koneksi Ke Database Server”, vbInformation, “Message”
End
End If
End Sub

Popularity: 3% [?]

Another Interesting Articles

About
About the website / blog ASEP.us website is a personal website or can be called a personal blog, ...
Momen Pernikahan
...
Mohon Do’a Atas Pernikahan Kami
Tak terasa kurang dari sebulan lagi bahkan hanya tinggal menghitung hari saja Insya Alloh gue akan...
Beasiswa Universitas Indonesia untuk Seribu Anak Bangsa
Dengan datangnya tahun ajaran baru 2008/2009 Universitas Indonesia menyambut semua Anak-anak Bangsa ...
Gito Rollies Telah Pulang Ke Rahmatulloh
Setelah sampai di kosan dari tempat kerja, lalu gue makan sekaligus nyalain komputer. Sembari makan,...
Menuju gerbang pernikahan
Menuju ke gerbang pernikahan ternyata tidaklah semudah yang di fikirkan dan di perkirakan. Sebelumya...
Hati-hatilah berurusan Web Hosting dengan Singcat
Saya hanya mau bilang, bagi anda yang tergiur dengan layanan Singcat, harap sedikit ekstra hati-hati...
22 Desember 2007
Ada apa dengan tanggal 22 ?...
kangeeeeeeeeeeeeeeeen
...
Jatuh Cinta – Project Pop
Yo, clap your hand, clap your hand, clap your hand Yo, clap your hand, clap your hand Yo, clap you...