Thema Datum  Von Nutzer Rating
Antwort
Rot automatische Aktualisierung aus Datenbank
 09.03.2009 12:11:55 gflamme
NotSolved
10.03.2009 08:57:53 gflamme
NotSolved

Ansicht des Beitrags:
Von:
gflamme		 Datum:
09.03.2009 12:11:55		 Views:
1637		 Rating:
     
Antwort:
  Ja
Thema:
automatische Aktualisierung aus Datenbank
Hi ihr!
Ich hab ein großes Problem, auf dessen Lösung ich selbst nach mehreren Tagen Probieren nicht komme. Ich hoffe echt, ihr könnt mir helfen!

Ich will euch die Situation erklären.

Ich habe eine Datenbank erstellt. Diese Datenbank enthält eine Datentabelle, die ich auswerten soll. Die Auswertung selbst soll aber nicht über Berichte sondern über Excel erfolgen.

Ich habe jetzt in Excel eine Befehlsschaltfläche eingefügt, die mir die Daten aus der Datenbank aktualisiert. Das Problem dabei war, dass der Ordner mit der Datenbank und der Excelauswertung später wahrscheinlich in einen anderen Ordner verschoben wird, sodass ich nicht mit konkreten Bezügen arbeiten konnte.

Dazu hab ich ein Makro erstellt, welches mir zuerst den Pfad der Exceltabelle ausliest und anschließend den Namen der Datenbank hinten dranschreibt.

[code]Dim DBPfad, ExcelPfad As String
ExcelPfad = ActiveWorkbook.Path
DBPfad = ExcelPfad & "\DB_Einnaessen_im_Vorschulalter.mdb" [/code]


Diesen Pfad habe ich dann als Source der Datenbank eingebaut.
Das vollständige Makro sieht folgendermaßen aus (einen Teil davon hab ich mit dem Makro-Recorder aufgenommen..kann also sein, dass unsinniges im Code dabei ist ^^")

[code]Sub makr_daten_aus_DB_einlesen()

Dim DBPfad, ExcelPfad As String
ExcelPfad = ActiveWorkbook.Path
DBPfad = ExcelPfad & "\DB_Einnaessen_im_Vorschulalter.mdb"
'
'
Sheets("TAB_daten_fragebogen").Select
Range("A1:AL65536").ClearContents
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:=Array( _
"OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=DBPfad ;Mode=Share Deny Write;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Regist" _
, _
"ry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bul" _
, _
"k Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB" _
, _
":Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SF" _
, "P=False"), Destination:=Range("A1"))
.CommandType = xlCmdTable
.CommandText = Array("TAB_daten_fragebogen")
.Name = "DB_Einnaessen_im_Vorschulalter"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceDataFile = DBPfad
.Refresh BackgroundQuery:=False
End With
Sheets("Menü").Select
End Sub [/code]


Jetzt zu meinem Problem. An sich funktioniert das schon so, wie ich mir das gedacht hatte, ABER: Wenn ich auf den Button klicke, kommt die Meldung:
[i]Die Datei 'Pfad\Fragebogen_Einnaessen_im_Vorschulalter\DB_Einnaessen_im_Vorschulalter.mdb' wurde nicht gefunden. Wollen Sie stattdessen zu Pfad\Fragebogen_Einnaessen_im_Vorschulalter\DB_Einnaessen_im_Vorschulalter.mdb verbinden?[/i]
Und ich versteh absolut nicht, warum Wenn ich da auf ok klicke, funktioniert alles einwandfrei. Es muss also irgendwie an den ' ' liegen, die ich ja aber nirgendwo im Code stehen habe. Kann man da irgendwas machen? (

Ist wirklich dringend...bitte helft mir..wenn ihr noch mehr Informationen braucht, dann sagt einfach was :/

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot automatische Aktualisierung aus Datenbank
 09.03.2009 12:11:55 gflamme
NotSolved
10.03.2009 08:57:53 gflamme
NotSolved