繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > VB.NET 数据库查询 [SQL字符串的生成]
- ASP.NET
- 调用另外一个同名的重载函数漏掉括号出现的严重问题
- DataGrid模板列应用：在DataGrid中用CheckBox控制TextBox的Enabled属性
- 使用存储过程的一个小例子
- .net中xmlhttp下载文件的方法参考
- 简单的c#文本文件读写
- 我的C#学习过程 第一天 安装
- 在数据库中开始一个事务。
- 用ASP.NETt实现简单的文字水印
- C/S系统中三层结构（Com/Com+）的测试成功实现
- VB 二进制块读写类模块应用实例，包括一个文件拷贝和一个文件二进制比较的例子。
- 扫雷程序“布雷”代码（vb）
- 关于网络连接状态的编程
- c#中ref和out参数使用时需要注意的问题
- use Assembly to call a method
- 在VBA中调用AUTOCAD打印文件
- 在VS.NET的
- 昨天折腾了一晚上，哪位高手帮我看看！急！
- Net是未来的趋势吗?
- 如何修改自定义Webpart 的标题(downmoon)
- [收藏]ASP.Net生成静态HTML页 选择自 coofucoo 的 Blog
ASP.NET 中的 VB.NET 数据库查询 [SQL字符串的生成]
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 74 ::
收藏到网摘: n/a
任务是当用户以逗号来分隔查询的条件，的多条件查询，使用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-------
评论 (0) All
