1

プログラムのこの部分を実行すると、3709 のランタイム エラーが発生し続けます。誰かがそれを修正するために私ができることを知っていますか?

Public cn As New ADODB.Connection

Public rs As New ADODB.Recordset

Public CustomerID As Integer

Public CustFirstName As String

Public CustLastName As String


Sub GetCustomerList()

    Dim strSQL As String
    Dim Customers As Variant

    ' Import customer info and use it to populate the list box.
    ' After frmcustomers is unloaded, we will know the CustomerID
    ' and Customer Name of the selected order.

    strSQL = "SELECT CustomerID, CustFirstName, CustLastName FROM Customers"
    rs.Open strSQL, cn

    frmCustomers.Show

    rs.Close
End Sub

ありがとう、

JM

4

5 に答える 5

0

データベースで、インデックスを含むメモフィールドを作成する場合、または自動的にインデックスが付けられるテキストを含むフィールド名を作成する場合、3450文字以上を含むテキストフィールドに書き込むことはできません。フィールドにさらにテキストを書き込んだり、既存のデータを変更しようとすると、次の例外3709のようなエラーメッセージが表示されます。

http://support.microsoft.com/kb/302525

于 2012-12-20T18:40:17.947 に答える
0

報告しているエラーから、呼び出した時点でGetCustomerList()接続が開いていないように見えます。

于 2009-11-28T04:25:31.400 に答える
0

完全を期すために、列ヘッダーの先頭または末尾にスペースがある Excel スプレッドシートをインポートしようとすると、エラー 3709 (検索キーがどのレコードにも見つかりませんでした) が発生します。それを削除すると、消えます。これは Access 2013 にあります。

于 2015-08-19T16:33:45.623 に答える