任务是当用户以逗号来分隔查询的条件，的多条件查询，使用IN(x,y)，但是当在数据库(ACCESS)对应的字段是字符型是就会出现错误，那是当然的！如果是IN('x','y')就没有问题！

---------SQL生成----------

任务是当用户以逗号来分隔查询的条件，的多条件查询，使用IN(x,y)，但是当在数据库(ACCESS)对应的字段是字符型是就会出现错误，那是当然的！如果是IN('x','y')就没有问题！

下面的代码就是对字符串的操作，返回 'x','y'。

'-----接受要处理的字符串-------

Function Tool_disTest(ByVal TextBefore As String)

Dim TextAfter() As String

Dim intNum, intTextLen, k, i As Integer

intNum = 1

intTextLen = Len(TextBefore)

'--------计算有多少的查询条件--------

For i = 1 To intTextLen

If Mid(TextBefore, i, 1) = "," Then

intNum = intNum + 1

End If

Next

'-----------------------------------

ReDim TextAfter(intNum)

k = 1

'--------把每个条件放到数组里---------

For i = 1 To intTextLen

If Mid(TextBefore, i, 1) = "," Then

k += 1

Else

TextAfter(k) = TextAfter(k) & Mid(TextBefore, i, 1)

End If

Next

'----------------------

Dim strTemp As String

'--------为每一个条件加上''----------

For i = 1 To intNum

strTemp = TextAfter(i)

TextAfter(i) = "'" & strTemp & "'"

Next

'----------------------

strTemp = ""

'------添加分隔条件用的","------

For i = 1 To intNum

strTemp = strTemp & TextAfter(i) & ","

Next

'------------------

'------去除最后一个,------

strTemp = Mid(strTemp, 1, Len(strTemp) - 1)

'-------------------

Return strTemp

End Function

最后在SQLServer中又试了试，发现SQLServer查询的时候用IN(x,y)来查询字符型是OK的,(SQLServer就是比ACCESS强点,呵呵)

---------end-------