Hallo zusammen,
ich verstehe etwas nicht und hätte gerne einen Ratschlag.
Ich möchte eine Tabelle erstellen, die z.B. für jeden Tag im August einen Datensatz enthält, und zwar so:
Es werden auch 31 Datensätze erstellt, allerdings hat das Feld TTTAG immer den Wert 1. Warum ist das so?
Danke im voraus!
Gruß Schorsch
ich verstehe etwas nicht und hätte gerne einen Ratschlag.
Ich möchte eine Tabelle erstellen, die z.B. für jeden Tag im August einen Datensatz enthält, und zwar so:
VB.NET-Quellcode
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Dim conDB As New OleDbConnection
- Dim cmEX As New OleDbCommand
- Dim strCONDB As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\MEINPFAD\MEINEDB.accdb"
- conDB.ConnectionString = strCONDB
- ' Löschen der Tabelle
- Dim strSQL As String = "DELETE tblTEST.* FROM tblTEST;"
- With cmEX
- .Connection = conDB
- .CommandType = CommandType.Text
- .CommandText = strSQL
- conDB.Open()
- cmEX.ExecuteNonQuery()
- conDB.Close()
- End With
- ' für jeden Tag einen Datensatz erstellen
- For intTAG = 1 To 31
- strSQL = "INSERT INTO tblTEST ( TTJAHR, TTMONAT, TTTAG ) Values (@1, @2, @3)"
- With cmEX
- .Connection = conDB
- .CommandType = CommandType.Text
- .CommandText = strSQL
- .Parameters.AddWithValue("@1", 2021)
- .Parameters.AddWithValue("@2", 8)
- .Parameters.AddWithValue("@3", intTAG)
- End With
- conDB.Open()
- cmEX.ExecuteNonQuery()
- conDB.Close()
- Next
- End Sub
Es werden auch 31 Datensätze erstellt, allerdings hat das Feld TTTAG immer den Wert 1. Warum ist das so?
Danke im voraus!
Gruß Schorsch