hi i was confused to use the procedure...here is my code where i want to connect this procedure to my code....pls help me..
Protected Sub Button7_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button7.Click
Dim connection As New SqlConnection
Dim cmd As New SqlCommand
Dim adapter As New SqlDataAdapter
Dim ds As New DataSet
Dim binaryImage As Byte() = FileUpload1.FileBytes
connection.ConnectionString = ("Data Source=RIFAYEE-PC;Initial Catalog=Test;Integrated Security=True")
connection.Open()
cmd = New SqlCommand("insert into employee(empcode,fname,lname,age,dob,doj,pan,company,desig,dept,tsalary,image,gsalary,hra,conveyance,oallowance,mallowance,pfund,ptax,npayable)values(@empcode,@fname,@lname,@age,@dob,@doj,@pan,@company,@desig,@dept,@tsalary,@image,@gsalary,@hra,@conveyance,@oallowance,@mallowance,@pfund,@ptax,@npayable)", connection)
cmd.Parameters.Add("empcode", SqlDbType.Int).Value = txtecode.Text
cmd.Parameters.Add("fname", SqlDbType.VarChar).Value = txtfname.Text
cmd.Parameters.Add("lname", SqlDbType.VarChar).Value = txtlname.Text
cmd.Parameters.Add("age", SqlDbType.Int).Value = txtage.Text
cmd.Parameters.Add("dob", SqlDbType.Date).Value = txtdob.Text
cmd.Parameters.Add("doj", SqlDbType.Date).Value = txtdoj.Text
cmd.Parameters.Add("pan", SqlDbType.VarChar).Value = txtpno.Text
cmd.Parameters.Add("company", SqlDbType.VarChar).Value = txtcompany.Text
cmd.Parameters.Add("desig", SqlDbType.VarChar).Value = txtdesig.Text
cmd.Parameters.Add("dept", SqlDbType.VarChar).Value = txtdept.Text
cmd.Parameters.Add("tsalary", SqlDbType.Int).Value = txttotsalary.Text
cmd.Parameters.Add(New SqlParameter("@image", binaryImage))
cmd.Parameters.Add("gsalary", SqlDbType.Int).Value = txtgsalary.Text
cmd.Parameters.Add("hra", SqlDbType.Int).Value = txthra.Text
cmd.Parameters.Add("conveyance", SqlDbType.Int).Value = txtconveyance.Text
cmd.Parameters.Add("oallowance", SqlDbType.Int).Value = txtoallowance.Text
cmd.Parameters.Add("mallowance", SqlDbType.Int).Value = txtmallowance.Text
cmd.Parameters.Add("pfund", SqlDbType.Int).Value = txtpfund.Text
cmd.Parameters.Add("ptax", SqlDbType.Int).Value = txtptax.Text
cmd.Parameters.Add("npayable", SqlDbType.Int).Value = txtnpayable.Text
'cmd.Connection = connection
adapter.SelectCommand = cmd
adapter.Fill(ds)
connection.Close()
ClientScript.RegisterStartupScript(Page.[GetType](), "insert", "<script language='javascript'> alert('Employee Record Updated')</script>")
End Sub