≡ Menu

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

{ 1 comment… add one }
  • wahyono May 8, 2009, 5:06 pm

    Kok saya coba tidak bisa y
    coba koneksi ke sql server local
    nama komputernya
    stage2
    Nama Databasenya buku_telephone

    mohon di kasih kode soursenya
    thx

Leave a Comment