Değiken SQL Server Bağlantısı

[issisoft]

Merhabalar,
Benim Ağımda 3 adet SQL kurulu PC var.
Excelden SQL e bağlanırken her seferinde yeniden bağlantı tanımlamak yerine
örneğin ;
A1 hücresine SQL Server adı
A2 hücresine Kullanıcı Adı
A3 hücresine şifresi
A4 hücresine de bağlanmak istediğim veri tabanı ismini gireyim ve
buradaki değerler değiştiğinde SQL Server ad ve veri tabanı da değişsin.

Şimdiden ilgilenen arkadaşlara teşekkür ederim...

 

[zafer]

Merhaba

Public cnt As ADODB.Connection
Public rst As ADODB.Recordset
Public strConn As String 
 
Sub baglanti()
 
Set s1 = Sheets("XXXXXX")
kullanici = s1.Cells(2, 1)
sifre = s1.Cells(3, 1)
server_ismi = s1.Cells(1, 1)
veritabani_ismi = s1.Cells(4, 1)
 
 
Set cnt = New ADODB.Connection
Set rst = New ADODB.Recordset
strConn = "PROVIDER=SQLOLEDB;"
strConn = strConn & "DATA SOURCE=" & server_ismi & ";INITIAL CATALOG=" & veritabani_ismi & ";"
strConn = strConn & "UID=" & kullanici & ";PWD=" & sifre
cnt.ConnectionString = strConn
 
End Sub