asked on

Could not find stored procedure 'False'.

using the following:

Private Sub PopulateApps()

Dim b As New BuildDetails
Dim ds As DataSet
Dim dvw As DataView

ds = b.GetBuildApp(Session("ComputerID2"))
dvw = ds.Tables(0).DefaultView()
dvw.Sort() = "AppName"
With ddlApps
.DataSource = dvw
.DataValueField = "ApplicationID"
.DataTextField = "AppName"
End With
ddlApps.DataBind()

End Sub

Function:

Friend Function GetBuildApp(ByVal ComputerID As String) As DataSet
Dim db As New DataAccess
Dim cn As New SqlConnection(db.ConnectStr)
Dim sSQL As String = "Select ca.ComputerID, a.ApplicationID, a.AppName " & _
"From tblComputerApplication ca " & _
"INNER JOIN tblApplication as a ON ca.ApplicationID=a.ApplicationID " & _
"Where ComputerID" = ComputerID
Dim da As New SqlDataAdapter(sSQL, cn)
Dim ds As New DataSet("App")
cn.Open()
da.Fill(ds, "App")
cn.Close()
Return ds
End Function

I get the following error:

Could not find stored procedure 'False'.

David H.H.Lee

OSLAdmin ,
This line :
"Where ComputerID" = ComputerID
Change to
"Where ComputerID = " & ComputerID

DotNetLover_Baan

Change your SQL String

Dim sSQL As String = "Select ca.ComputerID, a.ApplicationID, a.AppName " & _
"From tblComputerApplication ca " & _
"INNER JOIN tblApplication a ON ca.ApplicationID=a.ApplicationID " & _
"Where ComputerID" = ComputerID

DotNetLover_Baan

oops.... typo...
but x_com has done that , already...

OSLAdmin

ASKER

that does not solve the problem unfortunatly

AerosSaga

somewhere you have specified stored procedure as your command type. That is what is causing the error. Look for any text containing storedprocedure.

AerosSaga

where does it error out at?

DotNetLover_Baan

Ok do this...

Friend Function GetBuildApp(ByVal ComputerID As String) As DataSet
Dim db As New DataAccess
Dim cn As New SqlConnection(db.ConnectStr)
'Change SQL String a bit
Dim sSQL As String = "Select ca.ComputerID, a.ApplicationID, a.AppName " & _
"From tblComputerApplication ca, tblApplication a WHERE ca.ApplicationID=a.ApplicationID " & _
"AND ComputerID=" & ComputerID
Dim da As New SqlDataAdapter(sSQL, cn)
da.SelectCommand.CommandType = CommandType.Text 'Add this line
Dim ds As New DataSet("App")
cn.Open()
da.Fill(ds, "App")
cn.Close()
Return ds
End Function

ASKER CERTIFIED SOLUTION

David H.H.Lee

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

AerosSaga

look for this somewhere in your code:

cmd.CommandType = CommandType.StoredProcedure

jnhorst

x_com first obervation is right, but you need to put single quotes around your computer id string.

Try:

Dim sSQL As String = "Select ca.ComputerID, a.ApplicationID, a.AppName " & _
"From tblComputerApplication ca " & _
"INNER JOIN tblApplication as a ON ca.ApplicationID=a.ApplicationID " & _
"Where ComputerID = '" & ComputerID & "'"

And then if this does not work, create a command with the above sql and use it to create the adapter.

Dim cmd As New SqlCommand(sSQL)
Dim da As New SqlAdapter(cmd)

John

jnhorst

Oops, x_com has already seen that... if it works point go to him.

John