how to call stored procedure in vb.net

[shubhageetha]

I have stored procedure in sql server as follows

USE [KHHAPS1]
GO
/****** Object:  StoredProcedure [dbo].[sp_transcrt]    Script Date: 09/30/2014 16:22:48 ******/
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
-- Used to Create the HAPSTran Table By copying All Required fields from HAPSMast Table
-- @YrMn  contains the present YearMonth value
create PROCEDURE [dbo].[sp_transcrt]
@YrMn as char(6),
@TypeInst as varchar(6),
@User as varchar(3),
@Cnt as int OUTPUT as
declare @TTableName as Char(11)
select @TTableName='TT' +  @TypeInst+@User
declare @m1 as int
declare @YrMn2 as char(6)
select @m1=convert(int,right(@YrMn,2))
if @m1=1 
begin
declare @y1 as int
select @y1=convert(int,left(@YrMn,4))
select @y1=@y1-1
select @YrMn2=CONVERT(CHAR(4),@y1)+'12'
end
else
begin
select @m1=@m1-1
declare @mm as char(2)
if @m1<10 
select @mm='0' + convert(char(1),@m1)
else
select @mm= convert(char(2),@m1)
select @YrMn2= left(@YrMn,4)+@mm
end
insert  HAPSTran(InstId,EmpCode,Yrmn,DeptCode,UnitCode,HapsCat,Basic,Basic35,SpfAmt,Mhap,Haps3,Short,Incentive,Eligible,EveAct,EveElg,Arrears,Gross,Tds,Deduction,Net,HAPS,Variable,AGP,hapsperc,userid,Datem,timem,Moddate,Moduser) select @TypeInst,EmpCode,@YrMn,DeptCode,UnitCode,HapsCat,Basic,0,PLI,0,0,0,0,0,0,0,0,0,0,0,0,'Y',Variable,AGP,HapsPerc,@User,getdate(),null,null,null
from HAPSMast where active <> 'N' AND HAPSMast.InstId = @TypeInst
UPDATE HAPSTran 
SET basic35 =  ROUND((b.basic+a.AGP) * (cast(a.NPAPerc as float) / CAST(100 AS FLOAT)),0) from HAPSMAST a INNER JOIN HAPSTran b ON A.Empcode = B.Empcode AND A.InstId = B.InstId where b.yrmn = @Yrmn AND A.InstId = @TypeInst AND b.InstId = @TypeInst
UPDATE HAPSTran 
SET WDays =  (select nodays from hapscutoff ) where unitCode='ANS001' and  yrmn = @Yrmn 
 
UPDATE HAPSTran 
SET WDays =  0 where unitCode <> 'ANS001' and  yrmn = @Yrmn 

and I want to call this in vb.net. please send the source code

[Frinavale]

Use the SqlConnection class to open a connection to your database and use the SqlCommand Class to execute a command that calls your stored procedure.

For example:

  Dim connectionString As String = "Server=ipOfSQLServerHost;Database=DatabaseName;User ID=userID; Password=theDatabasePassword;" 'your specific connection string needs to go here
  Dim queryString As String= "sp_transcrt"
  Dim output As String
 
  Using connection As New SqlConnection(connectionString)
 
      Dim command As New SqlCommand(queryString, connection)
      command.CommandType = CommandType.StoredProcedure
 
      command.Parameters.Add("@YrMn", SqlDbType.VarChar, 6)
      command.Parameters.Add("@TypeInst", SqlDbType.VarChar, 6)
      command.Parameters.Add("@User", SqlDbType.VarChar, 6)
      command.Parameters.Add("@Cnt", SqlDbType.VarChar)
      command.Parameters("@Cnt").Direction = ParameterDirection.Output
 
      command.Connection.Open()
 
      Dim numRows As Integer = command.ExecuteNonQuery()
      If IsDBNull(command.Parameters("@Cnt").Value) = False Then
            output = command.Parameters("@Cnt").Value
      End If
 
  End Using