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:
Il problema è che DB ora non ha più i metod CreateSnaphot e CreateDynaset.codice: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
Come posso fare? Devo riscriverli?
Grazie!

Rispondi quotando