[VB6] e SQL problemi di connessione ..

[fegat\\n0]

Private Sub Carica_Click()

Dim oConn As ADODB.Connection
Set oConn = New ADODB.Connection
oConn.ConnectionString = "driver={SQL Server};server=192.168.2.202;uid=sa;pwd=;database= PROVA"
oConn.CursorLocation = adUseClient
oConn.Open

Set oAzienda = oConn.Execute("SELECT * FROM WCClients")
While Not oAzienda.EOF

ElencoClienti.AddItem oAzienda("COMP_NAME")
oAzienda.MoveNext
Wend
End Sub

Perche' mi da errore .. TIPO DEFINITO DALL'UTENTE NON DEFINITO sulla riga della Dim

mi aiutate? e' la mia prima volta ...

[ans]

è referenziato correttamente ?

[Dardino]

Prova così e fammi sapere

'Originariamente inviato da fegat\\n0 
Private Sub Carica_Click()

    Dim oConn As New ADODB.Connection
    oConn.ConnectionString = "driver={SQL Server};server=192.168.2.202;uid=sa;pwd=;database=PROVA"
    oConn.CursorLocation = adUseClient
    oConn.Open

    Set oAzienda = oConn.Execute("SELECT * FROM WCClients")
    While Not oAzienda.EOF
    
        ElencoClienti.AddItem oAzienda("COMP_NAME")
        oAzienda.MoveNext
    Wend
End Sub

Perche' mi da errore .. TIPO DEFINITO DALL'UTENTE NON DEFINITO sulla riga della Dim

mi aiutate? e' la mia prima volta ...

[ans]

gli ha modificato una cosa corretta in una meno corretta.

Dim oConn As ADODB.Connection
Set oConn = New ADODB.Connection

deve rimanere.

[Dardino]

anche a te consiglio di utilizzare i DataEnvironment che eliminano all'incirca il 50% del codice per definire le connessioni, le Select ecc...

[Dardino]

a me funziona con
Dim Connessione as New Connection

[ans]

se non l'ha referenziato non andrà mai.

Dim Connessione as New Connection

non è da usare xchè ad ogni utilizzo dell'oggetto connection fa un controllo di nothing sull'oggetto, quindi avrai n istruzioni in + (una per ogni utilizzo dell'oggetto connection) che puoi evitare per ottimizzare.

[Dardino]

hai controllato che tra i riferimento del progetto ci sia ActiveX Data Object Library?

[Johnny_Depp]

Perche' mi da errore .. TIPO DEFINITO DALL'UTENTE NON DEFINITO sulla riga della Dim

mi aiutate? e' la mia prima volta ...

perchè non hai inserito nel progetto i riferimenti (le librerie)
necessarie per utilizzare ADO:

menù: "progetto\riferiementi\"

seleziona: "Microsoft ActiveX Data Object 2.X Libreries"

dove X è un numero compreso tra 0 e 9.
P.S. inserisci la versione di ADO più aggiornata.

[Dardino]

Originariamente inviato da ans
se non l'ha referenziato non andrà mai.

Dim Connessione as New Connection

non è da usare xchè ad ogni utilizzo dell'oggetto connection fa un controllo di nothing sull'oggetto, quindi avrai n istruzioni in + (una per ogni utilizzo dell'oggetto connection) che puoi evitare per ottimizzare.

Peccato perchè in .NET una dichiarazione del genere riduce del 50% iltempo di esecuzione