ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[MasterofOmk]

Merhaba değerli arkadaşlar,
Öncelikle sağlıklı günleriniz olsun, aşağıda verdiğim prosedür sql içinde sorunsuz çalışırken, excel makro olarak çağırdığımda nesne kapalı hatası veriyor. Ancak başka prosedürler excel içinde çalışıyor, daha önce bu tip sorunla karşılaşan ve çözen varmı yardımcı olabilir mi?

exec p_uretim_makinalari_performansi 2, '2020-04-13' , '2020-04-13' ,0, N'SL' ,0

Şimdiden cevap veren arkadaşlara teşekkür ederim.

[Tarkan VURAL]

Merhaba,
Hangi metotla Excel içinden SQL tarafına gönderiyorsunuz ?

Connection nesnesinin execute özelliği ile bu stringi direkt SQL tarafına post edebilirsiniz.

Kod: Tümünü seç

set con = createobject("adodb.connection")
con.open "provider=sqloledb; data source=sunucu;initial catalog=veritabani;user id=sqlkullanici;password=parola"
sorgu="exec p_uretim_makinalari_performansi 2, '2020-04-13' , '2020-04-13' ,0, N'SL' ,0"
con.execute sorgu

[MasterofOmk]

Merhaba,
Hangi metotla Excel içinden SQL tarafına gönderiyorsunuz ?

Connection nesnesinin execute özelliği ile bu stringi direkt SQL tarafına post edebilirsiniz.

Kod: Tümünü seç

set con = createobject("adodb.connection")
con.open "provider=sqloledb; data source=sunucu;initial catalog=veritabani;user id=sqlkullanici;password=parola"
sorgu="exec p_uretim_makinalari_performansi 2, '2020-04-13' , '2020-04-13' ,0, N'SL' ,0"
con.execute sorgu

Sorgum aşağıda gördüğünüz gibidir, işin tuhaf tarafı aynı metod ile başka prosedürler çalışıyor.

Kod: Tümünü seç

Public Sub mak_perfor()

Dim cnPubs  As ADODB.Connection
Set cnPubs = New ADODB.Connection
Dim strConn As String



cnPubs.ConnectionTimeout = 0
cnPubs.CommandTimeout = 0
strConn = "Provider=SQLOLEDB.1;Initial catalog=maklar;User ID=sa;Password=*****;Data Source=*********;"


cnPubs.Open strConn


Dim rsPubs As ADODB.Recordset
Set rsPubs = New ADODB.Recordset

Dim sirketkod As Integer
Dim tarih As String
Dim aybasi As String
Dim vardiya As Integer
Dim islemyer As String
Dim interco As Integer
Dim sqlkod As String


sirketkod = 2
tarih = WorksheetFunction.Text(Sheets(1).Range("a1"), " 'yyyy-mm-dd' ")
ay = Day(Sheets(1).Range("a1")) - 1
If ay = 0 Then
aybasi = tarih
Else
aybasi = WorksheetFunction.Text(Sheets(1).Range("a1") - ay, " 'yyyy-mm-dd' ")
End If
vardiya = 0
islemyer = " 'SL' "
interco = 0
cikis_yeri = 0


sqlkod = "exec p_uretim_makinalari_performansi  " & sirketkod & "," & tarih & "," & tarih & "," & vardiya & "," & islemyer & "," & interco & " "
With rsPubs
.ActiveConnection = cnPubs

Set rsPubs = cnPubs.Execute(sqlkod)

[Tarkan VURAL]

Parametreler procecure içine giderken string gitmesi gerekebilir. Belki aşağıdaki şekilde tek tırnak ilavesi ile çözülür.

Kod: Tümünü seç

sqlkod = "exec p_uretim_makinalari_performansi  '" & sirketkod & "','" & tarih & "','" & tarih & "','" & vardiya & "','" & islemyer & "','" & interco & "' "

SP içindeki değişken veri tiplerini görmediğimiz için çok yorum yapamıyoruz.