Question

好孩子们。我的代码有问题。

目标是，当我在组合框中输入一个字母时，它会显示一个可能的模型名称列表。

但每当我输入那个组合框时，它就会给我一个错误。

以下是我正在处理的代码：

Private Sub cmbSearch_Change()
    Dim conn As New ADODB.Connection
    Dim record As New ADODB.Recordset

Dim model As String

model = cmbSearch.Text

If cmbSearch.Text <> "" Then

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\Database.mdb"

    cmbSearch.Clear

     record.Open "SELECT Model FROM LaptopSpecs WHERE Model LIKE '" & model & "%' ORDER BY Model", conn, 3, 3

        If record.RecordCount > 0 Then
            Do While Not record.EOF
                cmbSearch.AddItem record.Fields("Model").Value
                record.MoveNext
            Loop
        End If

        cmbSearch.Text = model
    End If

Set record = Nothing
Set conn = Nothing
End Sub

在conn.open部分中，弹出错误消息。

运行时错误＆＃39; -2147467259（80004005）＆＃39;：未指定的错误

Answer 1

~~假设您使用的是Access：~~ 这个问题不是关于Access，而是如果它在哪里：

扩展此答案，我建议删除示例中的所有代码，并将其替换为此（在表单设计模式下完成）：

将cmbSearch.RowSource属性设置为固定查询，如：
```
SELECT Model FROM LaptopSpecs ORDER BY Model
```
将cmbSearch Auto Expand设置为True。

这将适用于98％的所有ComboBox类型到选择方案，并且应该适用于您的示例。

打开与数据库的连接时出现未指定的错误

1 个答案: