Permessi

[Legend81]

Ciao raga,ho un nuovo problema da discutere: nel salvare dei file nel database viene generato un errore "azione eliminata da un oggetto associato"; facendo il debug mi riporta nel codice alla riga che vi segno

Public Sub command1_click()
Dim nomefile As String
Dim TagCorrente As TagInfo
Dim i As Integer
    If File1.ListIndex < 0 Then
        MsgBox "selezionare file"
    Else
        If Command1.Caption = "Aggiungi" Then
            For i = 0 To File1.ListCount - 1
                If File1.Selected(i) Then
                    Data1.Recordset.AddNew
                    On Error Resume Next
                    nomefile = File1.Path & "\" & File1.List(i)
                    Open nomefile For Binary As #1
                    With TagCorrente
                    Get #1, FileLen(nomefile) - 127, .Tag
                    If Not .Tag = "TAG" Then
                    Close #1
                    Exit Sub
                    End If
                    Get #1, , .Canzone
                    Get #1, , .Artista
                    Get #1, , .Album
                    Get #1, , .Genere
                    Close #1
                    Text1.Text = RTrim(.Canzone)
                    Text3.Text = RTrim(.Artista)
                    Text4.Text = RTrim(.Album)
                    Text5.Text = RTrim(.Genere)
                    End With
                    Label4.Caption = File1.Path 
                    Data1.Recordset.Update
                End If
            Next i
        Else
        Data1.Recordset.CancelUpdate
        Command1.Caption = "Aggiungi"
        End If
    End If
End Sub

e a volte alla riga segnata in blu!

è problema di permessi?:master:

Come lo risolvo?

[xegallo]

Originariamente inviato da Legend81
Ciao raga,ho un nuovo problema da discutere: nel salvare dei file nel database viene generato un errore "azione eliminata da un oggetto associato"; facendo il debug mi riporta nel codice alla riga che vi segno

Public Sub command1_click()
Dim nomefile As String
Dim TagCorrente As TagInfo
Dim i As Integer
    If File1.ListIndex < 0 Then
        MsgBox "selezionare file"
    Else
        If Command1.Caption = "Aggiungi" Then
            For i = 0 To File1.ListCount - 1
                If File1.Selected(i) Then
                    Data1.Recordset.AddNew
                    On Error Resume Next
                    nomefile = File1.Path & "\" & File1.List(i)
                    Open nomefile For Binary As #1
                    With TagCorrente
                    Get #1, FileLen(nomefile) - 127, .Tag
                    If Not .Tag = "TAG" Then
                    Close #1
                    Exit Sub
                    End If
                    Get #1, , .Canzone
                    Get #1, , .Artista
                    Get #1, , .Album
                    Get #1, , .Genere
                    Close #1
                    Text1.Text = RTrim(.Canzone)
                    Text3.Text = RTrim(.Artista)
                    Text4.Text = RTrim(.Album)
                    Text5.Text = RTrim(.Genere)
                    End With
                    Label4.Caption = File1.Path 
                    Data1.Recordset.Update
                End If
            Next i
        Else
        Data1.Recordset.CancelUpdate
        Command1.Caption = "Aggiungi"
        End If
    End If
End Sub

e a volte alla riga segnata in blu!

è problema di permessi?:master:

Come lo risolvo?

il recordset è aperto anche in scrittura?

[Legend81]

Credo di sì!