您的位置:首页技术开发ASP技巧 → SQL Server中单引号的两种处理技巧

SQL Server中单引号的两种处理技巧

时间:2004/11/7 4:05:00来源:本站整理作者:蓝点我要评论(1)

数据库打交道要频繁地用到SQL语句,除非你是全部用控件绑定的方式,但采用控件绑定的方式存在着灵活性差、效率低、功能弱等等缺点。因此,大多数的程序员极少或较少用这种绑定的方式。而采用非绑定方式时许多程序员大都忽略

了对单引号的特殊处理,一旦SQL语句的查询条件的变量有单引号出现,数据库引擎就会报错指出SQL语法不对,本人发现有两种方法可以解决和处理这种单引号的问题(以VB为例子)。



---- 方法一:利用转义字符处理SQL语句。下面的函数可以在执行SQL语句前调用,执行处理后的结果即可产生正确的结

果。



Function ProcessStr(str As String)

Dim pos As Integer

Dim stedest As String

  pos = InStr(str, "'")

  

While pos > 0

str = Mid(str, 1, pos) & "'" & Mid(str, pos + 1)

pos = InStr(pos + 2, str, "'")

Wend

ProcessStr = str

End Function

---- 其中str参数是你的SQL字符串。函数一旦发现字符串中有单引号出现,就在前面补上一个单引号。



---- 方法二:利用数据对象中的参数。可以利用ADODB.COMMAND对象,把含有单引号的字符串传递给COMMAND,然后执行查

询等操作即可。



---- 以上两种方法比较,方法一增加了系统处理时间,方法二简洁、高效,如果采用存储过程,然后再传递参数给存储过

程,存储过程是预编译的,这样系统的效率更高。



---- 下面就举例子加以说明。



---- 新建一个项目,项目中有一个窗体(Form1),两个命令按钮,一个MSFlexGrid,名称分别为:Command1,

Command2,MSFlexGrid1,一个COMBOX(COMBO1),它的内容预先设定为"Paolo''f"、"Paolo'f"。Command1演示方法一,

Command2演示方法二,MSFlexGrid1存储方法二查询(SELECT)结果。对于其他的SQL操作(INSERT、DELTER、UPDATAE)方法

极为类似,笔者就不再赘述。例子中用到SQL SERVER中的PUBS数据库中的EMPLOYEE表,同时可以用SQL语法把其中两条记录

中的FNAME改为"Paolo''f"、"Paolo'f"。 SQL语法如下:



update employee set fname=" Paolo''''f"  

where emp_id='PMA42628M'

update employee set fname=" Paolo''f"  

where emp_id='PMA42628M'

---- 程序如下:



---- 首先把前面的函数加入。



---- 在窗体的通用中声明如下变量:



Dim cnn1 As ADODB.Connection  '连接

Dim mycommand As ADODB.Command '命令

Dim rstByQuery As ADODB.Recordset '结果集

Dim strCnn As String  '连接字符串

Private Sub Form_Load()

  Set cnn1 = New ADODB.Connection  '生成一个连接

  strCnn = "driver={SQL Server};" & _

      "server=ZYX_pc;uid=sa;pwd=PCDC;database=pubs" '

没有系统数据源使用连接字符串

   

'strCnn = "DSN=mydsn;UID=sa;PWD=;"

'DATABASE=pubs;Driver={SQL Server};SERVER=gzl_pc" '

如果系统数据源MYDSN指向PUBS数据库,也可以这样用

cnn1.Open strCnn, , , 0 '打开连接

End Sub

Private Sub Command1_Click()    '演示字符处理

Dim i As Integer

Dim j As Integer

  Set parm = New ADODB.Parameter

Set mycommand = New ADODB.Command



Dim str As String

str = Combo1.Text

str = ProcessStr (str)

mycommand.ActiveConnection = cnn1   '

指定该command 的当前活动连接

mycommand.CommandText = " select * from

employee where fname = '" & str & "'"

mycommand.CommandType = adCmdText   '表明command 类型

Set rstByQuery = New ADODB.Recordset

Set rstByQuery = mycommand.Execute()

i = 0

Do While Not rstByQuery.EOF

i = i + 1    '  i 中保存记录个数

rstByQuery.MoveNext

Loop

MSFlexGrid1.Rows = i + 1  '动态设置MSFlexGrid的行和列

MSFlexGrid1.Cols = rstByQuery.Fields.count + 1

MSFlexGrid1.Row = 0

For i = 0 To rstByQuery.Fields.count - 1

MSFlexGrid1.Col = i + 1

MSFlexGrid1.Text = rstByQuery.Fields.Item(i).Name

Next   '设置第一行的标题,用域名填充



i = 0

'Set rstByQuery = mycommand.Execute()

rstByQuery.Requery

Do While Not rstByQuery.EOF

  i = i + 1

  MSFlexGrid1.Row = i  '确定行

  For j = 0 To rstByQuery.Fields.count - 1

  MSFlexGrid1.Col = j + 1

  MSFlexGrid1.Text = rstByQuery(j)  '添充所有的列

  Next

rstByQuery.MoveNext



   Loop  '这个循环用来填充MSFlexGrid的内容

End Sub

Private Sub Command2_Click()'参数方法

Dim i As Integer

   Dim j As Integer



Set parm = New ADODB.Parameter

Set mycommand = New ADODB.Command



' parm_jobid.Name = "name1"  this line can be ommited

parm.Type = adChar '参数类型

parm.Size = 10          '参数长度

parm.Direction = adParamInput '参数方向,输入或输出

parm.Value = Combo1.Text      '参数的值

mycommand.Parameters.Append parm  '加入参数

  





mycommand.ActiveConnection = cnn1   '

指定该command 的当前活动连接

mycommand.CommandText = " select *

from employee where fname =? "        

mycommand.CommandType = adCmdText   '表明command 类型

Set rstByQuery = New ADODB.Recordset

Set rstByQuery = mycommand.Execute()

i = 0

Do While Not rstByQuery.EOF

i = i + 1    '  i 中保存记录个数

rstByQuery.MoveNext

Loop

MSFlexGrid1.Rows = i + 1  '动态设置MSFlexGrid的行和列

MSFlexGrid1.Cols = rstByQuery.Fields.count + 1

MSFlexGrid1.Row = 0

For i = 0 To rstByQuery.Fields.count - 1

MSFlexGrid1.Col = i + 1

MSFlexGrid1.Text = rstByQuery.Fields.Item(i).Name

Next   '设置第一行的标题,用域名填充



i = 0

rstByQuery.Requery

Do While Not rstByQuery.EOF

  i = i + 1

  MSFlexGrid1.Row = i  '确定行

  For j = 0 To rstByQuery.Fields.count - 1

  MSFlexGrid1.Col = j + 1

  MSFlexGrid1.Text = rstByQuery(j)  '添充所有的列

  Next

rstByQuery.MoveNext



   Loop  '这个循环用来填充MSFlexGrid的内容

End Sub

---- 查询部分可以用存储过程以提高处理效率,减低网络流量。



---- 本程序在NT WORKSTATION 4.0 SP4、SQL SERVER 7.0 上调试通过。




相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论
发表评论

热门文章 没有查询到任何记录。

最新文章 VB.NET 2005编写定时关 Jquery get/post下乱码解决方法 前台gbk gb如何使用数据绑定控件显示数据ASP脚本循环语句ASP怎么提速

人气排行 轻松解决"Server Application Error"和iis"一起学习DataGridView调整列宽用ASP随机生成文件名的函数Jquery get/post下乱码解决方法 前台gbk gbODBC Drivers错误80004005的解决办法返回UPDATE SQL语句所影响的行数的方法用Javascript隐藏超级链接的真实地址两个不同数据库表的分页显示解决方案