[英]vb6 sql database error
我正在尝试使用此代码中的 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 调用失败
假设 Title 是一个字符串,请尝试将您对Sqlstring
的分配更改为:
Sqlstring = "Select SubmiterName, Department, Description, Urgency, SubmitDate, ResolvedDate from TroubleTickets where Title ='" & Trim(TicketComboBox.Text) & "'"
您需要在 TicketComboBox 文本周围使用单引号限定符来告诉 SQL 语句您正在使用字符串。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.