?
Solved

Executing SQL Function in VB.NET

Posted on 2011-09-19
7
Medium Priority
?
239 Views
Last Modified: 2012-05-12
Hi Everyone,

I currently have a webform as a front end to capture and insert data into an MS SQL database.  I would like to execute a SQL function within my code but have no idea how to go about doing this.  the function's name is 'GetChannel' and it decodes the PBR's ID accordingly to get the right channel.  I've attached my current VB.NET code to insert data into the database.  Would someone be able to help me to call the sql function from my current code?

 
'Open connection string and insert data into the ST database
        
Dim ConnectionString As String
        Dim Connection As SqlConnection
        Dim Adapter As New SqlDataAdapter
        Dim sql As String



        ConnectionString = "Data Source=00.0.000.00;Initial Catalog=ST;User ID=user;pwd=pwd;"
        Connection = New SqlConnection(ConnectionString)

  sql = "insert into table (PBR_ID, Others_Details, Contact_Flag, Comments) VALUES (@PBRID, @Others, '" & ddlcontact.SelectedValue & "', @Comments);"

            Try
                Connection.Open()


                Adapter.InsertCommand = New SqlCommand(sql, Connection)

                Adapter.InsertCommand.Parameters.AddWithValue("@PBRID", tbpbrid.Text)
   Adapter.InsertCommand.Parameters.AddWithValue("@Others", tbneedsothers.Text)
                Adapter.InsertCommand.Parameters.AddWithValue("@Comments", tbcomments.Text)

Adapter.InsertCommand.ExecuteNonQuery()

                Response.Write("<span style='color: green'>Data Submitted</span>")

            Catch ex As Exception
                Response.Write("<span style='color: red>Data Not Submitted</span>")
            End Try

Open in new window


Much thanks!
0
Comment
Question by:sarah_siu
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 3
7 Comments
 
LVL 11

Expert Comment

by:Deepak Lakkad
ID: 36560898
Hi

try following code on line no 13

sql =  "insert into table (PBR_ID, Others_Details, Contact_Flag, Comments) VALUES (dbo.GetChannel(ARGUMENTS), @Others, '" & ddlcontact.SelectedValue & "', @Comments);"

replace dbo with your original schema and
ARUGMENTS with your real arguments

- Deepak Lakkad
0
 

Author Comment

by:sarah_siu
ID: 36560993
Thanks Deepaklakkad - i tried what you suggested but it's not inserting.  I am actually trying to insert the results from GetChannel Function into another field within the table.  I've included the changes... Not sure what i'm doing wrong...

'Open connection string and insert data into the service_Tracking database, ABM Coupon Data table
        Dim ConnectionString As String
        Dim Connection As SqlConnection
        Dim Adapter As New SqlDataAdapter
        Dim sql As String



        ConnectionString = "Data Source=00.0.000.00;Initial Catalog=ST;User ID=user;pwd=pwd;"
        Connection = New SqlConnection(ConnectionString)

       

            sql = "insert into Table(PBR_ID, Others_Details, Contact_Flag, Comments, Channel) VALUES (@PBRID, @Others, '" & ddlcontact.SelectedValue & "', @Comments, dbo.GetChannel(PBR_ID));"

            Try
                Connection.Open()


                Adapter.InsertCommand = New SqlCommand(sql, Connection)

                Adapter.InsertCommand.Parameters.AddWithValue("@PBRID", tbpbrid.Text)
                Adapter.InsertCommand.Parameters.AddWithValue("@Others", tbneedsothers.Text)
                Adapter.InsertCommand.Parameters.AddWithValue("@Comments", tbcomments.Text)

                Adapter.InsertCommand.ExecuteNonQuery()

                Response.Write("<span style='color: green'>Data Submitted</span>")

            Catch ex As Exception
                Response.Write("<span style='color: red>Data Not Submitted</span>")
            End Try

Open in new window

0
 
LVL 11

Accepted Solution

by:
Deepak Lakkad earned 2000 total points
ID: 36561227
hi

try following code

sql = "insert into Table(PBR_ID, Others_Details, Contact_Flag, Comments, Channel) VALUES (@PBRID, @Others, '" & ddlcontact.SelectedValue & "', @Comments, dbo.GetChannel(" & tbpbrid.Text & "));"

- Deepak Lakkad
0
Quick Start: DOCKER

Sometimes you just need a Quick Start on a topic in order to begin using it.. this is just what you need to know to get up and running with Docker!

 

Author Comment

by:sarah_siu
ID: 36561361
I tried the above code and it's not working...

The SQL function is actually stored in the MSSQL database as oppose to a code on my side - does that make a difference?
0
 
LVL 11

Expert Comment

by:Deepak Lakkad
ID: 36561376
what's name of your schema is it dbo? if not pls change it

- Deepak Lakkad
0
 
LVL 21

Expert Comment

by:Alpesh Patel
ID: 36566487
Please provide the command type
0
 

Author Closing Comment

by:sarah_siu
ID: 36589422
Thanks deepaklakkad - and sorry for the delayed acceptance.
0

Featured Post

NEW Veeam Agent for Microsoft Windows

Backup and recover physical and cloud-based servers and workstations, as well as endpoint devices that belong to remote users. Avoid downtime and data loss quickly and easily for Windows-based physical or public cloud-based workloads!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article shows how to deploy dynamic backgrounds to computers depending on the aspect ratio of display
When trying to connect from SSMS v17.x to a SQL Server Integration Services 2016 instance or previous version, you get the error “Connecting to the Integration Services service on the computer failed with the following error: 'The specified service …
Via a live example, show how to extract information from SQL Server on Database, Connection and Server properties
Viewers will learn how to use the INSERT statement to insert data into their tables. It will also introduce the NULL statement, to show them what happens when no value is giving for any given column.

719 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question