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

      2017/07/13

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

ストアドプロシージャを選択。
%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"

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

PR



 - ADO.NET

Translate »