---

.

---

---

Metode dan Algoritma | Memanggil Stored Procedure pada VB.NET dengan Parameter Input Output . Anda bisa melakukan konsultasi tentang Memanggil Stored Procedure pada VB.NET dengan Parameter Input Output melalui form di samping kanan !!!

---

Memanggil Stored Procedure pada VB.NET dengan OleDb SQL Server :

    Private Sub BtnUpdSQL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnUpdSQL.Click
        Dim con As New SqlConnection
        con.ConnectionString = "Data Source=.\sqlexpress;Initial Catalog=btc;Integrated Security=True"
        con.Open()


        Dim cmd As New SqlCommand
        cmd.Connection = con
        cmd.CommandType = CommandType.Text
        cmd.CommandText = "hitungGaji"


        'parameter input SP "jmlgaji"=@kode dari textboxkodedepartemen.text
        cmd.Parameters.Add("@kodedept", OdbcType.VarChar)
        cmd.Parameters("@kodedept").Direction = ParameterDirection.Input
        cmd.Parameters("@kodedept").Value = TextBoxKodeDeptMySQL.Text


        cmd.Parameters.Add("@total", OdbcType.Double)
        cmd.Parameters("@total").Direction = ParameterDirection.Output


        cmd.ExecuteNonQuery()
        

        Dim intCount As Integer = 0
        Double.TryParse(cmd.Parameters("@total").Value, intCount)


        If intCount > 0 Then TextBoxJumlahMySQL.Text = intCount.ToString 

    End Sub

Pada Odbc, memanggil Stored Procedure tidak bisa dilakukan secara langsung dengan Tipe CommandType.StoredProcedure, harus menggunakan  Memanggil Stored Procedure dengan VB.NET pada Odbc MySQL :

    Private Sub ButtonCariMySQL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonCariMySQL.Click
        Dim con As New OdbcConnection
        Dim cmd As New OdbcCommand
        Dim lreturn As Boolean = True


            'koneksi ke sql server---------------------------------
            con.ConnectionString = "driver={mysql odbc 3.51 driver};server=localhost;database=karyawan;uid=root;password= ;"
            con.Open()


            'nama stored procedure=jmlgaji---------------------------
            cmd.Connection = con
            cmd.CommandType = CommandType.StoredProcedure
            cmd.CommandText = "call hitungGaji('" & TextBoxKodeDeptMySQL.Text & "',@total)"


            cmd.Parameters.Add("@total", OdbcType.Double)
            cmd.Parameters("@total").Direction = ParameterDirection.Output


            cmd.ExecuteNonQuery()


            'command mengambil hasil procedure hitungGaji
            Dim cmd2 As New OdbcCommand("SELECT @total", con)
            MsgBox(cmd2.ExecuteScalar.ToString)
    End Sub

---

ActionScript AS3 ASP.NET AJAX C / C++ C# Clipper COBOL ColdFusion DataFlex Delphi Emacs Lisp Fortran FoxPro Java J2ME JavaScript JScript Lingo MATLAB Perl PHP PostScript Python SQL VBScript Visual Basic 6.0 Visual Basic .NET Flash MySQL Oracle Android

---

Related Post :

---

Judul: Memanggil Stored Procedure pada VB.NET dengan Parameter Input Output
Rating: 100% based on 99998 ratings. 5 user reviews.
Ditulis Oleh hank2

Anda sedang membaca artikel tentang Memanggil Stored Procedure pada VB.NET dengan Parameter Input Output, Semoga artikel tentang Memanggil Stored Procedure pada VB.NET dengan Parameter Input Output ini sangat bermanfaat bagi teman-teman semua, jangan lupa untuk mengunjungi lagi melalui link Memanggil Stored Procedure pada VB.NET dengan Parameter Input Output.

---