Question

I want to splite the value with single quote

Dim usr as string

usr = "01,AF,BF,CD,DF,FE,"

I want to pass this string to sql query

Sql Query

Select * from table1 where code in ('" & usr & "')

Output nothing is displaying, bcoz passing the string in sql is not proper

Sql will not understand ’01,AF,BF,CD,DF,FE,’, Instead of this we need to pass
the string like this

user = 'AF', 'BF', 'CD', 'FE'

How to do this.

Need vb6 code help

Answer 1

This is how I’d do it:

usr = Replace(Left(usr, Len(usr) - 1), ",", "','")
sql = "Select * from table1 where code in ('" & usr & "')"