MS ACCESS MAILING LIST: Re: [belajar-access] Gagal menjalankan Store Procedure SQL Server [2 Attachments]

Saturday, December 17, 2011

Re: [belajar-access] Gagal menjalankan Store Procedure SQL Server [2 Attachments]

[Attachment(s) from Cecep W included below]

terimakasih mas hariyanto atas responya,
setelah saya coba masih error seperti terlampir:

kemudian saya debug dan ada yang di bold kuning seperti terlampir:

sebagai info tambahan: SQL servernya saya install di kompi yg sama, saya pake SQL Server 2005 Express dan Access 2010

tolong dibantu lagi ya mas.

Regards
CW

Pada 6 Januari 2012 09:19, hari yanto <har_i20002000@yahoo.com> menulis:

Bila menggunakan database Msql, saya belum pernah mencoba. Kalau di database MySql (mungkin sebagai perbandingan dan bahan uji coba), script penggunaan store prosedure melalui vba sbb:

Private Sub Command5_Click()
Dim aa As Variant
Dim rsp As ADODB.Recordset

    KONEKSI
    If conn.State <> 0 Then
        aa = ""
        Set rsp = conn.Execute("call P1('" & text1 & "');")
        If Not rsp.EOF Then
            Do While Not rsp.EOF
                aa = aa & rsp.Fields(0) & vbCrLf
                rsp.MoveNext
            Loop
        End If
    End If
    conn.Close
    Set conn = Nothing
    MsgBox aa
End Sub

Di dalam database MySql, sebelumnya sudah dibuat SP. Contohnya:

CREATE PROCEDURE `P1`(in name char(255))
begin
SELECT Nama_Masalah
FROM BU_MASALAH where asosiasi=name;
end;

Semoga bermanfaat..

Hariyanto (Surabaya)

http://110.139.57.19

--- On Fri, 6/1/12, Cecep W <cepwahyu@gmail.com> wrote:

From: Cecep W <cepwahyu@gmail.com>
Subject: [belajar-access] Gagal menjalankan Store Procedure SQL Server [3 Attachments]
To: belajar-access@yahoogroups.com
Date: Friday, 6 January, 2012, 8:03 AM

Hallo semua,

langsung pada permasalahan, saya sedang membuat database ADP, saya menjalankan Store Procedure melalui VBA tapi selalu error. Store Procedurnya terlampir:

saya sudah membuat Form seperti terlampir :

pada field Media_Date saya memasukan event On Got Focus sbb:

Private Sub Media_Date_GotFocus()

    DoCmd.RunSQL "EXEC SPMediaDate '" & Me.Media_Name & "'"

End Sub

ketika field Media_Date kena Focus dan seharusnya menjalankan VBA tapi selalu error seperti terlampir:

salahnya apa ya? tolong dibantu ya....

Regards
CW