Vb6 Adodc accesso non riuscito per l'utente sa in Windows 7

[marcobruni]

Salve a tutti,

io ho un progetto vb6 con un form con una Apex TruedbGrid 6 Oledb che ha come datasource un Adodc (Ado 6.0 sp6) sempre sullo stesso form.

cn.ConnectionString = "Provider=SQLNCLI.1;Data Source=pc-musica;Initial Catalog=QdE;User ID=sa;Password=*******"

Nel Form_Load ho:

Adodc.ConnectionString = cn.ConnectionString

Adodc.RecordSource = "Select Codice, Descrizione from Cantine"

Adodc.Refresh

Quando esegue l'ultima istruzione Adodc.Refresh solo su Windows 7 (perchè in Xp funziona tutto tranquillamente) mi dà l'errore:

Accesso non riuscito per l'utente, Tipo: -2147217843 Automation Error.

Ho controllato la connection string ed è giusta inoltre quando parte il programma usa la stessa connessione per aprire un recordset e funziona tranquillamente.

La connessione è dichiarata in un modulo.

Secondo voi come posso risolvere su Windows 7 32 bit?

Grazie Mille

[URANIO]

Come definisci cn?
dim cn = new...?

[marcobruni]

Originariamente inviato da URANIO
Come definisci cn?
dim cn = new...?

Public cn As New ADODB.Connection

[URANIO]

Prova a mettere
Public cn As New ADODC.Connection

[marcobruni]

Originariamente inviato da URANIO
Prova a mettere
Public cn As New ADODC.Connection

E' quello che ho scritto io e poi come ho scritto, in una fase iniziale nel login la connection per un recordset funziona tranquillamente.

[URANIO]

Originariamente inviato da marcobruni
E' quello che ho scritto io e poi come ho scritto, in una fase iniziale nel login la connection per un recordset funziona tranquillamente.

Hai scritto tu che usi le connessione ADODB ma poi usi le ADODC
Cmq è una vita che non programmo in VB6 e la mia osservazione nasce da quello che ho trovato:
http://vbcity.com/forums/p/99070/418352.aspx

[marcobruni]

Originariamente inviato da URANIO
Hai scritto tu che usi le connessione ADODB ma poi usi le ADODC
Cmq è una vita che non programmo in VB6 e la mia osservazione nasce da quello che ho trovato:
http://vbcity.com/forums/p/99070/418352.aspx

L'adodc è l'oggetto nel form utilizzato come datasource per l'Apex True Db Grid 6.0

[Grumpy]

Originariamente inviato da URANIO
Hai scritto tu che usi le connessione ADODB ma poi usi le ADODC
Cmq è una vita che non programmo in VB6 e la mia osservazione nasce da quello che ho trovato:
http://vbcity.com/forums/p/99070/418352.aspx

Cosa sarebbero le ADODC? ADODC sta per ADO Data Control, non è una libreria. Non sempre quello che si trova a casaccio sul web è corretto.

@marcobruni
L'errore potrebbe dipendere dalla proprietà CommandType che, se come DataSource usi una query, dovrebbe essere impostata su adCommandText.

Però tieni presente che la TrueDbGrid in versione OLE DB e in modalità Bound può essere associata direttamente ad un recordset ADO, senza bisogno (con grande sollievo!) dell'ADODC:

Dim rsAdo As New ADODB.Recordset
rsAdo.Open ...
TdbGrid1.DataSource = rsAdo

[gibra]

Veramente dell'ADODC se ne può, e se ne dovrebbe fare a meno: è un OCX inutile, con bug, e mai più aggiornato da Microsoft.
Dato che è puramente un banale 'wrapper' (fatto male) per ADODB, è raccomandato l'uso diretto di ADODB che rende l'applicazione più veloce, senza bug e più semplice da gestire.

Riguardo alle dichiarazioni di ADODB, l'uso di questa sintassi:

Dim rsAdo As New ADODB.Recordset

non va bene, perchè provoca un'istanziazione implicita che, per vari motivi (errori, uscite premature dalle routine, ecc.) potrebbe restare 'appesa', in secondo luogo perchè alcune proprietà dell'oggetto vengono instanziate in modo errato (ma questo dipende anche dalla versione di ADODB utilizzata).
Purtroppo questa sintassi è diffusissima nel web (e pure su qualche libro) ed è un retaggio della sintassi del fratello minore DAO (che 'forse' non soffriva di questi problemi).

Fatto sta che la sintassi corretta per dichiarare le variabili oggetto di qualsiasi membro di ADODB ha questa forma:

Dim VarObj As Tipo
Set VarObj = New Tipo

esempio:

Dim CN As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cmd As ADODB.Command

poi si crea l'istanza solo quando serve:

Set CN = New ADODB.Connection
Set rs = New ADODB.Recordset
Set cmd = New ADODB.Command

[marcobruni]

Originariamente inviato da Grumpy
Cosa sarebbero le ADODC? ADODC sta per ADO Data Control, non è una libreria. Non sempre quello che si trova a casaccio sul web è corretto.

Davo per scontato che l'adodc è l'ADO Data Control, lasciamo perdere la secondo frase perchè la trovo offensiva.

@marcobruni
L'errore potrebbe dipendere dalla proprietà CommandType che, se come DataSource usi una query, dovrebbe essere impostata su adCommandText.

Nell'Adodc.datasource c'è una query del tipo Select* from tabella

Dà errore lo stesso, tieni conto che su Windows xp funziona tutto tranquillamente senza dare a Commandtype adCommandText

Però tieni presente che la TrueDbGrid in versione OLE DB e in modalità Bound può essere associata direttamente ad un recordset ADO, senza bisogno (con grande sollievo!) dell'ADODC:

Dim rsAdo As New ADODB.Recordset
rsAdo.Open ...
TdbGrid1.DataSource = rsAdo

Così funziona però devo modificare una marea di codice