[VB6] Bloccare procedura attraverso altra Form

[zorro77]

Salve a tutti
ho realizzato un'applicazione, che cliccando su un tasto, mi genera delle opearzioni che impiagano molto tempo. Vorrei ora però poter interrompere tale operazione, senza eventualmente dover aspettare il suo termine, che può avvenire anche dopo 10 minuti, facendo comparire una seconda form con un tasto ANNULLA.
Qualcuno mi potrebbe aiutare con qualche esempio, per poter gestire bene le due form, e soprattutto, che se non clicco ANNULLA, quando finisce la procedura la form si chiude da sola?

Ringrazio in anticipo

[wallrider]

mi sa che con VB6 non si può fare perchè la tua applicazione dovrebbe essere multiprocesso

[oregon]

VB6 non e' multithreading pero' dipende da che tipo di compito sta svolgendo ... se e' un codice che sta in un ciclo, allora si puo' fare, se e' una operazione singola bloccante, allora no.

Insomma bisogna sapere qualcosa di piu' in dettaglio su queste "operazioni" ...

[zorro77]

Viene aperto un Recordset in base ad una query, e per i valori restituiti vengono eseguiti ulteriori cicli di comparazione...alla fine sono tutti cicli

[oregon]

Puoi mostrarli? Anche in "riassunto" ...

[zorro77]

Riassumendo la struttura è la seguente:
dalla form principale, premendo il tasto in questione, chiamo la funzione creaReport in un modulo

Private Sub cmdRep_Click()

Call creaReport

End Sub

la funzione che si trova nel modulo è quella che effettua diversi cicli

Public Function creaReport()

Dim strSqlGen As String
Dim rsSqlGen As Recordset
strSqlGen = "query effettuata"
Call GetRecordset(mi restituisce un recordset)


Do While Not rsSqlGen.EOF
    Dim condBio As String
    condNOME = ""
    countNOME = 1
    Dim nome As String
    Dim trePar As Integer
    RtnStr = Space(1024)
    While condNOME <> "0"
        
        sRetVal = GetPrivateProfileString("NOME" & countNOME, "CONDIZIONE", "0", RtnStr, 1024, App.path & "\" & "File.ini")
        condNOME = Left$(RtnStr, sRetVal)  ' extract the returned string from the buffer
        
        sRetVal = GetPrivateProfileString("NOME" & countNOME, "VAL1", "0", RtnStr, 1024, App.path & "\" & "File.ini")
        nome = Left$(RtnStr, sRetVal)  ' extract the returned string from the buffer

        sRetVal = GetPrivateProfileString("NOME" & countNOME, "VAL2", "0", RtnStr, 1024, App.path & "\" & "File.ini")
        trePar = Left$(RtnStr, sRetVal)  ' extract the returned string from the buffer
        
        Call creaTabReport(condNOME, rsSqlGen!id_ind_r, rsSqlGen!id_acq, nome, trePar)
        
        countNOME = countNOME + 1
        sRetVal = GetPrivateProfileString("NOME" & countNOME, "CONDIZIONE", "0", RtnStr, 1024, App.path & "\" & "File.ini")
        condNOME = Left$(RtnStr, sRetVal)  ' extract the returned string from the buffer
    Wend
    rsSqlGen.MoveNext
    'Wend
Loop
ConnIni.Close
End Function


Public Function creaTabReport(parametri passati)
Dim StrSQLInsert As String
Dim strSQLUpdate As String

Dim strSQLSesAcq As String
Dim rsSQLSesAcq As Recordset
strSQLSesAcq = "effettuo query"
Call GetRecordset(recordset restituito)

Do While Not rsSQLSesAcq.EOF
    Dim StrSQLCompl As String
    Dim rsSqlCompl As Recordset
    
    Dim boolAcqCompleta As Boolean
    boolAcqCompleta = True
            
            StrSQLCompl = "query con all'interno i parametri passati"
            Call GetRecordset(funzione che mi restituisce un recordset)

            If rsSqlCompl.RecordCount = 0 Then     '
                StrSQLInsert = "comando update in sql"
                comm.CommandText = StrSQLInsert
                comm.Execute                
                Set rsSqlCompl = Nothing
                boolAcqCompleta = False
              
                If boolUpdateNO Then
                    strSQLUpdate = "comando update in sql"
                    comm.CommandText = strSQLUpdate
                    comm.Execute
                    boolUpdateNO = False
                End If                
            End If
        Next
    Else
        StrSQLInsert = "comando update in sql"
        comm.CommandText = StrSQLInsert
        comm.Execute
        boolAcqCompleta = False
        
        If boolUpdateNO Then
            'Mi aggiorna anche il campo COMPL_BIO di INDIVIDUO
            strSQLUpdate = "comando update in sql"
            comm.CommandText = strSQLUpdate
            comm.Execute
            boolUpdateNO = False
        End If
    End If
    
    If boolAcqCompleta Then
        StrSQLInsert = "comando update in sql"
        comm.CommandText = StrSQLInsert
        comm.Execute
        
        If boolUpdateNO Then
            strSQLUpdate = "comando update in sql"
            comm.CommandText = strSQLUpdate
            comm.Execute
'            boolUpdate = False
        End If
    End If
    
    rsSQLSesAcq.MoveNext
Loop

Set rsSQLSesAcq = Nothing

End Function

questa è la struttura generale, ovvero, effettuo una query principale, per ogni record applico delle condizioni scritte in un file .ini, e in base a quanto trovato nel file .ini, proseguo con opportune verifiche attraverso altre query e cicli.