Excel'den ADO nasıl bağlanılır ???

[Rido66]

Arkadaşlar ben tüm sorgularımı Mİcrosoft Query ile yapıyorum ama koşulları excelden belirtme gereği duyunca anemos arkadaşımızın yardımı ile bunu ADO ile yapmam gerektiğini öğrendim. Excelden ADO nasıl bağlanılır acil yardımınızı bekliyorum.

 

[Recep İpek]

Excel'den ADO ile hangi veritabanına bağlanmak istiyorsunuz?

 

[Rido66]

sql veri tabanına

 

[Recep İpek]

Aşağıdaki linkleri inceleyiniz.

http://www.excel.web.tr/showthread.php?t=37507

http://www.excel.web.tr/showthread.php?t=41089

http://www.excel.web.tr/showthread.php?t=40218

http://www.excel.web.tr/showthread.php?t=35271

 

[Rido66]

teşekkür ederim linkleri inceledim ama sql database bağlantı kuramadım. acaba excel bir şeyler kurmak yada ayarlama mı yapmak gerekiyor

 

[serinci]

konuyla ilgili bir görsel hazırlamaya çalıştım biraz hata mesajları ile doldu ama sonunda sorunsuz olarak çalıştı

ilgili görseli www.serinci.com/deppo/SQL_Connect.gif adresinden inceleyebilirsiniz. umarım faydalı olur.

 

[Rido66]

güzel olmuş ama gıf okuyamadığım yerler var kod ekleyebilirmisiniz

 

[serinci]

Sub KOTA_DETAY_TUM_TUM_TPL()
 Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    
    Dim SqlText, tirnak As String
    
 With conn
    .Provider = "sqloledb"
    .CommandTimeout = 1200
   .ConnectionString = "Data Source= NETSIS;USER ID= rapor;PASSW=;AUTO TRANSLATE=FALSE"
    .Open
    .DefaultDatabase = Sayfa1.Cells(2, 2).Value
    End With
    SqlText = "SELECT SUM(KULL_STOK_BKY),SUM(KULL_STOK_TUTAR) "
    SqlText = SqlText + " FROM MEH_KULLANILABILIR_STOK_MLYT "
    rs.Open SqlText, conn, adOpenStatic, adLockReadOnly
    Do While Not rs.EOF
    
        Cells(5, 10).Value = "KULLANILABİLİR ARAÇ Maliyet Toplamı"
        Cells(5, 11).Value = rs(0) '+ (Cells(3, 11))
        Cells(5, 12).Value = rs(1) '+ (Cells(3, 12))
        Cells(5, 13).Value = rs(1) / rs(0)
        rs.MoveNext
        
    Loop
    Cells(2, 2).AutoFilter
    conn.Close
    Set rs = Nothing
    Set conn = Nothing
    Sheets("Ortalama Fiyat Analizi").Select
End Sub

uygulamanın SQL e bağlanabilmesi için TOOLS menüsünden Reference Noktalarından Microsoft ActiveX DataObjects recordset 2.8 Library seçeneğinin seçilmiş olması gerekmektedir.

 

[Rido66]

uygulamanın SQL e bağlanabilmesi için TOOLS menüsünden Reference Noktalarından Microsoft ActiveX DataObjects recordset 2.8 Library seçeneğinin seçilmiş olması gerekmektedir.

Ben türkce Excel 2003 kullanıyorum. Yukarıdaki ayarlamayı göremedim. Ben sql servere serveradı-kullanıcı adı ve parolosuz olarak bağlanıyorum. yukarıdaki kodlarda tam olarak nerde belirmeliyim belki bu iki sorunu halledebilirsem olacak inşallah yardımınızı bekliyorum