OleDbCommandBuilder generer ikke nogle kommandoer
Koden først:Jeg har lige simplificeret min klasse lidt.
Public MustInherit Class DatabaseSupertype
Private mDataAdapter As OleDbDataAdapter
Private mstrTabel As String = Nothing
Private mNoegler As String()
Private mCommandBuilder As OleDbCommandBuilder
Private Shared dsDataSet As DataSet = Nothing
Protected Sub New(ByVal indTabel As String, ByVal AttributeList As String, ByVal Noegler As String())
dsDataSet = DatabaseHandler.GlobalDataSet
Tabel = indTabel
mNoegler = Noegler
Dim Connection As OleDbConnection = New OleDbConnection(New Configuration.AppSettingsReader().GetValue("ConnectionString", GetType(String)).ToString)
mDataAdapter = New OleDbDataAdapter(String.Format("SELECT {0} FROM {1}", AttributeList, Tabel), Connection)
mCommandBuilder = New OleDbCommandBuilder(mDataAdapter)
End Sub
Public Sub Save()
Dim Table As DataTable = dsDataSet.Tables(mstrTabel)
mDataAdapter.Update(Table)
End Sub
End Class
Jeg fatter ikke at mDataAdapter.UpdateCommand forbliver Nothing. Nogle idéer?
