DB mit Acess

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Sam85.

    DB mit Acess

    Hallöchen,

    ich habe eine Rückfrage:

    Wenn ich eine DB am laufen habe (läuft auch ganz ok) und nun zwei Spalten hinzufügen will (soweit so gut) werden die Daten nicht gespeichert, dafür entsteht aber eine Access Datei mit Record-Locking-Information.
    Bedeutet diese Datei, das ein User noch aktiv damit arbeitet und die Änderungen deswegen nicht stattfinden können? Oder muss ich die zwei neuen Spalten auch manuell in die Access Datei einfügen?

    Freue mich über Feedback :).

    (Hier der Code falls nötig).

    Edit:
    Ich habe es jetzt hinbekommen :)...auch wenn ich keine der beiden Fragen dadurch beantworten konnte (vielleicht kann man mir das dennoch jemand erklären).
    Dafür etwas anderes, die erste Zeile wird in der Combobox nun nicht mehr richtig angezeigt...wie kann das verursacht worden sein?
    Stattdessen kommt aufeinmal "System.Data.DataRowView", anstelle des Textes aus dem DataGridView welche mit Access verbunden ist, sobald ich den ersten Eintrag auswähle. Das trifft auch nur auf den ersten Eintrag zu, die anderen werden alle korrekt angezeigt. Gleichzeitig habe ich auch ein "Reset" Button eingebaut (alle Textboxes werden dann einfach wieder "" oder "0,00") und sobald ich den betätige, wird nur dieser Eintrag (Zeile) ebenfalls nicht mehr korrekt angezeigt.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Data.OleDb
    2. Imports System.Data.DataSet
    4. Public Class z_Einlagen_Tabelle
    6. Private Sub z_Einlagen_Tabelle_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    7. 'TODO: Diese Codezeile lädt Daten in die Tabelle "EinlagenDataSet.Bausteine". Sie können sie bei Bedarf verschieben oder entfernen.
    8. Me.BausteineTableAdapter.Fill(Me.EinlagenDataSet.Bausteine)
    9. End Sub
    11. Private Sub btn_before_Click(sender As Object, e As EventArgs) Handles btn_before.Click
    12. BausteineBindingSource.MovePrevious()
    13. End Sub
    15. Private Sub btn_next_Click(sender As Object, e As EventArgs) Handles btn_next.Click
    16. BausteineBindingSource.MoveNext()
    17. End Sub
    19. Private Sub btn_add_Click(sender As Object, e As EventArgs) Handles btn_add.Click
    20. BausteineBindingSource.AddNew()
    21. End Sub
    23. Private Sub btn_save_Click(sender As Object, e As EventArgs) Handles btn_save.Click
    24. On Error GoTo Err
    25. BausteineBindingSource.EndEdit()
    26. BausteineTableAdapter.Update(Me.EinlagenDataSet.Bausteine)
    27. MessageBox.Show("Gespeichert.")
    28. Err:
    29. Exit Sub
    30. End Sub
    32. Private Sub btn_delete_Click(sender As Object, e As EventArgs) Handles btn_delete.Click
    33. BausteineBindingSource.RemoveCurrent()
    34. End Sub
    36. Private Sub btn_close_Click(sender As Object, e As EventArgs) Handles btn_close.Click
    37. Me.Close()
    38. End Sub
    40. Private Sub BausteineBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles BausteineBindingNavigatorSaveItem.Click
    41. Me.Validate()
    42. Me.BausteineBindingSource.EndEdit()
    43. Me.TableAdapterManager.UpdateAll(Me.EinlagenDataSet)
    44. End Sub
    46. End Class


    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „Sam85“ ()

    Versuchma dein aktuelles Problem iwie nachvollziehbar zu beschreiben.
    Sowas:

    Sam85 schrieb:

    Stattdessen kommt aufeinmal "System.Data.DataRowView", anstelle des Textes aus dem DataGridView welche mit Access verbunden ist, sobald ich den ersten Eintrag auswähle.
    ist nur wirres Zeug, und ich frage mich, ob "System.Data.DataRowView" mittm Bus kommt oder per Bahn, und wie lange es bleiben will, ... ;)

    @ErfinderDesRades Ja es kommt mit der Bahn :D ...ich habe mal in Bildern versucht das Ereignis zu beschreiben.
    Also ich wähle das erste Element aus Bild1, dann betätige ich den "Reset Button" (der Code ist unten im Spoiler) und dann passiert Bild2.
    Der Button soll einfach nur die Felder, wie auf Anfang zurücksetzen nur wie der Text im ersten Element zu "System.Data.DataRowView" wird, dass kann ich nicht nachvollziehen.

    Zusätzlich passiert auch, dass egal bei welchen Element ich dann den Button Reset drücke, die Verbindungen dieses Element nicht mehr bestehen also die TextBoxen leer sind, wo vorher etwas drin stand. Aber nur solange bis ich halt das Form wieder neu starte.

    Und, was ich fast vergessen habe, das erste Element in der Combobox übernimmt auch keine Verbindungen aber alle anderen Element schon?!

    Ist es so etwas besser oder immer noch unverständlich? :whistling:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub btn_reset_Click(sender As Object, e As EventArgs) Handles btn_reset.Click
    3. 'Reset Befreit
    4. If ckb_free.Checked = True Then ckb_free.Checked = False
    6. 'Rest TextBox GroupBox Calculation
    7. For Each tbx As TextBox In gb_calc.Controls.OfType(Of TextBox)()
    8. tbx.Text = "0,00"
    9. Next
    11. 'Reset Checkbox Panel
    12. Dim pan() = {pan_e, pan_b}
    14. For Each panel As Panel In pan
    15. For Each ckb As CheckBox In panel.Controls.OfType(Of CheckBox)()
    16. ckb.Enabled = True
    17. ckb.Checked = False
    18. Next
    19. Next
    21. 'Reset Panel Main
    22. tbx_au.Text = "0,00"
    23. tbx_fix.Text = "0,00"
    24. tbx_class.Text = ""
    25. cbx_main.Text = ""
    26. tbx_artikel.Text = ""
    27. tbx_privat.Text = "0,00"
    28. End Sub


    Bilder

    • Bild1.jpg

      104,59 kB, 1.152×648, 158 mal angesehen

    • Bild2.jpg

      103,58 kB, 1.152×648, 165 mal angesehen

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Sam85“ ()

    @ErfinderDesRades ...stimmt, egal welcher Button aber nur, wenn nicht das erste Item ausgewählt ist. Wie kann das sein? ?(
    Seltsam ist auch, dass eigentlich nur die Beschriftung in der ComboBox sich ändert, die übrigen Bindings werden weiterhin korrekt angezeigt.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Sam85“ ()

Facebook
Telefonspende