Supportnet / Forum / Datenbanken

Hallo, hat einer eine Access datenbank, womit ich meine Mp3s die in einem Ordner sind einfach in Datenbank einspielen kann, damit ich weiß welche ich habe wo sie zu finden sind etc.

Hallo Camel,

würde eine Excel-Tabelle als Zwischenschritt ausreichen?
Anschließend Excel in Access-importieren!

gruss
pelle

Ps.: Bei Interesse Mail

ja, auch guter vorschlag, aber wie bekomme ich denn die ganzen Namen etc. in die Tabelle?
Will doch nicht wie weiß wieviele da von hand eintragen

Hallo Camel,

:-) die paar Daten kanst Du doch von Hand eintragen!! :-)

Scherz bei Seite, dies übernimmt die Excel-Tabelle!

Sie liest das gewünschte Verzeichnis mit Unterverzeichnissen aus!

Bei Interesse, schicke Mail!
Deine genannte Adresse scheint mir nicht ganz real zu sein! :-)

gruss
pelle

hi camel,
ich habe ein programm was die ganze arbeit für dich übernimmt. es scant die ordner, katalogisiert...... das ergebnis kannste auch dann als txt-datei exportien und weiterverabeiten (excel, etc.) - ich weiss nicht wo ich es her habe. -> es heisst PHONIX - audio catalog system....
gruss
mreverest

@mreverest,

hätte Interesse an PHONIX!

Kann man es haben???

gruss
pelle

Hallo,

es gibt da ein kleines Tool zum Editieren von mp3 Tags, das auch Listen nach Excel exportiert. Diese Listen enthalten alle nur erdenklichen Informationen zur Datei, ich glaub 15 Spalten.

Die nagelneue Version bei
http://www.mp3-tag-editor.de/
als Shareware 10 €.
Die Version 2.04 als Freeware bei
http://freeware.de/redesign/dbsoftvot.php3?table=user_table_softw_multi&id=69

Gruß
TG

Hallo
Es ist auch ziemlich einfach File-Listen in Access automatisch erstellen zu lassen. Denkbar wäre auch die letzten 128 Zeichen (Titelinfos) des MP3`s auszuwerten und mit anzuzeigen.

Was mir noch nicht klar ist:
1. Soll bei jedem Aufruf von Access die Liste automatisch aktualisiert werden?
2. Welchen Vorteil soll Access gegenüber Programmen haben die von jeher MP3 verwalten können. ZB Winamp?
3.Soll der ganze Rechner nach MP3 durchsucht werden?
4. Access macht doch nur Sinn wenn weitere Infos an die Titel geknüpft werden sollen.(Bilder Termine CD-Listen Texte etc)
Was passiert aber wenn ein Titel einfach gelöscht wird?

@pelle
wie? nicht ganz real die email addy?
also finde ich schon, kannst mir ja mail schicken mit der Excel tabelle

also, ne frage, wie geht das ganze in access von statten?
ich hätte da auch mal was, zB ist das bei mir wichtig, ich bräuchte ne datenbank bzw hab eine, in dieser werden infos zu WORD dokumentvorlagen gespeichert, auch der pfad wäre ne schöne sache ;)
(ist auch n aufwand bei ca 300 vorlagen)

tja gibts da ne möglichkeit mit nem button nen kleinen explorer zu starten? (zB in der art wie ein installer wenn man sein verzeicnis wählt)
hat man dann die datei gewählt bestätigt man mit OK und der pfad wird in ein textfeld gespeichert.

Gibts so ne möglichkeit??
wäre genial
thx

@camel

sorry, war nicht so gemeint!
Tabelle ist auf dem Weg!

gruss
pelle

@mreverest

besten Dank!

gruss
pelle

hi!! ähh ne frage, könnt ihr mir das excel sheet auch mal mailen??
an: me@tentations.de
besten dank

Hallo scoob
Ich hatte das schon mal gepostet.. aber egal:

Public Function AskFile(dir As String, titel As String, filter As String, Index As Long, Flags As Integer) As String
    Dim dialog As Object
    
    Set dialog = CreateObject("MSComDlg.CommonDialog")
    If filter = "" Then
        filter = "Alle Dateien|*.*"
    End If
    dialog.filter = filter
    dialog.FilterIndex = Index
    dialog.Flags = Flags
    dialog.MaxFileSize = 260
    dialog.CancelError = False
    dialog.DialogTitle = titel
    dialog.InitDir = dir
    dialog.ShowOpen
    AskFile = dialog.filename
    Flags = dialog.Flags
End Function


Sub Filedialog()
Dim Flags As Integer, dateiname, meldung As String

Flags = 0
dateiname = AskFile("C:\", "Datei aussuchen!", "", 1, Flags)
meldung = "Ausgewählte Datei: " & dateiname & vbCr
MsgBox meldung
me.TextfeldName = dateiname
End Sub

---------------------------------------
Die Funktion Askfile in ein beliebiges Modul kopieren.
Die Funktion Filedialog hinter den Button legen.
Da wo jetzt C:\ steht kannst Du ein verzeichnis vorwählen.
Da wo jetzt filter = "Alle Dateien|*.*"
steht kannst Du auch nur *.doc Dateien ausfiltern lassen:

Filter = "Documente"|*.doc"
Die Meldung kannst Du natürlich auch löschen.
---------------------------------------
Übrigens kann man auch die Documenten-Eigenschaften automatisch einlesen lassen.
Gruß struppi

@scoob

Du hast Post!

gruss
pelle

Hi Struppi,
deine Funktion interessant aus. Leider kann ich das Obejct CommonDialog nicht erstellen. Benötigt man dafür eine Lizenz oder kann man es irgendwo auch so bekommen?
Gruß Itschi

Hi itschi
Handelt sich um:
Microsoft Common Dialog Control, version 6.0
Suche mal auf Deinem Rechner die Dateien:
COMDLG32.OCX
COMDLG16.OCX
und registriere die eventuell neu.
Wenn das nichts wird dann melde Dich nochmal, es gibt auch noch weitere Möglichkeiten.

Hi Struppi,
habe comdlg32.ocx neu registriert mit regsvr32. Was auch erfolgreich war.
Danach habe ich diese OCX in meine Verweise aufgenommen. Die Eigenschaften werden jetzt auch angezeigt. Aber die Fehlermeldung "Obejcterstellung druch ActiveX-Komponente nicht möglich" bleibt.
Was kann man jetzt noch tun?
Gruß Simon

Grüezi Simon

Wie üblich, bei donkarl schauen!;-)

Folgende Antwort daraus:

U r s a c h e
Registrierungsfehler der dao350.dll von A97 (bei A00 ist es die dao360.dll).

L ö s u n g e n bei donkarl, FAQ 7.9.
Such die dll auf deiner Platte (vermutlich in
c:\Programme\Gemeinsame Dateien\Microsoft Shared\DAO)
und registrier sie neu mit regsvr32.exe (im Win\System-Verzeichnis).

Du kannst dazu die dll per Drag and Drop im Explorer auf regsvr32.exe ziehen oder du gibst in der Startleiste bei "Ausführen" ein:
regsvr32.exe "DeinPfad\dao350.dll"

Falls die Registrierung nicht klappt bzw. nix bringt, hat vielleicht die dll was abgekriegt. Du kannst dann versuchen, sie durch jene von der Office-CD zu ersetzen (Verzeichnis: \Os\MsApps\Dao). Dann nochmal die Registrierung durchführen.

Wenn das auch nix bringt, dann kannst du versuchen, Office komplett zu deinstallieren. Verwende dazu das Tool ERASER97, damit die Registry-Einträge gekillt werden:
ftp://ftp.microsoft.com/softlib/mslfiles/ERASER97.EXE
Danach Neuinstallation.

Gruss
Köbi

Oo das würde ich nicht tun. :-)

Ist bestimmt nur ein Schreibfehler.
Oder es fehlen Schnittstellen von den ich nichts weiß.
Zur Sicherheit bitte mal das Ganze als vbs probieren.
Folgenden code aus dem texteditor als irgendwas.vbs abspeichern und doppelklicken. Klappts nicht müssen wir was Anderes nehmen:

flags = 0
dateiname = AskFile("C:\", "Datei aussuchen!",_
"", 1, flags)

meldung = "Ausgewählte Datei: " _
& dateiname & vbCr
meldung = meldung + _
"Zurückgelieferte Flags: "  & flags

MsgBox meldung

function AskFile(dir, titel, filter, Index,_
 flags)
set dialog = CreateObject(_
"MSComDlg.CommonDialog")
if filter="" then
filter = "Alle Dateien|*.*|"
end if
dialog.filter = filter
dialog.FilterIndex = Index
dialog.Flags = flags
dialog.MaxFileSize = 260
dialog.CancelError = false
dialog.DialogTitle = titel
dialog.InitDir = dir
dialog.ShowOpen
AskFile = dialog.filename
flags = dialog.Flags
end function

---------------------------------------
gruß struppi

@camel

weiss nicht, ob dass das ist was Du suchst, aber ich habe Dir mal ein kleines programm geschickt...

rgds
rené

ps : hat ein paar fehler drin, aber die daten werden korrekt in einer acessdatenbank abgespeichert.

Hallo Köbi, hallo Struppi
ich habe die Tips von euch beiden ausprobiert, aber die Fehlermeldung bleibt. Das Object kann nicht erzeugt werden. Gibt es jetzt nichts mehr außer Office neu zu installieren?
Gruß Itschi

Hallo Itschi
Du kannst ein 100% lauffähiges OCX bekommen oder den etwas einfacheren Code wie folgt benutzen:

Dim Verzeichnis As String
Set wshell = CreateObject("Shell.Application")
Set folder = wshell.browseForFolder(0, "hallo", 16384, "e:\Eigene Dateien\Programme\")
′ MsgBox folder                                                ′folder gibt ausgesuchte Datei oder Ordner zurück


Set Parent = folder.ParentFolder                               ′Parent = Übergeordneter Ordner der Folder_Datei/Ordner
If TypeName(Parent) = "Nothing" Then                           ′Wenn kein Name übergeben wird dann abbrechen
MsgBox "Das war wohl nischt!"
Exit Function
End If
Set dateien = Parent.Items                                     ′Parent.Items = Dateien und Ordner im Parent_Ordner
                                                               ′Die nachfolgende Schleife listet alle Ordner und Dateien(wenn 16384 gewählt) auf
                                                               ′Damit wird auch die ausgewählte Datei oder Ordner azfgezählt (folder)
                                                               ′Das aufgelistete Object (daten) hat die Eigenschaft über daten.path
                                                               ′den kompletten Pfad anzeigen zu lassen. Damit ist der absolute Pfad
                                                               ′zum ausgewählten Object (folder) bekannt.

   For Each daten In dateien                                   ′Dateien im Ordner durchlaufen
     ′liste = daten.Name & "  =  " & daten.path & vbCr & liste
        
        If daten.Name = folder.Title Then                      ′wenn Dateiname = folder_Datei_Dateiname
        Verzeichnis = daten.Path                               ′dann den Datei.Patch(Pfad) in Verzeichnis ablegen
        MsgBox Verzeichnis
        End If
        
        
   Next
   End Function

----------------------------------
Melde Dich wenn Du das OCX willst. Ist von Tobias Weltner.
gruß struppi

PS: Ich weiß nicht welche Software die OCX auf den Rechner bringt, die bei Dir nicht laufen. Deswegen kann ich auch nicht sagen ob eine Office-Neuinstalation was bringt.
Wäre da eher zurückhaltend.

• Access Datenbank 2000 mit Access 1997 öffnen
• Read-Only-Verknüpfung von Access zu Access Tabelle
• Access DB - LIKE Schlüsselwort - Query funktioniert in Access, jedoch nicht in VBA