VB.NET 数据库查询 [SQL字符串的生成]

王朝vb·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

---------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-------

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航