Access formunu Kayıtlı Yordam'ın sonucuna bağlama

Question

Kayıtlı bir yordamın sonuçlarını bir forma döndürmeye çalışıyorum. Eğer bir nesne atamak her Set kullanmak gerekir

Private Sub RetrieveSiteInformation() 

    Dim cmd As New ADODB.Command 
    Dim cnn As New ADODB.Connection 
    Dim rs As ADODB.Recordset, f As ADODB.Field 

    With cnn 
    .Provider = "SQLOLEDB" 
    .ConnectionString = 
     "data source=UKFCSVR;initial catalog=ACACB;Trusted_Connection=Yes" 
    .Open 
    End With 

    Dim param1 As ADODB.Parameter 
    If Nz(txtSiteID_Search.Value, vbNullString) <> vbNullString Then 
    Set param1 = cmd.CreateParameter("@SiteID", adBigInt, adParamInput) 
    param1.Value = txtSiteID_Search.Value 
    cmd.Parameters.Append param1 
    End If 

    With cmd 
    .ActiveConnection = cnn 
    .CommandText = "spSiteInformation_Retrieve" 
    .CommandType = adCmdStoredProc 
    **' THIS FAILS** 
    Me.Recordset = .Execute 
    **' THIS LOOP WORKS FINE** 
    ' Set rs = .Execute 
    ' rs.MoveFirst 
    ' For Each f In rs.Fields 
    '  Debug.Print f.Name 
    ' Next 
    ' With rs 
    '  Do While Not .EOF 
    '  Debug.Print ![CompanyName] & " " & ![Postcode] 
    '  .MoveNext 
    '  Loop 
    ' End With 
    End With 
    cnn.Close 
End Sub 

Answer 1

Tamam, bu örneği test ettim. Kurulumunuzda tahmin etmektense, bıraktığım kurulumuma uygun değişiklikleri içeriyor. Bunun büyük kısmı, http://support.microsoft.com/kb/281998/EN-US/

Dim cn As New ADODB.Connection 
Dim cmd As New ADODB.Command 
Dim param1 As New ADODB.Parameter 

    With cn 
     .Provider = "Microsoft.Access.OLEDB.10.0" 
     .Properties("Data Provider").Value = "SQLOLEDB" 
     .Properties("Data Source").Value = "Server" 
     .Properties("Integrated Security").Value = "SSPI" 
     .Properties("Initial Catalog").Value = "Test" 
     .Open 
    End With 

    txtSiteID_Search = 1 

    If Nz(txtSiteID_Search, vbNullString) <> vbNullString Then 
     Set param1 = cmd.CreateParameter("@SiteID", adBigInt, adParamInput) 
     param1.Value = txtSiteID_Search 
     cmd.Parameters.Append param1 
    End If 

    With cmd 
     .ActiveConnection = cn 
     .CommandText = "spSiteInformation_Retrieve" 
     .CommandType = adCmdStoredProc 
     Set Me.Recordset = .Execute 
    End With 

Answer 2

: Ben burada

VBA kodu .. bir ADO kayıt kullanarak sonuç aracılığıyla yineleme başarmış, ancak forma sonuçları bağlamak olamaz VBA'da başvuru.

Me.Recordset = .Execute değerini Set Me.Recordset = .Execute olarak değiştirin.

Ayrıca, muhtemelen desteklenen bir imleç türüyle açmanız gerekir. Komut nesnesinde Execute yöntemini kullanırsanız, imleç türünü değiştirmenin bir yolu olduğunu düşünmüyorum. Recordset'i ayrı ayrı oluşturmanız gerekir.

Set rs = New ADODB.Recordset 
rs.Open cmd, , adOpenKeyset 
Set Me.Recordset = rs 

Answer 3

ADO'yu unutun. Access ReturnsRecords = True ile Access'te geçiş sorgusu oluşturun.
Formunuzu bu geçiş sorgusuna bağlayın.
VBA kullanarak, bu QueryDef nesnesinin .SQL özelliğini değiştirin ve formu açın. Sen bittin.

Set qry = CurrentDb.QueryDefs("myQryDef") 
qry.SQL = "exec spMyStoredProc " & "'argument1'"