Personal Mind of ASEP

Sepercik Rasa yang Tercurah

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

September 26, 2005 - Posted by | Uncategorized

No comments yet.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: