creare un dsn di sistema

[magnus]

Come si fa?

Ciao!

[magnus]

Come si usa questo codice?

Public Sub CreateDSN(sDSN As String)
' **************************************
' ********************************
' * Comments : Create a DSN
' *
' *
' **************************************
' ********************************
Dim nRet As Long
Dim sDriver As String
Dim sAttributes As String
sDriver = "Oracle73 Ver 2.5"
sAttributes = "Server=pressdb.world" & Chr$(0)
sAttributes = sAttributes & "DESCRIPTION=" & sDSN & Chr$(0)
sAttributes = sAttributes & "DSN=" & sDSN & Chr$(0)
sAttributes = sAttributes & "DATABASE=DB" & Chr$(0)
sAttributes = sAttributes & "UID=Waty" & Chr$(0)
sAttributes = sAttributes & "PWD=myPassword" & Chr$(0)
DBEngine.RegisterDatabase "kiki", "Oracle73 Ver 2.5", True, sAttributes
'nRet = SQLConfigDataSource(vbAPINull, O
' DBC_REMOVE_DSN, sDriver, sAttributes)
End Sub