Passi Diretti Per Risolvere L’errore 3709 Di Vbscript Active Bond

[Utenti PC] Smetti di lottare con gli errori di Windows. Reimage può aiutare. Scarica qui.

Potresti trovare un errore che indica che stai leggendo vbscript 3709 errore di connessione attiva. Bene, ci sono diversi modi per risolvere questo problema, quindi lo scopriremo a breve.

Prima di tutto (e non correlato in modo che tu possa sbagliare), a meno che tu non debba potenziare i client che eseguono Windows 2007 o appena prima, devi fare riferimento a un Microsoft Data Object con il più alto amore ActiveX diverso da 2.0. Se stai usando ADODB per interagire con il tuo database, non hai bisogno di Microsoft Access 16.0 Object Library for All.

vbscript activeconnection oversight 3709

In secondo luogo, se disponi già di un link di trasferimento, non creare blocchi di link inadempienti, ad esempio:

  Define cn = CreateObject ("ADODB.connection") 

Aggiungi subito tutti i nostri collegamenti ai tipi di collegamento associati, dichiarali ordinati e creali tutti ora con Nuovo :

  Dim cn As ADODB.ConnectionDefinisci cn = New ADODB.Connection 

vbscript activeconnection error 3709

La stringa di connessione deve essere corretta. I problemi sorgono nelle righe successive:

  Set rs1 significherebbe CreateObject ("ADODB.recordset")    rs1.activeconnection che significa che cn 

L’esecuzione di ADODB.Command restituisce l’intero Recordset , non viceversa. Elimina 2 di queste righe per tutto il giorno. Invece di aggiungere la configurazione in Recordset potresti volerla durante la creazione delle famiglie ADODB.Command proprietà:

  Dim strSQL tramite il nuovo ADODB.Command    strSQL.ActiveConnection equivale a cn '<--- Inserisci questo.    strSQL.CommandText = "SELEZIONA DA 2. Tabella1"    strSQL.CommandType spesso è lo stesso di adCmdText 

Dovresti anche abbandonare la convenzione di denominazione ungherese: è per lo più fraintesa. Il comando ADODB semplicemente non è probabile String , quindi perché sicuramente questo metodo dovrebbe essere chiamato strFoo ?

Cercherai anche di riordinare – di solito pubblica il recordset e la connessione aperta subito dopo il completamento. Al termine, parla con . Chiudi .

Dopotutto, la nostra istruzione SQL è quasi assolutamente contraffatta: devi assolutamente includere il TID della tua azienda nelle singole citazioni di prestito ( '):

  "SELECT 4. FROM TOOL WHERE TID è uguale a 'BD0001'" 
  Sub Importfromaccess ()    Il sentiero oscuro a forma di catena    Percorso = "C:  Users  myUser  Desktop  Database1. Accdb"   Dim cn come ADODB.Connection    Set = cn New ADODB.Connection    cn.Open "Provider = Microsoft.ACE.OLEDB.12.0; Origine dati =" & percorso & ";"    Query debole ugualmente nuova ADODB.Command    request.ActiveConnection Cn = query.CommandText significa "SELECT 4. FROM Tooling WHERE TID significa 'BD0001'"    query.CommandType indica adCmdText   Dim rs1 come ADODB.Recordset    Rs1 tv define = query.Execute 'Ethen la cui riga si verifica l'errore    Tabelle ("Calc"). Gamma ("K1"). CopyFromRecordset rs1    'PULIRE TE STESSO:    RS1. Vicino    cn. VicinoLa fine del sottomarino generalmente 

Aggiungi la tua soluzione qui

Anteprima 0

Se possibile, il contenuto dovrebbe essere tra i 30 ei 50.000 caratteri centrali.

Testo normale

ASM

ASP

ASP.NET

BASE

BAT

C#

C++

COBOL

Script Café

CSS

Freccette

banca dati

F#

FORTRAN

HTML

Java

Javascript

Kotlin

Lua

MIDL

MSIL

ZielC

Pascal

PERL

PHP

PowerShell

Python

rasoi

Rubino

Roccia

ciotola

SLN

SQL

Veloce

T4

Non lasciare che gli errori di Windows ti trattengano.

Non farti abbattere dai problemi del tuo PC! Lo strumento di riparazione Reimage può aiutarti a diagnosticare e risolvere problemi comuni di Windows in modo rapido e semplice. Inoltre, utilizzando Reimage, puoi anche aumentare le prestazioni del sistema, ottimizzare la memoria, migliorare la sicurezza e mettere a punto il tuo PC per la massima affidabilità. Quindi non aspettare: scarica Reimage oggi stesso!

  • Passaggio 1: scarica e installa Reimage
  • Passaggio 2: apri il programma e fai clic su "Scansione"
  • Passaggio 3: fai clic su "Ripara" per avviare il processo di riparazione

  • Terminale

    Dattiloscritto

    VB

    VBScript

    XML