VB6 e MySQL

[ennekappa]

Sto impazzendo con la connessione remota da VB6 a un server MySQL.

Dim cnMySql As New rdoConnection
Dim rdoQry  As New rdoQuery
Dim rdoRS   As rdoResultset

Sub CONNECT()   
   cnMySql.CursorDriver = rdUseOdbc 
   cnMySql.CONNECT = "server=<ip addr>; port=3306; database=prova; uid=prova; pwd=<secret>;" 
   cnMySql.EstablishConnection  
   Set rdoRS = cnMySql.OpenResultset("SELECT ID FROM user", rdOpenKeyset, rdConcurRowVer)    
   Do Until rdoRS.EOF  
      With rdoRS      
        'bla bla
        rdoRS.MoveNext    
      End With 
   Loop 
End Sub

Così quando chiamo CONNECT mi apre la finestra di dialgo per settare i driver (creo il file .dsn) premo Apri e poi l'applicazione va in crash.
Ho notato che se metto "users" sulla query al posto "user" mi da errore dicendo che il database prova non ha una tabella "users" il che vuol dire che si connette però succede qualcosa dopo.
Qualcuno può aiutarmi?
Grazie mille!

[ennekappa]

Nessuno?

[oregon]

Dettaglia il crash ...

Hai installato il SP6 di VB6?

Hai il driver piu' aggiornato di MySQL?

[ennekappa]

Quel problema l'ho appena risolto. Chiamavo il file DSN sbagliato.
Ora sto cercando di convertire il codice scritto per la connessione Access che fa uso di
Global DB As Database chiamando quindi:
DB.BeginTrans
DB.CommitTrans
DB.Execute
DB.CreateSnapshot
DB.CreateDynaset

Questo è la parte di connessione:

Global DB As ADODB.Connection

Public Sub GLO_CONNECT()
On Error GoTo err_connessione
   
    Dim comando As ADODB.Command  'creo un riferimento comando
    Dim StringaComando As String
    Set DB = New ADODB.Connection
    Set comando = New ADODB.Command
    Set rs = New ADODB.Recordset
   DB.Open "DSN=Local;"
    'StringaComando = "SELECT * FROM TABSINC"
    'comando.CommandText = StringaComando
    Set comando.ActiveConnection = DB 'attivo la connessione
    'rs.Open comando, , adOpenDynamic, adLockOptimistic
    'Text1.Text = rs.Fields(0)
Exit Sub
err_connessione:
    Err.Raise Err.Number, "DB", Err.Description
    Err.Clear
End Sub

Il problema è che DB ora non ha più i metod CreateSnaphot e CreateDynaset.
Come posso fare? Devo riscriverli?
Grazie!

[oregon]

Originariamente inviato da ennekappa
Quel problema l'ho appena risolto. Chiamavo il file DSN sbagliato.
...
Il problema è che DB ora non ha più i metod CreateSnaphot e CreateDynaset.
Come posso fare? Devo riscriverli?

Non ho capito ... stai scrivendo un nuovo codice o ne stai convertendo uno gia' scritto?

[ennekappa]

Scusa, non mi sono spiegato. Sto convertendo un programma che usa un db access in locale in modo che usi un MySQL remoto. Credo si dica conversione DAO ad ADO, ma non sono per nulla esperto.