[VB6] Variabile o oggetto del blocco With non impostata

[getti]

Sto iniziando a programmare con VB, ho un problema sui database.
Impostando un form che acceda al Northwind, incorro in errore 91 'Variabile oggetto o variabile del blocco With non impostata', e non è consentito lo scorrimento dei record.
Il codice è :

Private Sub Command1_Click()
Data1.Recordset.MovePrevious
End Sub
Private Sub Command2_Click()
Data1.Recordset.MoveNext
End Sub
Private Sub Form_Load()
Form1.Caption = "DataAccess"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label1.Caption = " Questo è il mio primo progetto con il DataAccess"
Command1.Caption = "Indietro"
Command2.Caption = "Avanti"
With Data1
.DatabaseName = "c:\esempio1\northwind.mdb"
.RecordSource = "clienti"
End With
With Text1
.DataField = "NomeSocietà"
End With
With Text2
.DataField = "Città"
End With
With Text3
.DataField = "CAP"
End With
End Sub

Qual è l'errore nel sorgente ?
Ringrazio per ogni contributo
Pina_s

[alka]

Ciao e benvenuto nel forum di Programmazione.

Ti segnalo da subito la lettura del nostro Regolamento, così potrai conoscere tutte le norme da seguire per partecipare correttamente a quest'area.

Ciò che non dovrai mai dimenticare è il linguaggio nel titolo, e la versione se necessario; prendi spunto dalle discussioni esistenti per un un esempio.

Il linguaggio Visual Basic viene trattato in una sezione apposita in cui sposterò questa discussione, non appena mi confermi la versione di VB che usi per poter correggere il titolo.

Ciao!

[ladyBlu]

ciao getti

senti, sarebbe opportuno che utilizzassi gli appositi tag per scrivere il codice:
[*CODE]codice[*/CODE] (senza *)
almeno diventa leggibile e più facilmente comprensibile

e poi ...
potresti indicare la riga esatta del codice su cui ti si genera l'errore?


Ciao
lady

[getti]

Ciao ladyBlu
ripropongo il codice più ordinato(almeno spero, non uso i tag di solito) :

    Private Sub Command1_Click() 
                Data1.Recordset.MovePrevious 
          End Sub 
 
          Private Sub Command2_Click() 
                Data1.Recordset.MoveNext 
          End Sub 

          Private Sub Form_Load() 
                Form1.Caption = "DataAccess" 
                Text1.Text = "" 
                Text2.Text = "" 
                Text3.Text = "" 
                Label1.Caption = " Questo è il mio primo progetto con il DataAccess" 
                Command1.Caption = "Indietro" 
                Command2.Caption = "Avanti" 

            With Data1 
                .DatabaseName = "c:\esempio1\northwind.mdb" 
                .RecordSource = "clienti" 
            End With 

            With Text1 
                .DataField = "NomeSocietà" 
            End With 

            With Text2 
                .DataField = "Città" 
            End With 

            With Text3 
                .DataField = "CAP" 
            End With 
         End Sub

Il blocco si genera sull'istruzione Data1.Recordset.MoveNext quando clicco sul Command2 oppure sull'istruzione Data1.Recordset.MovePrevious se clicco sul Command1.
Sostanzialmente, non riesco a far scorrere i record.

Ti ringrazio ancora per ogni contributo
getti

[mgmg]

Non spieghi dove hai l'errore, ho fatto delle piccole correzioni al tuo codice e funziona. Senz'altro l'avrai già fatto ma devi impostare nelle proprietà dei text il datasource = Data1 che non si può impostare a run time (cioè: Set Text1.DataSource = Data1) perchè darebbe errore.

Private Sub Command1_Click()
    If Not Data1.Recordset.BOF Then Data1.Recordset.MovePrevious
End Sub
Private Sub Command2_Click()
    If Not Data1.Recordset.EOF Then Data1.Recordset.MoveNext
End Sub
Private Sub Form_Load()
    Form1.Caption = "DataAccess"
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Label1.Caption = " Questo è il mio primo progetto con il DataAccess"
    Command1.Caption = "Indietro"
    Command2.Caption = "Avanti"
    With Data1
        .DatabaseName = "c:\esempio1\northwind.mdb"
        .RecordSource = "clienti"
        .Refresh
    End With
    With Text1
        .DataField = "NomeSocietà"
    End With
    With Text2
        .DataField = "Città"
    End With
    With Text3
        .DataField = "CAP"
    End With
End Sub

[getti]

Ciao mgmg
grazie per la risposta.
Ho modificato il codice come mi consigli, ma mi segnala "Errore di run-time 3170 : Impossibile trovare IMAM installabile", poi il debug si posiziona su .Refresh.
Non riesco ad interpretarlo.
Puoi aiutarmi ?

[mgmg]

Non riesce a trovare una dll, nei riferimenti del tuo progetto hai spuntato la dll Microsoft DAO 3.6 Object Library (dao360.dll)?
Ciao

[getti]

Sì, è spuntata.
Ciao

[oregon]

Hai applicato il SP6 al tuo VB?

P.S. Gli IMAM non c'entrano molto ... .... ovviamente era ISAM ...

[getti]

Sì certo, era ISAM
Cos'è l'sp6 ? Un service pack ?