SQL inµÄÎÊÌâ

Êý¾ÝÔ´
¼ÆË㹫ʽ
H1-2*K1
K1
W1-2*K1
W1
H1

Ä¿±êÐèÇó
ÓÃSQL IN ·½·¨,SQL°üº¬-,*µÄ¼Ç¼.
ÏÂÃæ³ÌÐò²»ÄÜʵÏÖÄ¿±ê,ºÃÏñÊÇ%µÄÓ¦ÓÃ.лл.
¸½³ÌÐò.

Function ConnectRst(Sql As String) As ADODB.Recordset
    Dim Cnn As New ADODB.Connection
    Dim Rst As New ADODB.Recordset
    Cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;imex=1';data source=" & ThisWorkbook.FullName
    Rst.Open Sql, Cnn, adOpenStatic
    Set ConnectRst = Rst
End Function


Sub llss()
  Dim Sql As String
  Sql = "select ¼ÆË㹫ʽ from [Sheet1$] WHERE ¼ÆË㹫ʽ not IN ('%-%','+','%*%','/') "
  Dim Rst As ADODB.Recordset
  Set Rst = ConnectRst(Sql)
  With Rst
    .MoveFirst
    For ii = 0 To .RecordCount - 1
      Debug.Print .Fields(0)
      .MoveNext
    Next ii
  End With
End Sub

---

Æ®¹ý

---

try:

SQL code:

Sql = "select ¼ÆË㹫ʽ from [Sheet1$] WHERE ¼ÆË㹫ʽ not like '%[/*+-]%';"




{{---