Stappen Om Vbscript Actieve Verbindingsfout 3709 Te Herstellen

[PC-gebruikers] Stop met worstelen met Windows-fouten. Reimage kan helpen. Download hier.

Misschien vindt u een fout die impliceert dat u vbscript 3709 nogal drukke verbindingsfout ziet. Welnu, er zijn verschillende manieren om dit op te lossen, dus daar zullen we binnenkort naar kijken.

Allereerst (en niet gerelateerd aan uw ongelooflijke fout), tenzij u clients met Windows 2007 of eerder moet ondersteunen, moet u verwijzen naar een Microsoft Data Object via de hoogste ActiveX-waarde anders als het gaat om 2.0. Als u alleen ADODB gebruikt om met de database te communiceren, heeft iemand Microsoft Access 16.0 Object Library for All niet nodig.

vbscript activeconnection error 3709

Ten tweede, als je al een link naar een transfersite hebt, maak dan geen late link om bijvoorbeeld:

  Definieer cn = CreateObject ("ADODB.verbinding") 

Voeg praktisch onze links naar linktypes ruim op tijd toe, declareer ze duidelijk en veroorzaak ze allemaal met Nieuw :

  Dim cn As ADODB.ConnectionDefinieer cn = Nieuwe ADODB.Verbinding 

vbscript activeconnection error 3709

De verbindingsreeks moet correct zijn. Problemen doen zich voor in de volgende regels:

  Set rs1 betekent CreateObject ("ADODB.recordset")    rs1.activeconnection wat betekent dat cn 

Het uitvoeren van ADODB.Command -inkomsten over de gehele Recordset , in plaats van andersom. Verwijder een paar van deze regels permanent. In plaats van de configuratie aan Recordset toe te voegen, hebt u deze nodig wanneer u families ADODB.Command -eigenschap maakt:

  Dim strSQL als nieuw ADODB.Command    strSQL.ActiveConnection komt overeen met cn '<--- Voeg dit toe.    strSQL.CommandText = "SELECTEER UIT 2. Tabel1"    strSQL.CommandType is een nieuwe versie van adCmdText 

Je gooit ook echt de Hongaarse naamgevingsgebeurtenis weg - het is vooral verwarrend. Het ADODB-commando is gewoon niet String , dus waarom zou deze modus strFoo heten?

U moet ook opruimen - laat de recordset en verbinding meestal onmiddellijk na het bereiken openstaan. Als u klaar bent, belt u . Sluit .

Per slot van rekening is uw SQL-zin bijna volledig vervalst - men moet uw TID absoluut tussen enkele aanhalingstekens plaatsen ( '):

  "SELECTEER * FROM TOOL WHERE TID = 'BD0001'" 
  Sub Importfromaccess ()    Het donkere pad in het creëren van een ketting    Pad = "C:  Users  myUser  Desktop  Database1. Accdb"   Dim cn als ADODB.Verbinding    Set is gelijk aan cn Nieuwe ADODB.Verbinding    cn.Open "Provider = Microsoft.ACE.OLEDB.12.0; Gegevensbedrijf =" & pad & ";"    Zwakke query als nieuwe ADODB.Command    request.ActiveConnection Cn is gelijk aan query.CommandText betekent "SELECT * FROM Tooling WHERE TID = 'BD0001'"    query.CommandType impliceert adCmdText   Dim rs1 als ADODB.Recordset    Rs1 tv-toestel impliceert vraag. Voer 'En dan de regel waar de belangrijkste fout optreedt'    Tabellen ("Bereken"). Bereik ("K1"). CopyFromRecordset rs1    'MAAK JEZELF SCHOON:    RS1. Dichtbij    cn. DichtbijHet einde van de onderzeeër 

Voeg hier uw oplossing toe

Voorbeeld 0

Indien mogelijk moet een nieuwe inhoud tussen de 30 en/of 50.000 tekens lang zijn.

Berichten zonder opmaak

ASM

ASP

ASP.NET

BASIS

BAT

C-nummer

C ++

COBOL

Script Café

CSS

Darten

database

F-nummer

FORTRAN

HTML

Java

Javascript

Kotlin

Lua

MIDL

MSIL

ZielC

Pascal

PERL

PHP

PowerShell

Python

scheerapparaten

Robijn

Rots

gootsteen

SLN

SQL

Snel

T4

Laat Windows-fouten je niet tegenhouden.

Laat uw pc-problemen u niet in de steek! Met de Reimage-reparatietool kunt u veelvoorkomende Windows-problemen snel en eenvoudig diagnosticeren en oplossen. Bovendien kunt u door Reimage te gebruiken ook de systeemprestaties verbeteren, het geheugen optimaliseren, de beveiliging verbeteren en uw pc afstemmen voor maximale betrouwbaarheid. Dus wacht niet - download Reimage vandaag nog!

  • Stap 1: Download en installeer Reimage
  • Stap 2: Open het programma en klik op "Scannen"
  • Stap 3: Klik op "Repareren" om het reparatieproces te starten

  • Terminal

    TypeScript

    VB

    VBScript

    XML