Web HOSTING deki SQL DATABASEe BAĞLANMA STRING

Katılım
3 Temmuz 2016
Mesajlar
32
Excel Vers. ve Dili
Excel 2010 Türkçe
Merhabalar, SQL studio management 2017 ile web hosting de bulunan MS SQL database e bağlantı yapabiliyorum fakat Excel den vba kod ile bağlantıyi bir türlü sagliyamadim, connection string sitesindekileri kullandım fakat bi sıkınti var ama çözemedim
 
Katılım
3 Temmuz 2016
Mesajlar
32
Excel Vers. ve Dili
Excel 2010 Türkçe
Sub SQL_Connection()

Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim query As String
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset

'---- Replace below highlighted names with the corresponding values

strCon = "Provider=SQLOLEDB; " & _
"Data Source="mahmutkaya.net"; " & _
"Initial Catalog=mahmutka_t360;" & _
"User ID=uid; Password=*******; Trusted_Connection=yes"

'--- Open the above connection string.

con.Open (strCon)

'--- Now connection is open and you can use queries to execute them.
'--- It will be open till you close the connection

End Sub
 
Katılım
3 Temmuz 2016
Mesajlar
32
Excel Vers. ve Dili
Excel 2010 Türkçe
Yukarıdaki stringte kullanıcı adı ve şifreyi de yazarak, deniyorum ama olmuyor, yardımcı olabilir misiniz..
 

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,653
Excel Vers. ve Dili
Pro Plus 2021
İnternetten aldım, localde çalıştırdım şimdi bir deneyin.
Kod:
Sub ADOExcelSQLServer()

    Dim Cn As Object
    Dim Server_Name As String
    Dim Database_Name As String
    Dim User_ID As String
    Dim Password As String
    Dim SQLStr As String
    Dim rs As Object

    Server_Name = "SERVERADI"
    Database_Name = "DATABASEADI"
    User_ID = "kullanıcıadı"
    Password = "şifre"
    SQLStr = "SELECT * FROM [Abone]"

    Set Cn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.recordset")
   
    Cn.Open "Driver={SQL Server};Server=" & Server_Name & ";Database=" & Database_Name & _
    ";Uid=" & User_ID & ";Pwd=" & Password & ";"

    rs.Open SQLStr, Cn, adOpenStatic

    With Worksheets("sayfa1").Range("a1")
        .ClearContents
        .CopyFromRecordset rs
    End With

    rs.Close
    Set rs = Nothing
    Cn.Close
    Set Cn = Nothing
End Sub
 

Zeki Gürsoy

Uzman
Uzman
Katılım
31 Aralık 2005
Mesajlar
4,374
Excel Vers. ve Dili
Office 365 (64 bit) - Türkçe
TrustedConnection kullanıldığında user ve password kullanılmaz. İstemci bilgisayarın haklarıyla bağlantı açılır.
Standard güvenlikle (user & password) istek yapmanız durumunda TrustedConnection parametresi kullanılmamalıdır.

Diğer bir ayrıntı ise, sunucunun hangi güvenlik protokolünün kullandığını bilmektir. Standard security, Windows Auntation veya Mix (her ikisi).
 
Son düzenleme:
Katılım
3 Temmuz 2016
Mesajlar
32
Excel Vers. ve Dili
Excel 2010 Türkçe
Hiçbir türlü olmuyor, İngilizce olarak, böyle bir bağlantı yok ya da reddedildi diyor
 
Üst