当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > VB.NET 数据库查询 [SQL字符串的生成]

ASP.NET
二级域名Cookie问题的解决方法
如何为asp.net网站项目添加子项目
asp.net用url重写URLReWriter实现任意二级域名
asp.net 序列化and反序列化演示
asp.net Timer的使用方法
AjaxControlToolKit DropDownExtender(下拉扩展控件)使用方法
AjaxControlToolKit CalendarExtender(日历扩展控件)的使用方法
让GridView只显示特定用户的数据的方法
让GridView只更新某些特定的数据的方法
ajaxControlToolkit中CascadingDropDown的用法说明
axp.net ScriptManager的简单用法
把程序集安装到全局程序集缓存中的步骤
引用全局程序集缓存内的程序集的方法
asp.net COOKIES需要注意的一点
asp.net UrlReWriter使用经验小结
页面导出为Excel的时间格式的问题
asp.net cookie清除的代码
Asp.net XMLHTTP封装类(GET,Post发送和接收数据)
ASP.NET XmlHttp跨域访问实现代码
Asp.NET 随机码生成基类(随机字母,随机数字,随机字母+数字)

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 209 ::
收藏到网摘: n/a

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