VBA 用select来选择表1中“字段1”的值

dogfire4169

各位大大，
困扰呀。有人能解一下吗？？？


  strSQL = "SELECT * FROM 表1"  --- 正常显示

  strSQL = "SELECT * FROM 表1 where 字段1 = " & Sheet1.TextBox2.value & ""   ------ error 。看图3


我的code , 不好意思。不是自己写的。就是网路copy 和 AI 生成的。


Private Sub UserForm_Initialize()
With UserForm1.ListView1

.view = lvwReport

.Gridlines = True

.FullRowSelect = True

.HideSelection = False

.ColumnHeaders.Add , , "ID", 20, lvwColumnLeft

.ColumnHeaders.Add , , "字段1", 100, lvwColumnCenter

.ColumnHeaders.Add , , "字段2", 100, lvwColumnCenter

.ColumnHeaders.Add , , "字段3", 100, lvwColumnCenter

.ColumnHeaders.Add , , "字段4", 100, lvwColumnCenter
End With


Application.ScreenUpdating = False
  UserForm1.ListView1.ListItems.Clear
  Dim cnn As New ADODB.Connection
  Dim RST As New ADODB.Recordset
  Dim stpath, strSQL As String
  Dim lvItem As listItem
  File_Path = Sheet1.TextBox1.value
  
'  Con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & File_Path & ";"
cnn.connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & File_Path & ";"
    cnn.Open
'  strSQL = "SELECT * FROM 表1"

  strSQL = "SELECT * FROM 表1 where 字段1 = " & Sheet1.TextBox2.value & ""
  
  RST.Open strSQL, cnn, adOpenKeyset, adLockOptimistic, adCmdText
  If RST.BOF = False Then
  RST.MoveLast
  icount = RST.RecordCount
  Debug.Print icount
  RST.MoveFirst
    For i = 1 To icount
   

      Set lvItem = UserForm1.ListView1.ListItems.Add(, , RST.Fields("ID").value)
      UserForm1.ListView1.ListItems(i).SubItems(1) = IIf(IsNull(RST.Fields("字段1")), "", RST.Fields("字段1"))
      UserForm1.ListView1.ListItems(i).SubItems(2) = IIf(IsNull(RST.Fields("字段2")), "", RST.Fields("字段2"))
      UserForm1.ListView1.ListItems(i).SubItems(3) = IIf(IsNull(RST.Fields("字段3")), "", RST.Fields("字段3"))
      UserForm1.ListView1.ListItems(i).SubItems(4) = IIf(IsNull(RST.Fields("字段4")), "", RST.Fields("字段4"))


     RST.MoveNext
    Next i
    End If
  RST.Close
  cnn.Close

  Application.ScreenUpdating = True
End Sub

dogfire4169

用like，后面的&“% ”一定要摆对。已经爬到文，解决了！

Search_Item = TextBox2.Text

strSQL = "SELECT * FROM 统防工作记录 WHERE 农场流水号 like" & "'%" & Search_Item & "%'"

shiruiqiang

这是模糊查询的语句

dogfire4169

shiruiqiang 发表于 2024-10-1 07:07
这是模糊查询的语句

无所谓，我的textbox2是引用固定的值（值还是乱数产生的，不容易有重复）。所以能解决问题即可。何必在语法上打转呢！

dogfire4169

其实，我还是希望有人知道正解是什么!!!!!

shiruiqiang

主要一下，字段两旁需要加“'”

条件语句.[where 字段名=字段值注意:字段值是日期两旁加#，名称两旁加””号,数字无需

shiruiqiang

学习一下where的格式吧

shiruiqiang

看一下，1、2和3、4不同

shiruiqiang

按照你原本的写法，是在字段1中查找叫《" & Sheet1.TextBox2.value & "》的名称

dogfire4169

shiruiqiang 发表于 2024-10-1 08:21
主要一下，字段两旁需要加“'”
条件语句.[where 字段名=字段值注意:字段值是日期两旁加#，名称两旁加”” ...

多谢大大，果然是按你的方法才是对的，学习了。