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

Katılım
14 Ocak 2005
Mesajlar
792
Excel Vers. ve Dili
Ofis 2010 2016
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,332
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Şöyle deneyiniz.

rap;Initial Catalog=" & Sheets("DigerHesaplamalar").Range("g4") & ";Data Source=SERVERFS\ALNA;Use Procedur"
 
Katılım
14 Ocak 2005
Mesajlar
792
Excel Vers. ve Dili
Ofis 2010 2016
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.

226041
 
Son düzenleme:

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,271
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
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.

Rich (BB code):
.......for Prepare=1;Auto Translate=True;Packet Size=4096;User ID=Username;Password=password;Workstation ID.....
.
 
Üst