SqlString Not Allowed with & in string

[Don]

I found that when I use this same routine where the values are As String the string for the SQL is fine but when I change it to As SqlString I get an error

Error 1 Operator '&' is not defined for types 'String' and 'System.Data.SqlTypes.SqlString'

How do I create a string with a set of SQL parms where one of the values may be a SqlString since I may pass a Null.


Public Sub Clear_TDNTRKDLM(ByRef Clr_TRK_SalesLocation As SqlString, _
ByRef Clr_TRK_SubSalesLocation As SqlString)
'
On Error GoTo Clear_TDNTRKDLM_Error
'
Dim strDELETE_SQL As String
'
strDELETE_SQL = "DELETE TDNTRKMAS " & _
"WHERE KMLOC = " & Clr_TRK_SalesLocation

cnn.Execute(strDELETE_SQL)
'
Clear_TDNTRKDLM_Exit:
Exit Sub
'
Clear_TDNTRKDLM_Error:
'Call GeneralErrorRoutine(Err, "Clear_TDNTRKDLM")
Resume Next
'
End Sub

[Hack]

I have never, ever used Sqlstring for a variable which contains a query.

What is the issue with sticking with As String?

[Don]

I used because the returning value from the DB can be Null. In the string case the code passes thru the error routine and keeps going. Big question was why it had an issue with the &.

[joewmaki]

Try using + instead of &. + is the standard concatenation operator for SQL, although it will probably raise an error since your appending it to a string. Can't you eliminate the Nulls when retrieving the SqlString value?

I found that when I use this same routine where the values are As String the string for the SQL is fine but when I change it to As SqlString I get an error

Error 1 Operator '&' is not defined for types 'String' and 'System.Data.SqlTypes.SqlString'

How do I create a string with a set of SQL parms where one of the values may be a SqlString since I may pass a Null.


Public Sub Clear_TDNTRKDLM(ByRef Clr_TRK_SalesLocation As SqlString, _
ByRef Clr_TRK_SubSalesLocation As SqlString)
'
On Error GoTo Clear_TDNTRKDLM_Error
'
Dim strDELETE_SQL As String
'
strDELETE_SQL = "DELETE TDNTRKMAS " & _
"WHERE KMLOC = " & Clr_TRK_SalesLocation

cnn.Execute(strDELETE_SQL)
'
Clear_TDNTRKDLM_Exit:
Exit Sub
'
Clear_TDNTRKDLM_Error:
'Call GeneralErrorRoutine(Err, "Clear_TDNTRKDLM")
Resume Next
'
End Sub