VB.NET数据库查询（SQL字符串的生成）

VB.NET数据库查询（SQL字符串的生成）2008-04-23---------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-------