Visual Basic 6 und Anbindung an Access Datenbank

[avalox]

Hallo,

ich habe ein kleins Problem mit einem Projekt, dass wir in der Schule machen.

Hier eine kurze Erläuterung, was das Projekt machen soll.

In einer Access Datenbank befinden 3 Datensätze (Datum, und zwei Uhrzeiten)

das VB Programm soll diese drei Daten aus der Access Datenbank auslesen und die Differenz zwischen der ersten und der zweiten Uhrzeit berechnen.

Das ganze Programm läuft auch soweit, wenn ich den Pfand zur Datenbank in dem "Data" Objekt (das Ding zu ansteuern der Datenbank) fest angebe. Jetzt soll der Ort der datenbak aber variabel sein, was ich aber nicht hinbekomme.

Ich hab schon jede Menge sachen getestet, aber bis jetzt hat nix funktioniert.

Hier mal ein Beispiel, was ich versucht habe.

-----------

Also, es befinden sich in dem Projekt 2 Formen. In Form 1 (wird beim Start des Programms angezeigt) soll die Datenbank ausgewählt werden und dann der Pfad an das Data Objekt in Form 2 weitergeben werden. Das geht aber irgendwie nicht.

Hier mal ein wenig Quellcode:

--

Private Sub cmddb_Click()

Select Case Index

'Datei öffnen

Case 0: p$ = CurDir$ 'Vorgabe-Pfad

F$ = "" 'Vorgabe-Datei

a$ = Dialog_Open$(Me, "Datei öffnen", p$, F$, "Access Datenbank|*.mdb|", "mdb")

If Right$(p$, 1) <> "\" Then p$ = p$ + "\"

If Len(a$) Then frm1.Data.DatabaseName = p$ + a$

If Len(a$) Then frm1.Data.RecordSource = blabla

If Len(a$) Then lbldb = p$ + a$

End Select

End Sub

--

Mit der Codezeile "If Len(a$) Then frm1.Data.DatabaseName = p$ + a$" will ich den Pfad der Datenbank an das Data Objekt weiterleiten. geht aber nicht ?!?!?!

Um zu sehen, ob der Pfad auch richtig ist, gebe ich ihn auch noch mal in einem Label-Feld aus

--> "If Len(a$) Then lbldb = p$ + a$"

Der Pfad der mir im Label-Feld angezeigt wird stimmt. Aber wie gesagt, die weitergabe der Daten an das "Data" teil geht nicht.

Ich komm da einfach nicht weiter...hab auch schon in diversen Büchern nachgesehen, aber nichts gefunden.

Hoffentlich hat einer von euch einen Tipp, wie ich das hinbekommen kann?!

gruß, avalox

[Fraggy]

Lo Avalox ..

Da können jede Menge Fehlerquellen drin sein .....

Keine Ahnung was dein Dialog_open$ zurück gibt...

Bei mir funktioniert alles in einr stark vereinfachten Version:

F$ = "" 'Vorgabe-Datei

p$ = "Pfad zur Datei"

a$ = "Datei"

If Right$(p$, 1) <> "\" Then p$ = p$ & "\"

If Len(a$) Then

frm1.Data.DatabaseName = p$ & a$

frm1.Data.RecordSource = "tabelle"

lbldb = p$ & a$

End If

-> die "" um das blabla fehlen ...

ersetz meine Angaben und versuchs mal so ...

und bau dann den rest wieder drumrum ...

[avalox]

Hiho,

hat leider nicht geklappt.....

Vielleicht hat ja sonst noch jemand eine Idee ?!

Gruß, Avalox2000