troubleshooting Question

not all variable bound...what am I missing

Avatar of codefinger
codefingerFlag for United States of America asked on
ProgrammingVisual Basic.NETSQL
6 Comments1 Solution434 ViewsLast Modified:
Probably something obvious.  I have four eyes and sometimes I am still blind.

Do you see it?  I don't. Error is "Not all variables bound".  
Public Function CheckLock(ByVal recid As Long) As DataSet

            Dim retval As DataSet = Nothing
            Dim strsql As New System.Text.StringBuilder

            Dim db As Database = DatabaseFactory.CreateDatabase()

            Try
                strsql.Append("SELECT LOCKED_BY,LOCKED_WHEN FROM MYCHARTREGISTRATION.PATIENT_DETAILS ")
                strsql.Append(" WHERE RECORD_ID = :xRECORD_ID ")

                Dim dbCommandWrapper As DbCommand = db.GetSqlStringCommand(strsql.ToString)

                ''RECORD_ID                                 NOT NULL NUMBER
                db.AddInParameter(dbCommandWrapper, ":xRECORD_ID", DbType.Int32, recid)

                retval = db.ExecuteDataSet(CommandType.Text, strsql.ToString)


            Catch ex As Exception
                Me.LastException.MESSAGE = ex.Message
                If Not ex.InnerException Is Nothing Then
                    Me.LastException.DETAIL = ex.InnerException.Message
                End If
                Me.LastException.SOURCE = "DQ -- DataQueries -- CheckLock"
            Finally

            End Try

            Return retval




        End Function
ASKER CERTIFIED SOLUTION
codefinger

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Join our community to see this answer!
Unlock 1 Answer and 6 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 6 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros