如何使用vb.net中的存储过程在datagrid视图中显示数据 [英] how to display the data in datagrid view using store procedure in vb.net

问题描述

在vb.net中如何使用存储过程如何使用数据读取器显示数据网格视图中的数据

In vb.net how to use store procedure using how the display the data in data grid view using data reader

推荐答案

尝试：

Try:

Using con As New SqlConnection(strConnect)
	con.Open()
	Using cmd As New SqlCommand("MyStoredProcedureName", con)
		cmd.CommandType = CommandType.StoredProcedure
		Dim read As SqlDataReader = cmd.ExecuteReader()
                ' Use the reader as normal.
	End Using
End Using

------------ ----------------------代码写在.VB页面--------------

Imports System.Data.SqlClient

Public Class FinMstCodeList

Dim cmd As New SqlCommand

Dim dr As SqlDataReader



Public Sub FinMstCodeList_Load（ByVal sender As System.Object，ByVal e As System.EventArgs）Handles MyBase.Load



cmd.Connection = My.Application.cn

cmd.CommandText =Sel_MasterCodeList

cmd.CommandType = CommandType.StoredProcedure

cmd.Parameters.Clear（）

cmd.Parameters.AddWithValue（@ intCode，My.Application.MastCode）

cmd.Parameters.AddWithValue（@ chrHelpColumnFilter，STATUS_CODE IN（0， 21））

尝试

dr = cmd.ExecuteReader

当dr.Read

DataGridView1.Rows.Add（dr（CODE），dr（NAME），dr（CITY_NAME）dr（MOBILE_NO））

结束时

Catch ex As Exception

MessageBox.Show（Error？& amp; amp; amp; ex.Message）

最后

dr.Close（）

结束尝试

结束子

结束班



---------------------------- ------在应用程序事件中创建连接--------------

Imports System.Data.SqlClient

命名空间我的< br $>


部分朋友类MyApplication

Const cnstr As String =数据源= .;初始目录= DBName;用户ID = sa;密码= pwd

Public cn As New SqlConnection（cnstr）



Private Sub MyApplication_Shutdown（ByVal sender As Object，ByVal e As System.EventArgs处理Me.Shutdown

cn.Close（）

End Sub



Private Sub MyApplication_Startup（ByVal sender） As Object，ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs）处理Me.Startup

尝试

cn.Open（）

Catch derror As SqlClient.SqlException

MessageBox.Show（Error Occured：& amp; amp; amp; e.ToString）

结束尝试

结束次级

结束班级



结束命名空间

----------------------------------Code write in .VB page--------------
Imports System.Data.SqlClient
Public Class FinMstCodeList
Dim cmd As New SqlCommand
Dim dr As SqlDataReader

Public Sub FinMstCodeList_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

cmd.Connection = My.Application.cn
cmd.CommandText = "Sel_MasterCodeList"
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.Clear()
cmd.Parameters.AddWithValue("@intCode", My.Application.MastCode)
cmd.Parameters.AddWithValue("@chrHelpColumnFilter", "STATUS_CODE IN(0,21)")
Try
dr = cmd.ExecuteReader
While dr.Read
DataGridView1.Rows.Add(dr("CODE"), dr("NAME"), dr("CITY_NAME") dr("MOBILE_NO"))
End While
Catch ex As Exception
MessageBox.Show("Error?" &amp;amp; ex.Message)
Finally
dr.Close()
End Try
End Sub
End Class

----------------------------------In Application Events Create Connection --------------
Imports System.Data.SqlClient
Namespace My

Partial Friend Class MyApplication
Const cnstr As String = "Data Source=.;Initial Catalog=DBName;User ID=sa;Password="pwd"
Public cn As New SqlConnection(cnstr)

Private Sub MyApplication_Shutdown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shutdown
cn.Close()
End Sub

Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
Try
cn.Open()
Catch derror As SqlClient.SqlException
MessageBox.Show("Error Occured:" &amp;amp; e.ToString)
End Try
End Sub
End Class

End Namespace

</small>

这篇关于如何使用vb.net中的存储过程在datagrid视图中显示数据的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！