Sql bağlantı string de değişken tanımlamak

[a_self_lion]

Sheets("ADSFILE-BYIL").Select


DATaBy = Sheets("DigerHesaplamalar").Range("G4")

With Selection.ListObject.QueryTable
.Connection = Array( _
"OLEDB;Provider=SQLOLEDB.1;Persist Security Info=True;User ID=rap;Initial Catalog="" & Sheets("DigerHesaplamalar").range("g4") & "";Data Source=SERVERFS\ALNA;Use Procedur" _
, _
"e for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=LION-PC;Use Encryption for Data=False;Tag with column colla" _
, "tion when possible=False")

.CommandType = xlCmdSql

.CommandText = Array( _
"" & Sheets("DigerHesaplamalar").Range("M51") & "")
.Refresh BackgroundQuery:=False

End With

rap;Initial Catalog="" & Sheets("DigerHesaplamalar").range("g4") & "";Data Source=SERVERFS\ALNA;Use Procedur" _
Koyu yazdığım değişkeni nasıl bu satıra eklerim bu şekilde hata veriyor.

Teşekkür ederim.

 

[Korhan Ayhan]

Şöyle deneyiniz.

rap;Initial Catalog=" & Sheets("DigerHesaplamalar").Range("g4") & ";Data Source=SERVERFS\ALNA;Use Procedur"

 

[a_self_lion]

evet oldu Teşekkür ederim. Bu sorguyu gönderince veri tabanı şifresi soruyor onu her defasında elimle giriyorum. Onuda buradan gönderebilir miyiz.

 

[Haluk]

Connection string'e aşağıdaki "kırmızı" bölümü de ilave ederseniz, sorun çözülür muhtemelen.... "Username" ve "password" değerlerini kendi verilerinizle değiştirin.

.......for Prepare=1;Auto Translate=True;Packet Size=4096;User ID=Username;Password=password;Workstation ID.....

.