• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Yardım Aynı ağ üzerindeki serverdan excele sürekli veri alma

cengizyener

Yeni Üye
Katılım
28 Tem 2021
Mesajlar
3
En iyi yanıt
0
Puanları
3
Yaş
35
Konum
ankara
Ad Soyad
cengiz yener
Office Vers.
office 2019
Aynı ağ üzerinde çalıştığımız server dan yine server da kayıtlı olan excele SQL deki verileri dinamik olarak çekmek istiyorum.Servere bağlı aynı ağ üzerinden başka bir pc üzerinden şu işlemleri yapıyorum ama olmuyor Excelde veri al - veritabanından - SQL server veritabanından al diyorum ama sunucu adına ne yazarsam yazayım alamıyorum galiba servere bağlantı sağlayamıyorum bu konuda yardımcı olabilir misiniz?
Not : server şifresi, SQL şifresi elimde mevcuttur.
 

ozkansabanci

Excel VBA Developer
Uzman
Katılım
28 May 2018
Mesajlar
238
En iyi yanıt
7
Puanları
28
Yaş
38
Konum
İstanbul
Web sitesi
analistadam.com
Ad Soyad
Özkan Sabancı
Office Vers.
Microsoft 365 Apps for enterprise TR
Merhaba,

Aşağıdaki kodları kullanarak servera bağlanabilirsiniz. Bilgileri gireceğiniz kısımlar açıklama olarak belirtilmiştir.

Saygılarımla.



' Carl SQL Server Connection



' Bu kodun çalışması için;

' Tools - References kısmından Microsoft Active X Data Objects 2.x kütüphanesinin ekli olduğunu kontrol ediniz.


Dim Cn As ADODB.Connection

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 ADODB.Recordset

Set rs = New ADODB.Recordset



Server_Name = "" ' Server bilgisini buraya giriniz(Çift tırnak arasına)

Database_Name = "" ' Veritabanı adını buraya giriniz(Çift tırnak arasına)

User_ID = "" ' kullanıcı adını buraya giriniz. (Çift tırnak arasına)

Password = "" ' şifreyi giriniz. (Çift tırnak arasına)

SQLStr = "" ' sorguyu buraya yazınız

Set Cn = New ADODB.Connection

Cn.Open "Driver={SQL Server};Server=" & Server_Name & ";Database=" & Database_Name & _

";Uid=" & User_ID & ";Pwd=" & Password & ";"



rs.Open SQLStr, Cn, adOpenStatic

' Dump to spreadsheet



Sayfa14.Range("A2").CopyFromRecordset rs



' Tidy up

rs.Close

Set rs = Nothing

Cn.Close

Set Cn = Nothing
 

cengizyener

Yeni Üye
Katılım
28 Tem 2021
Mesajlar
3
En iyi yanıt
0
Puanları
3
Yaş
35
Konum
ankara
Ad Soyad
cengiz yener
Office Vers.
office 2019
Merhaba,

Aşağıdaki kodları kullanarak servera bağlanabilirsiniz. Bilgileri gireceğiniz kısımlar açıklama olarak belirtilmiştir.

Saygılarımla.



' Carl SQL Server Connection



' Bu kodun çalışması için;

' Tools - References kısmından Microsoft Active X Data Objects 2.x kütüphanesinin ekli olduğunu kontrol ediniz.


Dim Cn As ADODB.Connection

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 ADODB.Recordset

Set rs = New ADODB.Recordset



Server_Name = "" ' Server bilgisini buraya giriniz(Çift tırnak arasına)

Database_Name = "" ' Veritabanı adını buraya giriniz(Çift tırnak arasına)

User_ID = "" ' kullanıcı adını buraya giriniz. (Çift tırnak arasına)

Password = "" ' şifreyi giriniz. (Çift tırnak arasına)

SQLStr = "" ' sorguyu buraya yazınız

Set Cn = New ADODB.Connection

Cn.Open "Driver={SQL Server};Server=" & Server_Name & ";Database=" & Database_Name & _

";Uid=" & User_ID & ";Pwd=" & Password & ";"



rs.Open SQLStr, Cn, adOpenStatic

' Dump to spreadsheet



Sayfa14.Range("A2").CopyFromRecordset rs



' Tidy up

rs.Close

Set rs = Nothing

Cn.Close

Set Cn = Nothing
Hocam Merhabalar,

Geri dönüşünüz için çok teşekkür ederim sorunumu çözdünüz emeğinize sağlık sizi yordum :)
 
Üst Alt