SQL View Yaparken Bağlantıları Gizleme

[xnanx]

Merhaba,

SQL den bağlantı yapıp bazı raporlar hazırlıyorum fakat. Bağlantı adresleri ve şifreler aşağıdaki görünüyor. Bunları gizleme yada şifreleme şansımız olabiliyor mu?

Yardımlarınız için şimdiden teşekkürler.

 

[Vedat Özer]

Selamlar,

Vba kısmına database bilgileri manuel yazıp şifreleyebilirsiniz.

Örnek kod;

Sub Rapor()
Dim Server As String, Database As String, Kullanıcı As String, Parola As String, F1 As String, F2 As String, F3 As String, F8 As String
Zaman = Timer
With Application
 .ScreenUpdating = False
 .Calculation = xlCalculationManual
 .EnableEvents = False
End With

Range("A7:l" & Rows.Count).ClearContents
Range("A7:l" & Rows.Count).Borders.LineStyle = 0

Server = Worksheets("Sql Ayar").Range("B3").Value:     Database = Worksheets("Sql Ayar").Range("B4").Value:     Kullanıcı = Worksheets("Sql Ayar").Range("B5").Value:     Parola = Worksheets("Sql Ayar").Range("B6").Value
Firma = Format(Mid(Worksheets("Sql Ayar").Range("B2"), 4, 3), "000")
Dönem = Format(Mid(Worksheets("Sql Ayar").Range("B2"), 1, 2), "00")


Set con = CreateObject("ADODB.Connection")
con.Open "Provider=SQLOLEDB; Data Source=" & Server & "; Initial Catalog=" & Database & "; User ID=" & Kullanıcı & "; Password=" & Parola & ";"
Set rs = CreateObject("adodb.recordset")
s = s & " sogunuzu yazın "
con.CommandTimeout = 5000
rs.Open s, con

If s > 0 Then
Range("A7").CopyFromRecordset rs
End If
rs.Close
con.Close
Set rs = Nothing
Set con = Nothing

With Application
        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
        .EnableEvents = True
End With

MsgBox "İşleminiz Tamamlanmıştır. " & Chr(10) & Chr(10) & _
           "İşlem süresi ; " & Format((Timer - Zaman) / 60, "0.00") & " Saniye", vbInformation, "Vedat ÖZER"
End Sub