单引号的两种处理技巧的

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

没一部成功的 Dim i As Integer

Dim j As Integer

Set parm = New rameter

Set mycommand = New mand

Dim str As String

str = xt

str = ProcessStr (str)

tiveConnection = cnn1 \'

指定该command 的当前活动连接

mandText = \" select * from

employee where fname = \'\" str \"\'\"

mandType = adCmdText \'表明command 类型

Set rstByQuery = New cordset

Set rstByQuery = ecute()

i = 0

Do While Not F

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

veNext

Loop

ws = i + 1 \'动态设置MSFlexGrid的行和列

ls = unt + 1

w = 0

For i = 0 To unt - 1

l = i + 1

xt = em(i).Name

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

i = 0

\'Set rstByQuery = ecute()

query

Do While Not F

i = i + 1

w = i \'确定行

For j = 0 To unt - 1

l = j + 1

xt = rstByQuery(j) \'添充所有的列

Next

veNext

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

End Sub

Private Sub Command2_Click()\'参数方法

Dim i As Integer

Dim j As Integer

Set parm = New rameter

Set mycommand = New mand

\' parm_ = \"name1\" this line can be ommited

pe = adChar \'参数类型