vb6 sql数据库错误

Question

我正在尝试使用此代码中的 SQL 查询提取的信息填充文本框：

Dim Sqlstring As String
Dim rstCurrentTicket As Recordset

Sqlstring = "SELECT SubmiterName, Department, Description, Urgency, SubmitDate,     ResolvedDate 
               FROM TroubleTickets 
              WHERE Title = " + Trim(TicketComboBox.Text)

SET rstCurrentTicket = cnnSel.OpenRecordset(Sqlstring)

Do While Not rstCurrentTicket.EOF

  TicketComboBox.AddItem (rstCurrentTicket!TroubleTicketTitle)

Loop

调试器当前正在标记 Set rstCurrentTicket 语句。并给我一个错误，上面写着

运行时错误 3146 ODBC 调用失败

Answer 1

假设 Title 是一个字符串，请尝试将您对 Sqlstring 的分配更改为：

Sqlstring = "Select SubmiterName, Department, Description, Urgency, SubmitDate,     ResolvedDate from TroubleTickets where Title ='" & Trim(TicketComboBox.Text) & "'"

您需要在 TicketComboBox 文本周围使用单引号限定符来告诉 SQL 语句您正在使用字符串。