[VB]db연결

'db 연결
Public Sub GF_DBConnect()
Dim sDsn As String

On Error GoTo ConnectError

Screen.MousePointer = vbHourglass
Set Gd_Connect = New ADODB.Connection ' ado db

'-------------------------------

'ms sql

'-------------------------------

' sDsn = "Provider=SQLOLEDB.1;Persist Security Info=True"
' sDsn = sDsn & ";Password=" & GS_DbPass
' sDsn = sDsn & ";User ID=" & GS_DbUser
' sDsn = sDsn & ";Initial Catalog=" & GS_DbName
' sDsn = sDsn & ";Data Source=" & GS_DbServer
'-------------------------------

'oracle
'-------------------------------

' sDsn = "Provider=MSDAORA;Persist Security Info=True"
' sDsn = sDsn & ";Password=" & GS_DbPass
' sDsn = sDsn & ";User ID=" & GS_DbUser
' sDsn = sDsn & ";Data Source=" & GS_DbServer
'-------------------------------

'sybase(odbc)
'-------------------------------

' sDsn = "Provider=MSDASQL.1;Persist Security Info=False;User ID=사용자;Data Source=odbc명"
'-------------------------------

'odbc
'-------------------------------

' sDsn = "uid=" & GS_DbUser & ";pwd=" & GS_DbPass & ";DSN=" & GS_DbServer & ";"


Gd_Connect.ConnectionTimeout = 20 'ado
Gd_Connect.Open sDsn

Gd_Connect.CursorLocation = adUseClient

Screen.MousePointer = vbDefault

Exit Sub

ConnectError:
Screen.MousePointer = vbDefault
Call MsgBox(sDsn & vbCrLf & Err.Description)
End
End Sub