单引号两种处理技巧覆盖

“好似我是个怪物 程序如下： 首先把前面的函数加入。在窗体的通用中声明如下变量： Dim cnn1 As nnection \'连接Dim mycommand As mand \'命令Dim rstByQuery As cordset \'结果集Dim strCnn As String \'连接字符串Private Sub Form_Load()Set cnn1 = New nnection \'生成一个连接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数据库，也可以这样用en strCnn, , , 0 \'打开连接End SubPrivate Sub Command1_Click() \'演示字符处理Dim i As IntegerDim j As IntegerSet parm = New rameterSet mycommand = New mandDim str As Stringstr = xtstr = ProcessStr (str)tiveConnection = cnn1 \'指定该command 的当前活动连接mandText = \" select * fromemployee where fname = \'\" str \"\'\"mandType = adCmdText \'表明command 类型Set rstByQuery = New cordsetSet rstByQuery = ecute()i = 0Do While Not Fi = i + 1 \' i 中保存记录个数ws = i + 1 \'动态设置MSFlexGrid的行和列ls = unt + w = 0For i = 0 To unt - l = i + xt = em(i).NameNext \'设置第一行的标题，用域名填充i = 0\'Set rstByQuery = ecute()queryDo While Not Fi = i + w = i \'确定行For j = 0 To unt - l = j + xt = rstByQuery(j) \'添充所有的列veNextLoop \'这个循环用来填充MSFlexGrid的内容End SubPrivate Sub Command2_Click()\'参数方法Dim i As IntegerDim j As IntegerSet parm = New rameterSet mycommand = New mand\' parm_ = \"name1\" this line can be pe = adChar \'参数类型ze = 10 \'参数长度rection = adParamInput \'参数方向，输入或输出lue = xt \'参数的值pend parm \'加入参数tiveConnection = cnn1 \'指定该command 的当前活动连接mandText = \" select *from employee where fname =? \"mandType = adCmdText \'表明command 类型Set rstByQuery = New cordsetSet rstByQuery = ecute()i = 0Do While Not Fi = i + 1 \' i 中保存记录个数ws = i + 1 \'动态设置MSFlexGrid的行和列ls = unt + w = 0For i = 0 To unt - l = i + xt = em(i).NameNext \'设置第一行的标题，用域名填充i = queryDo While Not Fi = i + w = i \'确定行For j = 0 To unt - l = j + xt = rstByQuery(j) \'添充所有的列veNextLoop \'这个循环用来填充MSFlexGrid的内容End Sub

查询部分可以用存储过程以提高处理效率，减低络流量。本程序在NT WORKSTATION 4.0 SP4、SQL SERVER 7.0 上调试通过。