Ich versuche mich grad an einer (VB-)Anwendung, die per ADO auf eine SQL-Datenbank im Format *.sdf zugreift.
Gegeben ist folgender Code (VS 2010)*:
Public Class Database
Implements IDisposable
Private _conn As ADODB.Connection
Public Sub New()
_conn = New ADODB.Connection
_conn.Open("Provider=Microsoft.SQLSERVER.CE.OLEDB.3.5;Data Source=.\Arztrechnungen.sdf;")
_conn.CursorLocation = ADODB.CursorLocationEnum.adUseClient
End Sub
Public ReadOnly Property Connection As ADODB.Connection
Get
Return _conn
End Get
End Property
'... (IDispose-Implementierung weggelassen)
End Class
Private Sub ZeigeOffeneRechnungen()
Dim sql As String = "SELECT Rechnungen.ID, Aerzte.Name, Aerzte.Kurzname, Rechnungen.Rechnungsnummer, Rechnungen.Rechnungsdatum, Rechnungen.Zahlungsinformationen, " & _
"Rechnungen.Rechnungsbetrag, Rechnungen.DatumErinnerung, Rechnungen.DatumMahnung1, Rechnungen.DatumMahnung2, Rechnungen.DatumMahnung3, " & _
"Rechnungen.Mahnbetrag, Rechnungen.BetragBezahlt, Rechnungen.Kontonummer, Rechnungen.BLZ, Rechnungen.DatumBezahlt, LA_Beihilfe.DatumErstellt AS DatumBeihilfeErstellt, " & _
"LA_Beihilfe.DatumErstattet AS DatumBeihilfeErstattet, LA_Versicherung.DatumErstellt AS DatumVersicherungErstellt, LA_Versicherung.DatumErstattet AS DatumVersicherungErstattet " & _
"FROM Rechnungen LEFT OUTER JOIN " & _
"Leistungsantraege AS LA_Versicherung ON Rechnungen.LeistungsantragIDVersicherung = LA_Versicherung.ID LEFT OUTER JOIN " & _
"Leistungsantraege AS LA_Beihilfe ON Rechnungen.LeistungsantragIDBeihilfe = LA_Beihilfe.ID LEFT OUTER JOIN " & _
"Aerzte ON Rechnungen.ArztID = Aerzte.ID"
Try
Using db As New Database
Try
Dim rs = db.Connection.Execute(sql)
Do While Not rs.EOF
'...
rs.MoveNext()
Loop
rs.Close()
Catch ex As Exception
Dim errs = db.Connection.Errors
Stop
End Try
End Using
Catch ex As Exception
Stop
End Try
End Sub
Der Fehler tritt in der Zeile "Do While Not rs.EOF" (nicht bei Execute()!) auf. Die Exception besagt nur "Der Datenprovider oder ein anderer Dienst gab den Status E_FAIL zurück."
Wenn ich die Errors-Collection des Connection-Objekts auswerte, finde ich dort auch nur ein Fehler-Objekt, das genau dasselbe besagt, und dass die Error-Source "Microsoft Cursor Engine" zu sein scheint.
Wenn ich die Prozedur jedoch schrittweise debugge und mir vor dem Ausführen der Abfrage der Eigenschaft "rs.EOF" den Recordset näher angesehen habe (z.B. mit "?rs" im Direktfenster), tritt dieser Fehler nicht mehr auf und die Schleife läuft wie gewünscht
ohne Exception durch.
Gibt's hier ein Timing-Problem? Oder wie kann ich den Fehler vermeiden?
*) Da die Entwicklung sich noch im Prototyping-Stadium befindet habe ich auf eine ausführlichere Exception-Auswertung im Code vorerst verzichtet.
PS: Hab eben nochmal ein bisschen rumexperimentiert und dabei jetzt sogar den Fall gehabt, dass er zwar in den Catch-Block verzweigt, mein Exception-Objekt "ex" dort aber "Nothing" ist. Hä?
