Skjul password
Jeg bruger følgende kode til at hente noget data fra en MSSQL server og sætte det ind i et ark.__________________________________________________
Sub X()
Dim lSql As String
Dim lConn As ADODB.Connection
Dim lRs As ADODB.Recordset
Dim lSource As String
Dim lUser As String
Dim lPassword As String
'***************************************
' Hvordan skjuler man følgende?
lSource = "'MinDataBase'"
lUser = "'BrugerNavn'"
lPassword = "'KodeOrd'"
'***************************************
lSql = "Select * From dbo.tblMinTabel"
Set lConn = New ADODB.Connection
lConn.ConnectionString = "Data Source=" & lSource & ";" & _
"User ID=" & lUser & ";" & _
"Password=" & lPassword & ";"
lConn.Open
Set lRs = New ADODB.Recordset
lRs.Open lSql, lConn, adOpenStatic, adLockReadOnly
Sheet1.Range("B2").CopyFromRecordset lRs
lConn.Close
Set lConn = Nothing
Set lRs = Nothing
End Sub
_______________________________________
Hvordan skjuler man source, user og password i koden, så brugeren ikke umiddelbart kan få det at se?
Hvis man som her skriver det direkte i koden, er det jo ikke det store problem og finde det frem.