Buchstabensalat in Access-Tabelle

[Sicho]

Delphi-Quellcode:

ADOQuery1.SQL.Text := 'insert into tblID3 values (:ListID, :ID, :Title, :Artist,'+
              ':Album, :Year, :Comment, :Genre, :Sample, :Length, :Bits, :Vers,'+
              ' :Layers)';
       for I := 0 to lbResults.Count - 1 do
         begin
          Read_ID3Tag(lbResults.Items[I]); //hier lese ich die ID3-Tags aus
         
          ADOQuery1.Open;
          ADOQuery1.Append;
          ADOQuery1.Parameters.ParamByName('ListID').Value:= I;
          ADOQuery1.Parameters.ParamByName('ID').Value := ID3Tag.ID;
          ADOQuery1.Parameters.ParamByName('Title').Value := ID3Tag.Title;
          ADOQuery1.Parameters.ParamByName('Artist').Value := ID3Tag.Artist;
          ADOQuery1.Parameters.ParamByName('Album').Value := ID3Tag.Album;
          ADOQuery1.Parameters.ParamByName('Year').Value := ID3Tag.Year;
          ADOQuery1.Parameters.ParamByName('Comment').Value := ID3Tag.Comment;
          ADOQuery1.Parameters.ParamByName('Genre').Value := ID3Tag.Genre;
          ADOQuery1.Parameters.ParamByName('Sample').Value := ID3Tag.Sample;
          ADOQuery1.Parameters.ParamByName('Length').Value := ID3Tag.Length;
          ADOQuery1.Parameters.ParamByName('Bits').Value := ID3Tag.Bits;
          ADOQuery1.Parameters.ParamByName('Vers').Value := ID3Tag.Vers;
          ADOQuery1.Parameters.ParamByName('Layers').Value := ID3Tag.Layers;
          ADOQuery1.ExecSql;
         end;