Very Computer

I'm trying to query a table using the following criteria:

A string "Big Mac $1.95" needs to match a record "Big Mac"

Theoretically, I'd like to chop everything to the right of the blank
space before the $ sign on the string and then match it with the db
lookup.  However, to my knowledge, VB doesn't have a good Chop
function.  Perhaps I could feed the string into a character array or
something?

I also tried kludging something using Like, but was unsucessful.  But,
then again, I'm not a VB pro.

Any ideas?

Thanks in advance,

doug

SELECT * FROM sometable WHERE somefield LIKE 'Big Mac%'

will return you all Big Macs in your database with their respective
prices.
NOTE: The above query is SQL Server specific. In Access you would use
"*" instead of "%".

Try the following function

Function ChopBefore(ToChop) As String
On Error GoTo ChopBeforeErr
If InStr(1, ToChop, " $") > 1 Then
    ChopBefore = Left$(ToChop, InStr(1, ToChop, " $") - 1)
Else
    ChopBefore = ToChop 'No Space and Dollar so return entire string
End If

ChopBeforeEP: 'Exit Point
Exit Function

ChopBeforeErr: 'Error Handler
ChopBefore = ToChop
GoTo ChopBeforeEP
End Function

Hope it helps

Simon Carter

Author of SC4VB
http://www.geocities.com/siliconvalley/park/8079/

Quote:> I'm trying to query a table using the following criteria:

> A string "Big Mac $1.95" needs to match a record "Big Mac"

> Theoretically, I'd like to chop everything to the right of the blank
> space before the $ sign on the string and then match it with the db
> lookup.  

Dim sMystring as String
Dim sMatchstring as String
Dim iloc as integer

sMystring = "Big Mac $1.95"
iloc = Instr(sMystring,"$")   ' get the location of the '$' sign
if iloc > 1 then
   sMatchstring = left$(sMystring, iloc-1)
else
    sMatchstring = sMystring
end if
Debug.print sMatchstring    ' will print Big Mac

Hope this helps,
--- Nick Malik
VB MVP
www.malikinfo.com