Hallo zusammen,
stelle zur Zeit meine Datenverwaltung um. Arbeite mit einer Accsess-Datenbank. Nun bekomme ich beim Erstellen eines Kalenders den Fehler: Syntaxfehler in der INSERT INTO-Anweisung.
Fehler tritt hier auf:
stelle zur Zeit meine Datenverwaltung um. Arbeite mit einer Accsess-Datenbank. Nun bekomme ich beim Erstellen eines Kalenders den Fehler: Syntaxfehler in der INSERT INTO-Anweisung.
VB.NET-Quellcode
- Private Osterdatum As Date
- Dim verbindung As OleDb.OleDbConnection
- Dim Builder As OleDb.OleDbCommandBuilder
- Dim da As OleDb.OleDbDataAdapter
- Dim dt As DataTable
- Dim I As Integer = 0
- Private Sub Kalendererstellen()
- verbindung = New OleDb.OleDbConnection
- verbindung.ConnectionString = Daten.ProviderZeile & "C:\Testdaten\MBSOFT.mdb"
- verbindung.Open()
- dt = New DataTable
- Dim dgv As New DataGridView
- Dim ds As New Dataset
- da = New OleDb.OleDbDataAdapter("SELECT * FROM Kalender", verbindung)
- Builder = New OleDb.OleDbCommandBuilder(da)
- da.Fill(dt)
- da.UpdateCommand = Builder.GetUpdateCommand
- da.InsertCommand = Builder.GetInsertCommand
- Dim Startdatum As Date = CDate("01.01.2008")
- Dim Stopdatum As Date = CDate("31.12.2115")
- Dim Laufdatum As Date = CDate("31.12.2007")
- Dim betrag As String = "0,00"
- Me.I = 0
- Do While Laufdatum < Stopdatum
- Laufdatum = Laufdatum.AddDays(1)
- Me.I += 1
- Dim workRow As DataRow = dt.NewRow
- workRow(0) = Me.I ' Primärschlüssel - Integer
- workRow(1) = Laufdatum.Year ' Jahreszahl - Integer
- workRow(2) = Laufdatum.DayOfYear ' Tag des Jahres - Integer
- workRow(3) = Laufdatum.Date ' Datum - Date (kurz)
- workRow(4) = Strings.Left(Laufdatum.Date.ToShortDateString, 5) ' Kurzdatum (23.09)
- workRow(5) = Wochentag(Laufdatum.Date) ' Wochentagname (Montag) - String
- workRow(6) = Feiertage(Laufdatum.Date) ' Feiertag (Tag der Arbeit) - String
- workRow(7) = Ereignistage(Laufdatum.Date) ' Ereignistag aber kein Feiertag (Nikolausabend) - String
- workRow(8) = False ' Wetterdaten aus Internet gelesen - Boolean
- workRow(9) = "#" ' Wetterdaten - String
- workRow(10) = 0 ' Wetterdaten (Max - Tagestemperatur) - Double
- workRow(11) = 0 ' Wetterdaten (Min - Tagestemperatur) - Double
- workRow(12) = betrag ' Tagespreis Benzin (zur Zeit als Text - Änderung in Währung vorgesehen) - String
- workRow(13) = betrag ' Tagespreis Heizöl (sonst wie Tagespreis Benzin)
- workRow(14) = betrag ' Tagespreis Holzpellets (sonst wie Tagespreis Benzin)
- dt.Rows.Add(workRow)
- Loop
- Me.Controls.Add(dgv)
- With dgv
- .Height = Me.Height - 55
- .Width = Me.Width
- End With
- dgv.DataSource = dt
- verbindung.Close()
Fehler tritt hier auf:
Gruß Markus