Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Ziemlich komplexes Problem
Autor: vman
Datum: 25.01.05 15:45
Hallo, ich stehe vor einer ziemlich kniffligen Aufgabe. Ich soll unterschiedliche Dateien in eine Accessdatenbank importieren und auswerten, aber ohne Pfade der jeweiligen Dateien in den Programmcode einzutragen. Ich habe einen Weg gefunden, die Dateinamen und Pfade in die Datenbank einzutragen; hier der Code:   Dim dbsNorthwind As Database Dim rstTabelle As Recordset Set dbsNorthwind = DBEngine.OpenDatabase(CurrentDb.Name) Set rstTabelle = dbsNorthwind.OpenRecordset("Datenquellen", dbOpenDynaset) Set dbsNorthwind = CurrentDb Dim a As String Dim s_data_source_index As String Dim s_data_source_type As String Dim t_import_date As Date Dim t_import_time As Date Dim s_filename As String Dim s_data_path As String Dim b_import_process As Boolean Dim s_DataFileName As String Dim s_DataFolderName As String Dim s_DataFolderSelect As String While rstTabelle.EOF = False On Error GoTo ErrorHandler s_data_source_index = rstTabelle("s_data_source_index") s_data_path = rstTabelle("s_data_path") a = MsgBox(" " & s_data_source_index & " " & vbCr & " " _ & s_data_path & " ") s_DataFolderSelect = s_data_path & "\*.*" s_DataFileName = Dir(s_DataFolderSelect) a = MsgBox("Filename: " & s_DataFileName & " ) On Error GoTo ErrorHandler If s_DataFileName = "" Then With rstTabelle .Edit !s_filename = "N/A" !t_import_time = Time !t_import_date = Date .Update .MoveNext End With Else With rstTabelle .Edit !s_filename = s_DataFileName !t_import_time = Time !t_import_date = Date .Update .MoveNext End With End If Wend ErrorHandler: If Error = 3021 Then Exit Sub End If End Sub

Ziemlich komplexes Problem	1.171	vman	25.01.05 15:45
Ziemlich komplexes Problem - Fortsetzung	943	vman	25.01.05 15:46

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen