[VB6] Oggetti ADODB

[buburp]

Le istruzioni

Set Databeis = CreateObject("ADODB.Connection")
Set Tabella = CreateObject("ADODB.Recordset")

sono TOTALMENTE sostituibili da

Dim Databeis As New ADODB.Connection
Dim Tabella As New ADODB.Recordset

[xegallo]

veramente i 2 modi sebbene creino entrambi gli oggetti non fanno esattamente la stessa cosa
infatti il New restituisce solo un indirizzo di memoria allocata mentre il createobject chiede a COM di fare tutto il lavoro rallentando la cosa perdipiù scrivendo

Set Tabella = CreateObject("ADODB.Recordset")

perdi la possibilità di sfruttare gli eventi della classe recordset

Dim withevents Tabella As ADODB.Recordset
set tabella = new ADODB.Recordset

[Sypher]

Originariamente inviato da xegallo
perdi la possibilità di sfruttare gli eventi della classe recordset
[/code]

nn ho capito qui cosa intendi...

[buburp]

Non ho capito neanch'io!
Spiegati meglio e spiega le due righe di codice nel secondo "code", per favore.

[xegallo]

la classe recordset rende disponibili alcuni eventi tra i quali FetchComplete che si scatena al termine della query,
FetchProgress che restituisce la percentuale di elaborazione, ecc

per usare gli eventi di una classe bisogna dichiararla

dim withevents nome as tipo

la parola chiave withevents si deve dichiarare dentro ad un form e aggiunge l'oggetto dichiararto nella tendina in altro a sinistra e i relativi eventi in quella di destra

con withevents non si possono creare matrici di oggetti e non si può inizializzare nella dichiarazione

[buburp]

OK.
Ma che differenza c'è fra

Dim Tabella As ADODB.Recordset

e

set tabella = new ADODB.Recordset

?

E poi ... devo abbandonare per sempre CreateObject con database e tabelle?

[xegallo]

aspetta la prima

Dim Tabella As ADODB.Recordset

alloca un'area di memoria per l'oggetto recordset

la seconda

set tabella = new ADODB.Recordset

inizializza l'oggetto restituendogli l'area di memoria allocata

esiste una forma contratta

Dim Tabella As New ADODB.Recordset

che dimensiona e inizializza l'oggetto

Usando la direttiva WithEvents non si può usare la forma contratta è necessario usare quella estesa, ma ti permette di accedere agli eventi della classe

[buburp]

Ma con i tuoi metodi non mi funziona

Conn.Execute (stringaSQL)

Devo per forza creare l'oggetto Conn con CreateObject.

[xegallo]

Originariamente inviato da buburp
Ma con i tuoi metodi non mi funziona

Conn.Execute (stringaSQL)

Devo per forza creare l'oggetto Conn con CreateObject.

i miei metodi :rollo:

1) Conn.Execute stringaSQL
2) la connessione è aperta?

[buburp]

Sì, è aperta, ma se Conn la inizializzo con

Dim Conn As New ADODB.Connection

anziché col classico

Set Conn = CreateObject("ADODB.Connection")

l'esecuzione della query SQL non va.