MS ACCESS MAILING LIST: {Disarmed} Re: [belajar-access] Gagal menjalankan Store Procedure SQL Server

Tuesday, December 13, 2011

{Disarmed} Re: [belajar-access] Gagal menjalankan Store Procedure SQL Server

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)

MailScanner warning: numerical links are often malicious: 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

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (2)

Recent Activity:

New Members 9

Visit Your Group

SPAM IS PROHIBITED

MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

if(window.yzq_d==null)window.yzq_d=new Object(); window.yzq_d['dkTbANGDJHs-']='&U=13c2g73as%2fN%3ddkTbANGDJHs-%2fC%3d493064.14543979.14562481.13298430%2fD%3dMKP1%2fB%3d6060255%2fV%3d1';