[SQL Server]单引号的两种处理技巧(2)

　　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 '参数类型