Windows フォーム アプリの新しいデバッグを開始すると、複数のレコードを「klant」テーブルに問題なく追加できます。それらはすべて、結合された SQL データベース内に保存されます。デバッグを終了してアプリを再起動し、新しいレコードを 1 つ追加すると、以前のすべてのレコードが削除され、その 1 つの新しいレコードがテーブル内の最初のレコードになります。複数のレコードを追加すると、以前のレコードも削除されます。
コードは簡単です:
Public Class DALKlant
Dim dc As New DumbbellDataContext
Dim klant As New klant
Public Sub AddKlant(ByVal klant As klant)
dc.klants.InsertOnSubmit(klant)
dc.SubmitChanges()
End Sub
End Class
編集:最初はデータをまったく保存できませんでした。接続文字列をmdfにリダイレクトする必要がありました。bin/debug/app_data フォルダーにあります。これが問題に関連しているかどうかはわかりません。