VB.Net by API/System.Data/CommandType

CommandType.StoredProcedure

<source lang="vbnet"> Imports System Imports System.Data Imports System.Data.SqlClient Imports System.Windows.Forms Module Module1

   Sub Main()
       " Create a connection object
       Dim dbConn As New SqlConnection( _
                      "server=(local); database=pubs; integrated security=true")
       Dim cmd As New SqlCommand()
       cmd.rumandText = "spRetrieveAuthor"
       cmd.rumandType = System.Data.rumandType.StoredProcedure
       cmd.Connection = dbConn
       cmd.Parameters.Add(New SqlParameter("@au_id", SqlDbType.Char, 11, "au_id"))
       Dim da As New SqlDataAdapter(cmd)
       Dim ds As New DataSet("Author")
       da.SelectCommand.Parameters(0).Value = "172-32-1176"
       da.Fill(ds)
       If Not ds Is Nothing Then
           MessageBox.Show("Hi, author: " & _
                                  ds.Tables(0).Rows(0)("au_lname").ToString())
       End If

   End Sub

End Module

 </source>