[VB6] Programma (connesso a DB) che non si chiude

[MDM]

Buongiorno ragazzi,
è la prima volta che creando un applicativo con Visual Basic 6.0 (versione professional) tale applicativo non si chiude correttamente.

Per meglio spiegare, una volta creato l'eseguibile questo fa delle operazioni in automatico (lancia delle query su un DB Access) dopodiché si dovrebbe chiudere l'applicativo (con un semplice unload me sull'unica form creata) ed infatti la form sparisce dalla visione ma tramite task manager vedo che l'applicativo è ancora in memoria.

Come test ho provato a non eseguire nessuna query, ma solo a connettermi e a disconnetermi dal DB, ed in questo modo il programma si chiude.

Il riferimento VB che uso per la lettura del DB è DAO 3.6.

Che posso fare?

[oregon]

Ci mostri il codice?

[alka]

Le domande relative a Visual Basic vanno postate nell'apposito subforum. Sposto la discussione.

P.S.:
non dimenticare la versione del linguaggio nel titolo.

Ciao!

[Johnny_Depp]

ti sposto nel subforum apposito. p.s. nel titolo, ricordati di specificare anche la versione

[MDM]

ok
piccola nota, come vedete le query sono indicate in un file esterno in modo da poter essere aggiunte, rimosse o modificate facilmente

Dim DBName As String
Dim ASql As Variant
Dim NASql As Integer
Dim DB As Database

Private Sub Form_Activate()
Dim SEr As String, S As String
Dim LastSqlEr As String
Dim I As Integer
Dim Errors As Boolean
    NASql = 0
    Errors = False

        F = FreeFile
        Open "query.txt" For Input As #F
        
        Set DB = OpenDatabase("db.mdb")
                
        While EOF(F) = False
            Line Input #F, S
            If Len(Trim(S)) > 0 Then
                If NASql = 0 Then
                    ReDim ASql(1)
                    NASql = 1
                    ASql(0) = S
                Else
                    ASql(NASql) = S
                    NASql = NASql + 1
                    ReDim Preserve ASql(NASql)
                End If
            End If
        Wend
        Close #F
                
        If NASql > 0 Then
            'eseguo le varie query
            
            For I = 0 To NASql - 1
                LblN = (I + 1) & " / " & NASql
                Lst.AddItem ASql(I), 1 'visualizzo la query in una listbox
                
                DoEvents
                
                DB.Execute (ASql(I))
                
                If Err.Number <> 0 And LastSqlEr <> Err.Description Then
                    LastSqlEr = Err.Description
                    Lst.AddItem "Errore " & Err.Number & ": " & LastSqlEr, 2
                    Errors = True
                Else
                    Lst.AddItem "Esito: OK", 2
                End If
            Next I
        End If
        
    If Errors=false Then
        MsgBox "temp"
        Unload Me
        End
    End If
End Sub

[MDM]

Originariamente inviato da alka e Johnny_Depp
Le domande relative a Visual Basic vanno postate nell'apposito subforum. Sposto la discussione.

P.S.:
non dimenticare la versione del linguaggio nel titolo.

Ciao!

Pardon, non mi ricordavo dell'esistenza del subforum

[wallrider]

comunque sia una bella end dopo l'unload me e vedrai che te lo chiude

[MDM]

l'ho già provata ma non funziona.
Il form viene chiuso (non è + visibile) ma in task manager l'applicazione risulta ancora attiva.

[wallrider]

bo prova a disctruggere la variabile DB

[oregon]

Non usare l'istruzione End ... non serve e a volte e' dannosa ...

Devi

1) chiudere il db
2) porre l'oggetto db a nothing

ma soprattutto pensare al fatto che, in caso di errori, non fai affatto la Unload Me ...