ストアドプロシージャ 呼び出す VB.NET

ストアドプロシージャを呼び出す。
ストアドプロシージャはサーバー内に定義されています。

ストアドプロシージャを選択。
%e3%82%b9%e3%83%88%e3%82%a2%e3%83%89%ef%bc%91

ストアドプロシージ名をつけます。
呼び出すだけなのでパラメータを削除
%e3%82%b9%e3%83%88%e3%82%a2%e3%83%89%ef%bc%92

入力がメンドクサイかたはコピペ。

— ================================================
— Template generated from Template Explorer using:
— Create Procedure (New Menu).SQL

— Use the Specify Values for Template Parameters
— command (Ctrl-Shift-M) to fill in the parameter
— values below.

— This block of comments will not be included in
— the definition of the procedure.
— ================================================
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
— =============================================
— Author:
— Create date:
— Description:
CREATE PROCEDURE meiboSELECT
— Add the parameters for the stored procedure here

AS
BEGIN
— SET NOCOUNT ON added to prevent extra result sets from
— interfering with SELECT statements.
SET NOCOUNT ON;

— Insert statements for procedure here
select * from meibo
END
GO

いらないコメントとか残ってますが気にしないで。

今回はmeiboテーブルを呼び出します。

この程度ならストアドプロシージャにする意味ないですが練習ということで。

サーバー側でストアドプロシージャを右クリックから実行してくださいね。
ストアドプロシージャ作成してください。
当たり前ですがmeiboテーブルがなければ動きません。

ソース
Imports System.Data.SqlClient
Public Class Form1
Dim cn As New SqlConnection(
“Data Source=(local)\SQL;” +
“Initial Catalog=ADO;” +
“Integrated Security=True;Pooling=False”)

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim adapter As New SqlDataAdapter()
adapter.SelectCommand = New SqlCommand()
adapter.SelectCommand.CommandType = CommandType.StoredProcedure

adapter.SelectCommand.CommandText = “meiboSELECT”

adapter.SelectCommand.Connection = cn

Dim table As New DataTable()
adapter.Fill(table)
DataGridView1.DataSource = table
End Sub

コマンドタイプにストアドプロシージャを設定して
adapter.SelectCommand.CommandType = CommandType.StoredProcedure
ストアドプロシージャを指定するだけです。
adapter.SelectCommand.CommandText = “meiboSELECT”

思ったより簡単に出来ますよね。

シェアする

  • このエントリーをはてなブックマークに追加

フォローする

Translate »