VB6 и ошибка SQL

Question

Вот строка кода в SQL, которую я пытаюсь использовать в VB6.

Dim Sqlstring As String

Sqlstring = "Update TroubleTickets set ResolvedDate = ' " + DateValue(Now) + "' where      Title ='" + Trim(TicketComboBox.Text) + "'"

Я получаю сообщение об ошибке, в котором говорится, что типы не совпадают при запуске отладчика.

есть предложения?

Answer 1

Dim Sqlstring As String

Sqlstring = "Update TroubleTickets set ResolvedDate = ' " & DateValue(Now) & "' where      Title ='" & Trim(TicketComboBox.Text) & "'"

Конкат-оператор в VB - это амперсанд &. Вы получаете ошибку несоответствия типов, потому что VB ожидает число, если вы используете +.

Вам также следует рассмотреть возможность использования подготовленных операторов для вставки параметров в запросы SQL.