Question

请问怎么把SQL语句 Select 得到的内容赋值给一个单元格

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column > 1 Then Exit Sub
If Target = "" Then Exit Sub

Dim cnn As Object, SQL$
Dim myPath As String
Set cnn = CreateObject("ADODB.Connection")
myPath = ThisWorkbook.Path & "\" & "BZ.mdb"
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & myPath & ";Jet OLEDB:Database Password=123"
SQL = "Select " & Join([b1:p1&""], ",") & " from 数据源 where 序号=" & Target & ""
Target.Offset(, 1).CopyFromRecordset cnn.Execute(SQL)
cnn.Close
Set cnn = Nothing
If Target.Cells.Count <> 1 Then Exit Sub
If Target.Column <> 1 Then Exit Sub
If Target = "" Then Range("q" & Target.Row) = ""
If Not IsDate(Target.Offset(, 5)) Then Range("q" & Target.Row) = SQL = "Select 数量=数量+1 from 数据源 where 序号= & Target & "
End Sub
最后一句SQL语句执行后在excel中结果是FALSE请问该如何改写
http://pan.baidu.com/s/1kT3S975

Answer 1

你用两个等号就是先将SQL赋值给单元格，然后将单元格的内容与后面等号右边的进行比较，相同则为真，不同则返回false