SQL bağlantıyı Fonksiyon haline Getirmek

[serinci]

Merhabalar SQL den raporlama yaptığım dosyada SQL bağlantısını her makroda tanımlamak yerine bu bağlantıyı aşağıdaki kodlarla Fonsiyon olarak tanımladım,

 Function SQL_Connect
 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
  End Function

Daha sonra raporlama amacı ile aşağıdaki macroyu yazdım

Sub Kotadan_Stok_Raporu()
 'On Error Resume Next

SQL_Connect
SqlText = "SELECT STOK_KODU,STOK_ADI,KOD_5,SUM(KULL_STOK_BKY),SUM(KULL_STOK_TUTAR),OTV_ORAN "
    SqlText = SqlText + " FROM MEH_KULLANILABILIR_STOK_MLYT"
    SqlText = SqlText + " GROUP BY STOK_KODU,STOK_ADI,KOD_5,OTV_ORAN"
    rs.Open SqlText, conn, adOpenStatic, adLockReadOnly
    Sayfa2.Activate
    Cells(2, 2).AutoFilter
    Sayfa2.Range("B3:I100").ClearContents
    i = 3
    Do While Not rs.EOF
        'Maliyet Listesine Yazdırma
        Sayfa2.Cells(1, 1).Value = i
        Sayfa2.Cells(i, 2).Value = rs(0)
        Sayfa2.Cells(i, 3).Value = rs(1)
        Sayfa2.Cells(i, 4).Value = rs(2)
        Sayfa2.Cells(i, 5).Value = rs(3)
        Sayfa2.Cells(i, 6).Value = rs(4)
        Sayfa2.Cells(i, 7).Value = rs(4) / rs(3)
        Sayfa2.Cells(i, 8).Value = rs(5)
        rs.MoveNext
        i = i + 1
        Loop
   
    conn.Close
    Set rs = Nothing
    Set conn = Nothing
End Sub

Macro başladığında fonksiyon işlevini yerine getirmekte ve bağlantıyı sağlamakta ancak bağlantıdan sonra makroya geri döndüğünde

 rs.Open SqlText, conn, adOpenStatic, adLockReadOnly

Bölümüne geldiğinde

Run Time Error '424' : 
Object Required

hatası vermekte bunu aşmanın bir yöntemi varmıdır,

her makroya tek tek vermekte mümkün şu anki haliyle her makro yeniden bağlantı kuruyor ancak dosyamda toplamda 1000 in üstünde rapor varyasyonu var ve bu durumda dosya boyuu çok fazla büyümekte, birazda olsa bunu azaltmak için bu tanım yapmam gerekiyor,


Saygılar,

 

[Zeki Gürsoy]

Fonksiyon, geriye değer döndüren yapıdır. Prosedür olarak kullanın.

 

[serinci]

İlginiz için teşekkür ederim ancak Ekleden Procedure yaptığımda çıkan öntanımlardan hepsini denememe rağmen hepsinde

Run Time Error '424' : 
Object Required

hatasını verdi

 

[Ferhat Pazarçevirdi]

Merhabalar,

Şu şekilde deneyin. Burada mantık; bağlantının açık olup olmadığını kontrolü ve daha sonrasında kapalıysa, tekrar bağ kurma üzerinedir.

Standart bir modül sayfasına kopyalayın. Conn adlı değişkenin Public tanımlandığına dikkat edin ve kodlarınızın geri kalanlarında local olarak tanımladığınız conn değişkenlerini silin. Yoksa, derleme hatası alırsınız.

Public conn As New ADODB.Connection
Sub SQL_Connect()
With conn
     If .State <> adStateOpen Then
        .Provider = "sqloledb"
        .CommandTimeout = 1200
        .ConnectionString = "Data Source= NETSIS;USER ID= rapor;PASSW=;AUTO TRANSLATE=FALSE"
        .Open
     End If
End With
End Sub

Daha sonra, herhangi bir prosedürü çalıştırmadan önce bu alt prosedürü çağırın.

Sub Kotadan_Stok_Raporu()
'On Error Resume Next
 
Call SQL_Connect
.....
....
End Sub

NOT : Herbir prosedür çalıştırıldığında, tekrar tekrar bağlantı oluşturulmayacağı için, kodlarınızın çalışması farkedilir şekilde hızlanacaktır. Hızlanmanın etkilerini tam olarak görebilmeniz için ise; Prosedürlerinizin sonundaki conn.Close komutlarını kaldırın.

Çalışma Kitabınızın kapanma -Private Sub Workbook_BeforeClose(Cancel As Boolean)- olayına da conn.close komutunu koymayı unutmayın. Bağlantıyı işiniz bittiğinde kesmeniz gerekir.

 

[Rafet]

Sorunuza cevap veremicem. Ama Ayni şeyler üstune , yanı Netsisden raporlama üstüne çalıştığınızdan sorunuz dikkatimi cekti. Bende Netsisten Raporlarımı excel üstünden sağlamaktayım.
3 Servere birleştirerek 7 şube hakkında ayrı ayrı raporlama , takip etme konusunda doğan ihtiyaçlarımızdan dolayı bu yola girdim. Ve 1 senede öyle geliştiki artık hemen herşeyi excelden raporlar yaparak görmeye başladık.

Fakat sizin kullandığınız yönteminizden farklı. Recordset acıyosunuz. Ben bu şekilde bağlantıyı sadece UPDATE , INSERT işlemi yaparak sağlamaktayım. Kulladığım bağlantı sekli şu sekilde.

baglanti2007 =  "ODBC;DRIVER=SQL Server;SERVER=192.168.0.0;UID=Kulanici;PWD=parola;APP=Microsoft Office 2003;DATABASE=DATABASE2007"

    With Sheets("Baglan").Range("Alan1").QueryTable
        .Connection = _
        "" & baglanti & ""
        .CommandText = Array( _
        "SELECT SUBE_KODU, UNVAN ,(CAST(SUBE_KODU AS CHAR(2))+UNVAN) SUBE FROM TBLSUBELER " _
        )
        .Refresh BackgroundQuery:=False
    End With

baglantiyi su an göstermek için bu şekilde gösterdim.Programımın içinde If komutuyla biraz varvasyonlar ile ve option tuşlarını kulanarak roprlarımda sorgulacak baglantiyi sectiriyorum.
Bu bağlantılarda SQL in şifresi gözüktüğünden bir excel sayfasında tanımlayarak baglanti bilgilerini bu sayfada tutmaya çalışıtım. Fakat sayfa şifrelemenin güvenlikli olmadığını düşünerek Accses veritabanıda tutmaya ordan cekmeye çalışıtım Fakat sağlıklı olmadı hala bi çözüm bulamadım.

Ben Excel fonksiyonu oluşturma düşünceniz bende başka düşünceler uyandırdı.
Bir sonuca varırsam excel.web.tr tabi silerle paylaşmak isterim.

 

[serinci]

verdiğiniz yardım ve emekleriden ötürü Sayın Fpc ve Rafet hocalarıma saygılarımı sunuyorum