Hallo,

mein Problem: Wenn ich den OpenFileDialog aufgerufen habe, dann kann ich anschließend zwar eine OLEDB-Connection erstellen, jedoch nicht mehr schließen...

Hört sich komisch an, ist aber so!

Mein Programm liest und schreibt Daten aus einer Access-DB. Funktioniert wunderbar. Sobald ich allerdings den OpenFileDialog öffne und wieder schließe, bleibt mein Programm einfach (nachdem ich eine Access-Verbindung aufgebaut habe) bei Connection.Close() stehen. Ohne Fehlermeldung. Die einzige Information, die mir der Debugger gibt, ist folgende: "Dies ist die nächste Anweisung, die ausgeführt wird, sobald der Thread aus der aktuellen Funktion zurückkehrt".

Wie gesagt: der Fehler tritt nur dann auf, wenn ich den OpenFileDialog zuvor "ausgeführt" habe.

Keine Ahnung wie der OpenFileDialog die OLEDB-Connection beeinflussen kann. Vielleicht wisst ihr dazu etwas?

Gruß Charly1000

Dazu musst Du mal etwas Code sehen lassen.
Sicherlich machst Du ein
Organisiere es lieber als

Es scheint wirklich am OpenFileDialog zu liegen. Sobald der Dialog aufgerufen wurden und anschließend eine Verbindung zur Access-DB aufgebaut wurde, stoppt das Programm bei con.close().

Hier der Code zum FileDialog.

VB.NET-Quellcode

1. Dim ofd As New OpenFileDialog
2. ...
3. ofd.InitialDirectory = varSpeicherort_Exporteofd.Filter = "Angebotsdatei für Konfigurator (*.xml)|*.xml|" &
4. " Texte (*.txt; *doc)|*.txt;*.doc|" &" Alle Dateien (*.*)|*.*"
5. ofd.Title = "Abgelegtes Angebot zum Öffnen auswählen"
6. If ofd.ShowDialog() = DialogResult.OK Then
7. strDatei = ofd.FileName
8. Else
9. MessageBox.Show("Der Importvorgang wurde abgebrochen!")Exit Sub
11. End If
12. ...

Hier der Code zum Verbindungsaufbau, der allerdings problemlos funktioniert (bis eben OpenFileDialog ins Spiel kommt).

VB.NET-Quellcode

1. Function DB_Verbindung_Preisliste(ByRef varDB As String)
2. Dim con As New OleDbConnection
3. Dim cmd As New OleDbCommand
4. Dim pfad As String
5. Dim dateiname, varSpeicherort As String
6. Dim reader As OleDbDataReader
7. Try
8. varSpeicherort = ""
9. pfad = My.Application.Info.DirectoryPath & "\"
10. dateiname = "Einstellungen.accdb;"
11. con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" &"Data Source=" & pfad & dateiname
12. 　
13. cmd.Connection = con
14. con.Open()cmd.CommandText = "SELECT * from tabEinstellungen WHERE ID='Standard'"
15. reader = cmd.ExecuteReader()
16. Do While reader.Read()varSpeicherort = reader("Speicherort_PRL")
17. Loop
18. reader.Close()
19. con.Close()varDB = "Provider=Microsoft.ACE.OLEDB.12.0;" &
20. "Data Source=" & varSpeicherortCatch ex As Exception
21. MessageBox.Show(ex.Message)
22. End Try
23. Return varDB
24. End Function

Probier es mal so:

Hat leider nicht funktioniert...

Hast du noch eine Idee?

Wie genau äußert sich der Fehler?

Der Anwender öffnet den OpenFileDialog und schließt diesen wieder. Anschließend baut das Programm eine Verbindung zur Access-DB auf und bleibt direkt bei con.close() hängen. Keine Fehlermeldung. Nur ein kleiner grüner Pfeil (da wo man auch die Haltepunkte sieht), der dann aussagt, dass an der Stelle gewartet wird, bis aus der aktuellen Funktion zurückgekehrt wird.

Ich habe jetzt meinen eigenen OpenFileDialog programmiert. Nicht ganz so schick, aber funktioniert.