1.  SQL中用字符串变量和数值型变量

'sql中包含并使用变量str  (注意该变量是字符串)
Private Sub CommandButton7_Click()
Dim str As String
str = "my5"
Set conn = New ADODB.Connection: conn.Open "dsn=excel files;dbq=" & ThisWorkbook.Path & "\db.xls"
sql = "select * from [a$] where xm='" & str & "'"
[a2].CopyFromRecordset conn.Execute(sql): conn.Close: Set conn = Nothing
End Sub
'sql中包含并使用变量nl2  (注意该变量是数值型)
Private Sub CommandButton8_Click()
nl2 = 10
Set conn = New ADODB.Connection: conn.Open "dsn=excel files;dbq=" & ThisWorkbook.Path & "\db.xls"
sql = "select * from [a$] where nl= " & nl2 & ""
[a2].CopyFromRecordset conn.Execute(sql): conn.Close: Set conn = Nothing
 
End Sub