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

下面就举例子加以说明。

新建一个项目，项目中有一个窗体（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 & "'"