2011-07-05 93 views
0

我試圖填補文本框與此代碼中發現的SQL查詢拉到信息:VB6 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 

調試器當前flaging設置rstCurrentTicket聲明。並給我的,說

RUN TIME ERROR 3146 ODBC Call failed

回答

1

假設標題是一個字符串錯誤,請嘗試更改分配Sqlstring這樣的:

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

你需要在你的TicketComboBox文本的單引號預選賽告訴你正在使用String的SQL語句。

+0

我按照你的建議做了,現在我得到了一個不同的錯誤。它現在說編譯錯誤:找不到方法或數據成員。調試器突出顯示了我用來實現此代碼的方法:'Public Sub SelectButton_Click()' – jth41

+0

@John很難說沒有查看更多項目的情況,但是項目中缺少SelectButton_Click()事件?如果存在這樣的事件,那麼代碼嘗試調用它可能會超出範圍。 –

+0

它在項目中有保護地嘗試過公共和私人..謝謝壽 – jth41