[VB6] perchè errore??

[Rossella_75]

Allora io mi connetto ad un database (che tra l'altro è in formato access '97 perchè il nuovo non lo riconosce) all'inizio va tutto bene poi però quando richiamo "Case "sfogliaavanti"" ricevo un'errore

    Dim sqlstring As String
    Dim Db As Database
    Dim Rs As Recordset


    Set Db = OpenDatabase(App.Path & "\db.mdb", False, False)
    Set Rs = Db.OpenRecordset("link")
    
    id = Rs.RecordCount
    autore = (Rs.Fields("autore"))
    descrizione = (Rs.Fields("descrizione"))
    url = (Rs.Fields("url"))
    foto = (Rs.Fields("foto"))

poi più avanti o questo

            Case "sfogliaavanti"

                Rs.MoveNext

                If Rs.EOF Then
                Rs.MoveFirst
                End If

                
                id = (Rs.Fields("id"))
                autore = (Rs.Fields("autore"))
                descrizione = (Rs.Fields("descrizione"))
                url = (Rs.Fields("url"))
                foto = (Rs.Fields("foto"))

            End Select

e qui mi da errore nella parte in grassetto e dice "Necessario Oggetto"

perchè??

qualche buona anima mi aiuta per favore

grazie mille

[xegallo]

Dim Rs As Recordset

è diciarato nella stessa routine del secondo codice o nella sezione dichiarazioni dello stesso modulo?

[Rossella_75]

ops.. adesso lo messo nelle generali e funziona, una cosa questo tipo di connessione è DAO giusto, cosa devo fare per passare a ADO e perchè non mi riconosce i database di access 2000


Grazie mille cmq sei stato gentilissimo

[xegallo]

dao riconosce anche access xp col service pack 5

per passare a ADO (e sarebbe ora) basta studiarselo un po non è poi così difficile

leggi qui

[Rossella_75]

be l'inglese lo conosco poco... ci metto una vita a capire tutto, hai qualcosa scritto in italiano??

non basta fare qualche piccola modifica??


grazie ancora

[xegallo]

vabbè oggi sono buono dammi una mail che ti mando un progettino che mostra come fare

[Rossella_75]

mail te lo meriti


Grazie ancora

[Rossella_75]

Sei stato veramente molto gentile

hai inserito anche delle spiegazioni molto esaurienti, grazie ancora

[Rossella_75]

Scusami ancora un'ultima cosa sto provando a fare degli esperimenti

perchè mi dice "Varibile non definita"

Option Explicit
'importante per eseguire questo codice inserire i riferimenti:
'microsoft activex data objects

    Dim cn As New ADODB.Connection
    Dim rec As New ADODB.Recordset
    

Private Sub form_load()
     'per prima cosa si deve configurare la connessione
     cn.ConnectionString = "provider = Microsoft.Jet.OLEDB.4.0;" & _
                         "data source = c:\database.mdb;"
    Me.Height = 7500
    Me.Width = 11800

    Flsmovie.Movie = App.Path & "\actionlab.swf"
    Flsmovie.Menu = False
    'nella prima riga scrivo semplicemente che è un database access 2000
   ' se lo vuoi 97 o precedenti bisogna sostituire 4.0 con 3.51
   'nella seconda riga do il percoreco del db
   'mi raccomando i ";"
   'dopodichè la devi aprire
   cn.Open
   'adesso devo dire al recordset qual è la sua connessione
   rec.ActiveConnection = cn
   'ora gli dico che il recordset è in sola lettura
   rec.LockType = adLockReadOnly
   ' ora inserisco i nomi contenuti nel database nella listbox
   'prima bisogna aprire il recordset spiegandogli dove prendere i dati
   rec.Open "select from link"

    'Set Db = OpenDatabase(App.Path & "\db.mdb", False, False)
    'Set rec = Db.OpenRecordset("link")
    
    id = rec.RecordCount
    autore = (rec.Fields("autore"))

[xegallo]

o togli option explicit
o dichiari le variabili