✔ 3426 : Diese Aktion wurde durch ein Zugeordnetes Objekt abgebrochen

[heikomi]

Hallöchen,
also ich stehe völlig auf den Schlauch.
Ich möchte meine komplette Musiksammlung in einer Access DB unterbringen und erhalte immer den selben Fehler.

Ein Datasteuerelement ist eingefügt.

For J = 0 To File1.ListCount - 1
      Data1.Recordset.AddNew      'HIER DER FEHLER
      File1.ListIndex = J
      aktDatei = File1.List(File1.ListIndex)
      anz_pfad.Caption = aktVerzeichnis
      anz_datei.Caption = aktDatei
      
      AudioGenie1.AUDIOAnalyzeFile (aktVerzeichnis & aktDatei)
      
      anz_id3v2_album.Caption = ""
      anz_id3v2_artist = ""
      anz_id3v2_titel.Caption = ""
      anz_laufzeit.Caption = ""
      anz_track.Caption = ""
           
      anz_id3v2_album.Caption = Trim(AudioGenie1.ID3V2Album)
      anz_id3v2_artist.Caption = Trim(AudioGenie1.ID3V2Artist)
      anz_id3v2_titel.Caption = Trim(AudioGenie1.ID3V2Title)
      If anz_id3v2_album.Caption = "" Then anz_id3v2_album.Caption = AudioGenie1.ID3V1Album
      If anz_id3v2_artist = "" Then anz_id3v2_artist = AudioGenie1.ID3V1Artist
      If anz_id3v2_titel = "" Then anz_id3v2_titel = AudioGenie1.ID3V1Title
      anz_laufzeit.Caption = AudioGenie1.AUDIOGetDuration
      anz_track.Caption = AudioGenie1.ID3V2Track
      If anz_track.Caption = "" Then anz_track.Caption = AudioGenie1.ID3V1Track
      ges = ges + 1
      DoEvents
    Next

Muss ich irgendwelche Verweise / Komponenten aktivieren?
Für Eure Hilfe vielen Dank im Voraus

 

[ronaldh]

Du musst auf jeden Fall einen Verweis auf die Microsoft ActiveX Data Objects Library einbinden.

Außerdem musst Du natürlich die Connection auf Deine Datenbank einbauen, um dann auf ein Recordset zugreifen zu können.

Viele Grüsse
ronaldh

 

[heikomi]

hi ronaldh,
danke erstmal für deine Antwort. Leider konnte ich es noch nicht testen, werde es aber morgen nachholen.

Außerdem musst Du natürlich die Connection auf Deine Datenbank einbauen, um dann auf ein Recordset zugreifen zu können.

Tut das nicht das Data Steuerelement (DATA1) automatisch auf den dort (Eigenschaften) angegebenen Dateipfad?

LG Heiko

 

[heikomi]

hi ronaldh,
Nein, der Fehler erscheint leider immer noch.

DataBaseName =C:\.....
Connect = access

LG Heiko

 

[ronaldh]

Welche VB-Version benutzt Du denn?

Grüsse
ronaldh

 

[heikomi]

Hi
Es hat zwar etwas gedauert aber das Problem ist mitlerweile behoben. Schade, das VB keine klaren Fehlermeldungen ausgibt. Das Problem war das Feld Duration.
Danke dennoch.

LG Heiko