Public Class Form1
    Dim index As Integer
    Private Sub ÜbersichtBindingNavigatorSaveItem_Click(sender As Object, e As _
      EventArgs) Handles ÜbersichtBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.ÜbersichtBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.SportwettenDataSet)
 
    End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: Diese Codezeile lädt Daten in die Tabelle 
        ' "SportwettenDataSet.Übersicht". Sie können sie bei Bedarf verschieben 
        ' oder entfernen.
        Me.ÜbersichtTableAdapter.Fill(Me.SportwettenDataSet.Übersicht)
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        Dim newdatarow As DataGridViewRow
        newdatarow = ÜbersichtDataGridView.Rows(index)
        newdatarow.Cells(1).Value = TextBox1.Text
        newdatarow.Cells(2).Value = TextBox2.Text
        newdatarow.Cells(3).Value = TextBox3.Text
        newdatarow.Cells(4).Value = TextBox4.Text
    End Sub
 
    Private Sub ÜbersichtDataGridView_CellClick(sender As Object, e As _
      DataGridViewCellEventArgs) Handles ÜbersichtDataGridView.CellClick
        index = e.RowIndex
        Dim selectedrow As DataGridViewRow
        selectedrow = ÜbersichtDataGridView.Rows(index)
        TextBox1.Text = selectedrow.Cells(1).Value.ToString()
        TextBox2.Text = selectedrow.Cells(2).Value.ToString()
        TextBox3.Text = selectedrow.Cells(3).Value.ToString()
        TextBox4.Text = selectedrow.Cells(4).Value.ToString()
    End Sub
End Class

Public Class frmAccess
 
    'Liste der Textboxen
    Dim Texte As New List(Of TextBox)
 
 
    Private Sub BasisBindingNavigatorSaveItem_Click(sender As Object, 
               e As EventArgs) Handles BasisBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.BasisBindingSource.EndEdit()
        Try
            Me.TableAdapterManager.UpdateAll(Me.Test_2019DataSet)
        Catch ex As Exception
            MsgBox("Update scheitert !!!" & vbCrLf & ex.Message, 
                   MsgBoxStyle.Exclamation)
        End Try
 
    End Sub
 
 
 
    Private Sub frmAccess_Load(sender As Object, 
                               e As EventArgs) Handles MyBase.Load
 
        Me.BasisTableAdapter.Fill(Me.Test_2019DataSet.Basis)
 
        Me.Size = New Size(440, 600)  'Formulargröße
 
        'Controls positionieren
        BasisDataGridView.Location = New Point(10, 30)
        BasisDataGridView.Size = New Size(400, 400)
 
        'Textboxen per Programmcode in einer Liste erstellen
        Dim texte_height As Integer = 30
        Dim texte_top As Integer = 450
        Dim tb As TextBox
        Dim dt As DataTable = Me.Test_2019DataSet.Tables("Basis")
        For i As Integer = 0 To 3
 
            'Textbox erstellen
            tb = New TextBox With
                {.Parent = Me, .Top = texte_top + i * texte_height, 
                 .Height = 30, .Width = 400}
 
            'Ereignis-Routine hinzufügen (Datenbindung)      
            tb.DataBindings.Add("Text", BasisBindingSource, 
                                dt.Columns(i).ColumnName)
            AddHandler tb.KeyDown, AddressOf tb_keydown
 
            'Textbox in Liste eintragen
            Texte.Add(tb)
        Next i
    End Sub
 
 
    Private Sub tb_keydown(ByVal sender As Object, e As KeyEventArgs)
        'Auf bestimmte Tasten in allen Textboxen reagieren (Navigation)
        Select Case e.KeyCode
            Case Keys.Return, Keys.Down
                Me.Validate()
                Me.BasisBindingSource.EndEdit()
                If BasisBindingSource.Position < 
                             BasisBindingSource.Count - 1 Then
                    BasisBindingSource.Position += 1
                End If
            Case Keys.Up
                If BasisBindingSource.Position > 0 Then
                    BasisBindingSource.Position -= 1
                End If
        End Select
 
    End Sub
End Class

Private Function GetMonthSum(ByVal columnname_sum As String, 
                             ByVal columnname_date As String,
                             ByVal Month As Integer, ByVal year As Integer) As _
                               Double
 
    'Die geladene Tabelle
    Dim dt As DataTable = Test_2019DataSet.Tables("Basis")
 
    Return Aggregate row As DataRow In dt.AsEnumerable
           Let dti As Date = DirectCast(row(columnname_date), DateTime),
               vl As Decimal = DirectCast(row(columnname_sum), Decimal)
           Where dti.Year = year AndAlso dti.Month = Month
           Into Sum(vl)
End Function

Zitat:

Übrigens: Das ist ein Programmierforum, kein CopyShop.

Zitat:

Hallo Community, wie in der Überschrift schon steht, möchte ich gern einen Bet-Tracker programmieren. Ich Wette regelmäßig auf Fussball Ereignisse und protokolliere diese mit Excel. Jetzt würde ich gern das ganze mit VB realisieren. Es sollen Daten wie Datum,Liga,Spiel,Tipp,Quote,Einsatz,Gewinn,Verlust usw... in einer Datenbank gespeichert werden mit denen anschließend eine Statistik erstellt wird wie zb. eine monatliche Gewinnübersicht, eine jährliche Gewinnübersicht usw.. Wie könnte ich das am besten realisieren? Man bekommt sehr viele Informationen über VB + Datenbank.. aber welche für mein Vorhaben geeignet ist kann ich nicht sagen. Wäre da eine Datenbank mit Access sinnvoll? Kann ich diese über VB einlesen und mit den Daten arbeiten? Mit freundlichen Grüßen, Markus