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, с которым вы работаетесо строкой.