A.S.C Filtre, Grafik ve Raporlama Eklentisi

[VBA] Mssql Procedurü Vba Ile çağırma
#19
ilginiz için teşekürler sayın halily
Function xBagimsizRs( parametre1 as alanTürü, parametre2 as alanTürü) As ADODB.Recordset

bu alanda hataveriyor



  Alıntı
Bu mesajı beğenenler:
#20
(22-09-2022, 01:24)hedefkaya demiş ki: ilginiz için teşekürler sayın halily
Function xBagimsizRs( parametre1 as alanTürü, parametre2 as alanTürü) As ADODB.Recordset

bu alanda hataveriyor

Her iki alanıda alanTürü diye isimlendirmeyin.... As alanTürü.... As alanTürü2 gibi mesela.



  Alıntı
Bu mesajı beğenenler:
#21
yazdığınız kodu paylaşır mısınız?



  Alıntı
Bu mesajı beğenenler:
#22
sayın alperalper dediği gibi de  ayarladım  fakat fonction  satrı  hata  veriyor aşamadım  orayı  

Public tmpRs As ADODB.Recordset
Function xBagimsizRs(parametre1 As STOKARA, parametre2 As BARKODARA) As ADODB.Recordset
 
 Dim xServer As String:        xServer = "DESKTOP-7KVK9N0\SQLEXPRESS"      '<-- Sunucu Adı
Dim xDatabase As String:      xDatabase = "DENEMEDATA"        '<-- VeriTabanı Adı
Dim xStrProc As String:       xStrProc = "STOKLISTE1"  '<-- bu prosedür adı

' On Error GoTo ErrHandler:
 
  Dim objConn As New ADODB.Connection
   Dim objCmd As New ADODB.Command
 Dim objParm1 As New ADODB.Parameter
    Dim objRs As New ADODB.Recordset
 
 ' Set CommandText equal to the stored procedure name.
 objCmd.CommandText = xStrProc '<-- bu prosedür adı olacak
 objCmd.CommandType = adCmdStoredProc
 
 ' Connect to the data source.
' Stop
 Set objConn = New ADODB.Connection
     objConn.ConnectionString = "DRIVER={SQL Server};SERVER=" & xServer & ";DATABASE=" & xDatabase & ";Trusted_Connection=Yes"
     objConn.Open
 objCmd.ActiveConnection = objConn
 
 ' Automatically fill in parameter info from stored procedure.
 objCmd.Parameters.Refresh
 
 
 'objCmd(); 0 tabanlıdır ilk dğer dönüş değeridir parametre girişi 1den başlar
 'objCmd(0) = Null '<--- bu satır fonksiyon olarak kullanılırsa parametre için variant/array/Dizi için deneme amaçlı eklend,
 objCmd(1) = parametre1    '1. parametre        : Name : "@GRUPADI" : String
 objCmd(2) = parametre2    '2. parametre        : Name : "@Secim" : String
'..........
 ' Execute once and display...
 objRs.CursorLocation = adUseClient
 objRs.Open objCmd, , adOpenStatic, adLockReadOnly
     Set tmpRs = objRs.Clone
Set xBagimsizRs = tmpRs.Clone
 
 'clean up
 objRs.Close
 
Cik:
 Set objRs = Nothing
' objConn.Close
 Set objConn = Nothing
 Set objCmd = Nothing
 Set objParm1 = Nothing
 
End Function



  Alıntı
Bu mesajı beğenenler:
#23
Yalniz gönderdiğiniz prosedürde tek parametre vardı



  Alıntı
Bu mesajı beğenenler:
#24
(22-09-2022, 09:12)halily demiş ki: Yalniz gönderdiğiniz prosedürde tek parametre vardı

ALTER PROCEDURE [dbo].[STOKLISTE1] @STOKARA NVARCHAR(50), @BARKODARA NVARCHAR(50) 
AS 
SELECT TOP 1 ID, ADI,BARKOD 
FROM STOK
WHERE ADI = @STOKARA  AND  BARKOD = @BARKODARA  


bu şekilde  ayarladım  ama  hata  veriyor tekrar


accessde  procedür  adını   yanlış yazmıştım  STOKLISTE1  olarak değiştirdim ama  gene  hata  alıyorum



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [VBA] Access Den Mssql Stored Procedure çalıştırma hedefkaya 1 68 19-08-2022, 11:54
Son Mesaj: halily
  [VBA] Mssql Localdb hedefkaya 2 67 06-08-2022, 09:41
Son Mesaj: hedefkaya
  [VBA] Access Vba üzerinden Sorgu çağırma Hatası tanyeri 20 362 13-02-2022, 17:47
Son Mesaj: onur_can
  Alt Form Filtreleme ıle Veri Cagirma kamil_55 14 298 13-02-2022, 01:20
Son Mesaj: kamil_55
  [FORM] Alt Form Filtreleme Ile Veri Cagirma conquerora 4 1.970 09-01-2022, 22:10
Son Mesaj: dsezgin
  [RAPOR] Tablodaki Ilk Satırdan Sonraki Satırı Rapora çağırma (dlookup Yardımı) RENATO 6 212 08-12-2021, 21:02
Son Mesaj: alperalper
  Mssql Hız Sorunu çözümü Ve Bir Soru (access Ile Mssql Kodlarını Tetikleme çözümü) hedefkaya 5 490 25-02-2021, 19:56
Son Mesaj: hedefkaya
  [SORGU] Dört Tablodan Liste kutusuna veri çağırma ve Yürüyen bakiye takip sistemi the.bykus 3 1.940 18-02-2021, 16:14
Son Mesaj: Lidervet

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi