Hallo,
ich habe ein Programm jetzt mal kompiliert und auf einen anderen Rechner gepackt. Der unterschied ist, dass der eine Rechner dt der andere Engl. ist. ich habe auf dem Engl. entwickelt. Da laeuft auch alles. Auf dem dt. Rechner kommt hierbei folgender Fehler:
Dim fntAdress As New Font("Microsoft Sans Serif", 12, FontStyle.Bold)
Dim i As Integer
Dim DateDiffer As Date = DateAdd(DateInterval.Year, -2, Now)
DateDiffer = DateSerial(DatePart(DateInterval.Year, DateDiffer, FirstDayOfWeek.Monday, FirstWeekOfYear.FirstFourDays), DatePart(DateInterval.Month, DateDiffer, FirstDayOfWeek.Monday, FirstWeekOfYear.FirstFourDays), DatePart(DateInterval.Day, DateDiffer, FirstDayOfWeek.Monday, FirstWeekOfYear.FirstFourDays))
cString = "SELECT * FROM Adressen WHERE dzGeändert < #" & DateDiffer & "# ORDER BY dzGeändert"
Command = New OdbcCommand(cString, DBConAlt1)
cmbTitel.Items.Clear()
Try
ReaderAlt1 = Command.ExecuteReader()
Do Until ReaderAlt1.Read = False Or i = 7
i += 1
lblAdresse = New clsAdressLabel("lblAdresse" & i)
With lblAdresse
.Text = "[" & Format(ReaderAlt1.Item("StammIndex"), "00000") & "] - " & ReaderAlt1.Item("sName")
.Left = 20
.Top = 20 + (i * 25)
.Width = 350
.Height = 23
.ForeColor = Color.White
.Font = fntAdress
.BackColor = Color.Transparent
.Cursor = Cursors.Hand
End With
picBackGround.Controls.Add(lblAdresse)
Application.DoEvents()
Loop
Catch ex As Exception
MsgBox(ex.Message)
Finally
ReaderAlt1.Close()
End Try
ERROR [Microsoft][ODBC Microsoft Access Driver] Syntaxfehler in Datum in Abfrageausdruck 'dzGeändert < #13.03.2003#'.
So die Datenbank ist allerdings LEER und ich habe auch so weit ich weisz alle Werte von 1/1/1800 in 01.01.1800 geaendet, damit es zu keinen Fehlern kommt.
Wo ist der Fehler?
ich habe ein Programm jetzt mal kompiliert und auf einen anderen Rechner gepackt. Der unterschied ist, dass der eine Rechner dt der andere Engl. ist. ich habe auf dem Engl. entwickelt. Da laeuft auch alles. Auf dem dt. Rechner kommt hierbei folgender Fehler:
Dim fntAdress As New Font("Microsoft Sans Serif", 12, FontStyle.Bold)
Dim i As Integer
Dim DateDiffer As Date = DateAdd(DateInterval.Year, -2, Now)
DateDiffer = DateSerial(DatePart(DateInterval.Year, DateDiffer, FirstDayOfWeek.Monday, FirstWeekOfYear.FirstFourDays), DatePart(DateInterval.Month, DateDiffer, FirstDayOfWeek.Monday, FirstWeekOfYear.FirstFourDays), DatePart(DateInterval.Day, DateDiffer, FirstDayOfWeek.Monday, FirstWeekOfYear.FirstFourDays))
cString = "SELECT * FROM Adressen WHERE dzGeändert < #" & DateDiffer & "# ORDER BY dzGeändert"
Command = New OdbcCommand(cString, DBConAlt1)
cmbTitel.Items.Clear()
Try
ReaderAlt1 = Command.ExecuteReader()
Do Until ReaderAlt1.Read = False Or i = 7
i += 1
lblAdresse = New clsAdressLabel("lblAdresse" & i)
With lblAdresse
.Text = "[" & Format(ReaderAlt1.Item("StammIndex"), "00000") & "] - " & ReaderAlt1.Item("sName")
.Left = 20
.Top = 20 + (i * 25)
.Width = 350
.Height = 23
.ForeColor = Color.White
.Font = fntAdress
.BackColor = Color.Transparent
.Cursor = Cursors.Hand
End With
picBackGround.Controls.Add(lblAdresse)
Application.DoEvents()
Loop
Catch ex As Exception
MsgBox(ex.Message)
Finally
ReaderAlt1.Close()
End Try
ERROR [Microsoft][ODBC Microsoft Access Driver] Syntaxfehler in Datum in Abfrageausdruck 'dzGeändert < #13.03.2003#'.
So die Datenbank ist allerdings LEER und ich habe auch so weit ich weisz alle Werte von 1/1/1800 in 01.01.1800 geaendet, damit es zu keinen Fehlern kommt.
Wo ist der Fehler?