Schritte Zum Beheben Des Erfolgreichen Verbindungsfehlers 3709 Von Vbscript

[PC-Benutzer] Hören Sie auf, mit Windows-Fehlern zu kämpfen. Reimage kann helfen. Hier herunterladen.

Sie könnten sehr gut einen Fehler finden, der darauf hinweist, dass Sie einen aktiven Bond-Fehler von vbscript 3709 sehen. Nun, es gibt mehrere Möglichkeiten, dies zu beheben, also werden wir uns beide in Kürze damit befassen.

Zuallererst (und definitiv nicht im Zusammenhang mit Ihrem Fehler) müssen Sie auf ein bestimmtes Microsoft-Datenobjekt mit einem anderen ActiveX-Wert als 2.0 verweisen, es sei denn, der Kunde muss Clients unterstützen, die Windows zweitausendsieben oder früher ausführen. Wenn Sie ADODB nur verwenden, um mit der Datenbank zu interagieren, verfügen Sie aufgrund von All nicht definitiv über die Microsoft Access 16.0-Objektbibliothek.

vbscript activeconnection errors 3709

Zweitens: Wenn Sie jetzt einen Übertragungslink haben, erstellen Sie aus irgendeinem Grund keine späten Linkblöcke mehr:

  Define cn = CreateObject ("ADODB.connection") 

Fügen Sie alle unsere Links frühzeitig zu Linktypen hinzu, erwähnen Sie sie klar und erstellen Sie sie praktisch alle mit Neu :

  Dim cn As ADODB.ConnectionDefiniere cn bedeutet New ADODB.Connection 

vbscript activeconnection error 3709

Die Verbindungslinie muss korrekt sein. Probleme ergeben sich aus den folgenden Zeilen:

  Set rs1 bedeutet CreateObject ("ADODB.recordset")    rs1.activeconnection impliziert cn 

Ausführen von ADODB.Command gibt das ungekürzte Recordset zurück, nicht umgekehrt. Löschen Sie 2 solcher Zeilen dauerhaft. Anstatt die gesamte Konfiguration zu Recordset hinzuzufügen, wird sie jeder benötigen, wenn sie die Eigenschaft der Familie ADODB.Command erhält:

  Dim strSQL als neues ADODB.Command    strSQL.ActiveConnection = cn '<--- Füge dies ein.    strSQL.CommandText entspricht "SELECT FROM 2. Table1"    strSQL.CommandType ist gleich, während adCmdText 

Sie sollten auch die ungarische Namenskonvention angeben - ist definitiv meistens verwirrend. Der ADODB-Befehl ist sicherlich einfach nicht String , und warum sollte diese Methode also strFoo genannt werden?

Sie müssen auch an Ort und Stelle aufräumen - normalerweise lassen Sie das Recordset und die Verbindung sofort nach der Fertigstellung geöffnet. Rufen Sie nach der Erstellung auf. Schließen .

Schließlich ist Ihre SQL-Anweisung ziemlich vollständig gefälscht - Sie müssen Ihre TID für einfache Anführungszeichen ( ') vollständig einschließen:

  "SELECT * FROM TOOL WHERE TID = 'BD0001'" 
  Sub Importfromaccess ()    Der dunklere Weg in Form jeder Kette    Pfad bedeutet "C:BenutzermyUserDesktopDatenbank1. Accdb"   Dim cn als ADODB.Connection    Set = cn Neue ADODB.Connection    cn.Open "Anbieter impliziert Microsoft.ACE.OLEDB.12.0; Datenquelle =" & trek & ";"    Schwache Abfrage als neues ADODB.Command    request.ActiveConnection Cn = query.CommandText steht "SELECT * FROM Tooling WHERE TID = 'BD0001'"    query.CommandType bedeutet adCmdText   Dim rs1 als ADODB.Recordset    Rs1 tv set = query.Execute 'Ethen seine Zeile, in der der Fehler auftritt    Tabellen ("Calc"). Reichweite ("K1"). CopyFromRecordset rs1    'MACH DICH SAUBER:    RS1. Nah dran    kn. Nah dranDie Fertigstellung des U-Bootes 

Fügen Sie hier Ihre Lösung hinzu

Vorschau 0

Der Inhalt sollte möglichst zwischen 30 und 50.000 Zeichen betragen.

Nur-Text

ASM

ASP

ASP.NET

BASIS

BAT

C#

C++

COBOL

Skript Café

CSS

Dart

Rekord

F#

FORTRAN

HTML

Java

Javascript

Kotlin

Lua

MIDL

MSIL

ZielC

Pascal

PERL

PHP

PowerShell

Python

Rasierer

Rubin

Rock

Schüssel

SLN

SQL

Schnell

T4

Lassen Sie sich nicht von Windows-Fehlern aufhalten.

Lassen Sie sich nicht von Ihren PC-Problemen unterkriegen! Das Reimage-Reparaturtool kann Ihnen helfen, häufige Windows-Probleme schnell und einfach zu diagnostizieren und zu beheben. Außerdem können Sie durch die Verwendung von Reimage die Systemleistung steigern, den Arbeitsspeicher optimieren, die Sicherheit verbessern und Ihren PC für maximale Zuverlässigkeit optimieren. Warten Sie also nicht - laden Sie Reimage noch heute herunter!

  • Schritt 1: Reimage herunterladen und installieren
  • Schritt 2: Öffnen Sie das Programm und klicken Sie auf "Scannen"
  • Schritt 3: Klicken Sie auf "Reparieren", um den Reparaturvorgang zu starten

  • Terminal

    TypeScript

    VB

    VBScript

    XML