Click here to Skip to main content
15,917,795 members
Please Sign up or sign in to vote.
0.00/5 (No votes)
See more:
In vb.net how to use store procedure using how the display the data in data grid view using data reader
Posted

Try:
VB
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
 
Share this answer
 
----------------------------------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?" & 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:" & e.ToString)
End Try
End Sub
End Class

End Namespace
</small>
 
Share this answer
 

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)



CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900