Hallo Forum,
bisher habe ich die DBExtensionbs des Erfinder des Rades mit Erfolg benutzt.
Nunmehr versuche ich, auch bei einer Access-Datenbank diese grandiosen Tools einzusetzen und laufe dabei in ein Problem bei folgendem Initialisierungscode:
Bei erreichen der Zeile verabschiedet sich das Programm kommentarlos.
Singlestep in die EDR-Extensions führt in den Bereich DatasetX und dort zu folgender Funktion:
Beim Erreichen der Zeile bricht das Programm kommentarlos ab. Parameter dts .
Was könnte der Grund für diese Verhalten sein?
bisher habe ich die DBExtensionbs des Erfinder des Rades mit Erfolg benutzt.
Nunmehr versuche ich, auch bei einer Access-Datenbank diese grandiosen Tools einzusetzen und laufe dabei in ein Problem bei folgendem Initialisierungscode:
VB.NET-Quellcode
- Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- Me.MitgliederDataSet.PersistAll()
- Dim adp = New DatasetAdapter(OleDbFactory.Instance, My.Settings.MitgliederConnectionString, ConflictOption.OverwriteChanges)
- Me.MitgliederDataSet.Adapter(adp).Register(Me)
- AddHandler Me.FormClosing, Me.MitgliederDataSet.HandleFormClosing
- MitgliederDataSet.Fill()
- End sub
Bei erreichen der Zeile verabschiedet sich das Programm kommentarlos.
Singlestep in die EDR-Extensions führt in den Bereich DatasetX und dort zu folgender Funktion:
VB.NET-Quellcode
- ''' <summary>
- ''' sets the manager of all Tables, TableAdapters and BindingSources and stuff
- ''' </summary>
- <Extension()> _
- Public Function Adapter(ByVal dts As DataSet, ByVal value As DatasetAdapter) As DataSet
- Dim adp = dts.Adapter
- If adp.NotNull Then
- If adp Is value Then Return dts
- Throw value.Exception("Dataset.Adapter already initialized")
- End If
- value.DataSet = dts
- DatasetAdapterBase.Attachs(dts) = value
- Return dts
- End Function
Beim Erreichen der Zeile bricht das Programm kommentarlos ab. Parameter dts .
Was könnte der Grund für diese Verhalten sein?