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

ozkansabanci' Alıntı:

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

Genişletmek için tıkla ...