Gewusst wie: Auffüllen eines ListBox mit ADODB.Recordset (Fehler 91) Zu Tun Autocompletion in Access

Arbeite ich an einer Access DB, und ich habe die Verwendung einer Datasource-Verbindung zu einem SQL-Server.

Zu tun, dass ich die ADODB-Objekt mit :

-ADODB.Verbindung

-ADODB.Recordset

Code Up-to-date, nach einer Beobachtung von Ian Kenney

   Dim cnn As ADODB.Connection
   Set cnn = New ADODB.Connection
   Dim rs As ADODB.Recordset

   cnn.ConnectionString = "driver={SQL Server};provider=SQLOLEDB;server=10.****;uid=****readonly;pwd=****readonly;database=****"
   cnn.Open

  Set rs = cnn.Execute("SELECT [MATRI], [NOMPRE] FROM SCHEME_DB.TABLE WHERE NOMPRE LIKE '*" & Me.Textbox_recherche.Text & "*'")



  Me.Liste_choix.RowSourceType = "Table/List"
  Me.Liste_choix.Recordset = rs

  rs.Close
  cnn.Close

(Mit diesem code (ein Teil des Codes) ist ein Weg, um einen Autocompletion in Access mit einer TextBox und einer ListBox)

Und ich habe einen Fehler 91, wenn ich diesen code ausführen : "Fehler 91: Objektvariable oder With-block variable nicht festgelegt" .

Ich verstehe nicht, wie dieses Problem zu beheben.

Vielen Dank im Voraus.

InformationsquelleAutor Quentin T. | 2013-04-26

6

Sie erzählte uns, dass code-Fehler 91, "Objekt-variable oder With-block variable nicht festgelegt". Leider, Sie nicht angeben, welche Zeile löst den Fehler aus. Das zwingt uns, zu erraten, wo das problem liegt.

Einzige Problem ist hier:
```
Me.Liste_choix.Recordset = rs
```
Dass versucht wird eine Zuweisung von einem Objekt zum anderen. Die = Zeichen ist ausreichend für die Aufgaben mit einfachen Datentypen ... ie MyVariable = 2. Allerdings müssen Sie die Set Schlüsselwort, mit dem Objekt-Zuordnungen.
```
Set Me.Liste_choix.Recordset = rs
```
Obwohl Sie machen sollten, das zu ändern, ich bin mir nicht sicher, dass war die Ursache des Fehlers 91; hätte ich geahnt Zugriff beschweren würde "Ungültige Verwendung der Eigenschaft" statt.

Den SELECT Erklärung ist ein anderes problem, aber wieder bin ich unsicher, ob es dazu beiträgt, um den Fehler gemeldet. Die WHERE - Klausel verwendet eine Like Vergleich mit einem Muster, das hat * als wild-card-Charakter. Die Abfrage zurückgeben kann, was Sie erwarten, wenn Sie führen Sie es von DAO. Aber du bist mit ADO behandelt * als nur ein Sternchen ohne Besondere Bedeutung. Also, die Abfrage wahrscheinlich keine Zeilen zurückgegeben, wenn Sie Sie ausführen von ADO. Ersetzen * mit %.

Als Allgemeine Ratschläge, wenn Ihr code Modul nicht bereits Option Explicit in seinen Deklarationen im Abschnitt, fügen Sie es. Dann führen Sie Debug->Kompilieren von VB-Editor im Hauptmenü. Fix alles, was der compiler beschwert sich darüber. Stellen Sie sicher, dass Sie getan haben, diejenigen Dinge, die vor jeder weiteren Fehlersuche.
- Vielen Dank, ich gebe Euch die bounty, aber ich denke ein wesentliches problem ist die Art und Weise, wie zu erklären, das ADODB.Connection-Objekt. Wir haben zu erklären, dieses Objekt mit .Eigenschaften (weiß nicht genau, warum...), wie in meiner Antwort...
InformationsquelleAutor HansUp

Ich mein problem gelöst (Fehler 91), gab Es drei Probleme : die Erstellung des ADODB.Verbindung, die * in der Select - (Dank HansUp) und das Set für die listbox.recordset (Dank HansUp wieder)

Löste ich den Fehler :

        Private Sub Textbox_recherche_Change()

                Dim cnn As ADODB.Connection
                Set cnn = New ADODB.Connection
                Dim rs As ADODB.Recordset

'A important point to solve the Error 91 is to declare your ADODB.Connection with .Properties like that : (I don't use Windows NT authentification but the SQL Server authentification)


                With cnn
                    .Provider = "Microsoft.Access.OLEDB.10.0"
                    .Properties("Data Provider").Value = "SQLOLEDB"
                    .Properties("Data Source").Value = "10.******"
                    .Properties("User ID").Value = "*****readonly"
                    .Properties("Password").Value = "*****readonly"
                    .Open
                End With

    'The second point is to replace the * in the search for the autocompletion by the %

              Set rs = cnn.Execute("SELECT [NOMPRE] FROM ****.***** WHERE NOMPRE LIKE '%" & Me.Textbox_recherche.Text & "%'")

    'You have to declare the RowSourceType of your listbox to "Table/Query"

            Me.Liste_choix.RowSourceType = "Table/Query"

    'And Finally to SET your recordset like that:

            Set Me.Liste_choix.Recordset = rs

               rs.Close
               cnn.Close

               Set cnn = Nothing
               Set rs = Nothing              

            End Sub

InformationsquelleAutor Quentin T.

4

Haben Sie geschlossen, das recordset und die Verbindung, bevor Sie es verwenden

rs hier geschlossen
```
   rs.Close  
```
und die Verbindung wird hier geschlossen
```
   cnn.Close

Me.Liste_choix.RowSourceType = "Table/List"
```
rs verwendet hier
```
Me.Liste_choix.Recordset = rs
```
Update
Aus der docs:

Mithilfe der Close-Methode schließen Sie ein Connection-Objekt auch schließt
aktiv-Recordset-Objekte im Zusammenhang mit der Verbindung. Ein Befehl
- Objekt zugeordnet, das Connection-Objekt, die Sie schließen werden
fortbestehen, aber es wird nicht mehr einem Anschluss zugeordnet werden Objekt;
ist, dass die ActiveConnection-Eigenschaft auf Nothing festgelegt. Auch,
das Befehlsobjekt Parameter-Auflistung wird gelöscht, jeder
provider-Parameter definiert.

Mithilfe der Close-Methode schließen Sie ein Recordset, Record-oder Stream-Objekt
releases werden die entsprechenden Daten und exklusiv-Zugriff auf Sie gehabt haben können
um die Daten über das jeweilige Objekt. Später können Sie rufen Sie die
Open-Methode zu öffnen, das Objekt mit der gleichen oder geänderten
Attribute. Während ein Recordset-Objekt geschlossen wird, aufrufen von Methoden
das erfordert eine live-cursor, wird ein Fehler generiert.

SQL-INJECTION
Es gibt auch eine sql-injection Risiko durch den Aufbau von sql direkt aus den Benutzereingaben.

Diese Frage (MS Access prepared statements) zeigt, wie eine parametrierte Abfrage - könnte einen Blick Wert sein.
- Ist dies nicht der Grund des Fehlers, wenn ich mich bewege den rs.Schließen und cnn.Dicht unter Mir.Liste_choix.Recordset = rs, ich hab schon den Fehler.
- haben Sie versuchen, bewegen Sie den rs.schließen / cnn.in der Nähe, nachdem Sie das recordset verwenden?
- Ja... Mich.Liste_choix.RowSourceType = "Tabelle/Liste" Mir.Liste_choix.Recordset = rs rs.In der Nähe cnn.In der Nähe
- Das ADODB.Verbindung Element ist anders als DAO.Datenbank-Objekt... Und ich muss mit dieser ADODB-Element, da der datasource-Verbindung zu einem SQL-Server.
- Gut vorausgesetzt, Sie haben überprüft die Verbindung geöffnet ok und das recordset verfügt über einige Daten, die Mir.Textbox_recherche.Text und Mir.Liste_choix gültig sind kontrolliert, dann glaube ich nicht, ich kann mehr helfen, als don ' T haben Zugang zu hand.
- Diese video führt Sie durch einige Möglichkeiten zum Debuggen von access-code - möglicherweise helfen Ihnen
InformationsquelleAutor Ian Kenney

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.