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

a_self_lion

Altın Üye
Altın Üye
Katılım
14 Ocak 2005
Mesajlar
770
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

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
32,692
Excel Vers. ve Dili
Ofis 365 Tr-64 Bit
Ofis 2010 Tr-En 32 Bit
Şöyle deneyiniz.

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

a_self_lion

Altın Üye
Altın Üye
Katılım
14 Ocak 2005
Mesajlar
770
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

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
9,933
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
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