Es funktioniert!!! Danke fichz!!!
Die hochkommas waren es!
Danke danke danke :DDD
Hier die Lösung falls Sie irgenwann irgendwer braucht =)
Spoiler anzeigen
Danke an alle die Geduld mit mir hatten und sich Mühe gegeben haben!^^
Mfg
Skype
Die hochkommas waren es!
Danke danke danke :DDD
Hier die Lösung falls Sie irgenwann irgendwer braucht =)
VB.NET-Quellcode
- Dim Zeit As String
- Dim Stunde As String
- Dim Minute As String
- If Now.Hour < 10 Then
- Stunde = "0" & Now.Hour.ToString
- Else
- Stunde = Now.Hour
- End If
- If Now.Minute < 10 Then
- Minute = "0" & Now.Minute.ToString
- Else
- Minute = Now.Minute
- End If
- Zeit = Stunde & ":" & Minute
- Try
- Dim strSQL As String
- Dim con As New SqlConnection
- Dim cmd As SqlCommand
- Dim reader As SqlDataReader
- strSQL = "SELECT TOP 1 * FROM Termine WHERE Datum >= '" _
- & Now.Date.ToString.Replace(" 00:00:00", "") & "' AND Uhrzeit >= '" _
- & Zeit & "' ORDER BY Datum, Uhrzeit"
- con = New Data.SqlClient.SqlConnection(AB.UserConnectionString)
- con.Open()
- cmd = New SqlCommand(strSQL, con)
- reader = cmd.ExecuteReader
- If reader.HasRows Then
- reader.Read()
- Me.textbox_TerminDatum.Text = reader("Datum").ToString.Trim
- Me.textbox_TerminKurzinfo.Text = reader("Komplettbeschreibung").ToString.Trim
- Me.textbox_TerminMitarbeiter.Text = reader("Mitarbeiter").ToString.Trim
- Me.textbox_TerminPrioritaet.Text = reader("Priorität").ToString.Trim
- Me.textbox_TerminUhrzeit.Text = reader("Uhrzeit").ToString.Trim
- Else
- Me.textbox_TerminDatum.Text = "-"
- Me.textbox_TerminKurzinfo.Text = "-"
- Me.textbox_TerminMitarbeiter.Text = "-"
- Me.textbox_TerminPrioritaet.Text = "-"
- Me.textbox_TerminUhrzeit.Text = "-"
- End If
- reader.Close()
- cmd.Dispose()
- con.Close()
- con.Dispose()
- Catch ex As Exception
- MessageBox.Show(ex.Message)
- End Try
Danke an alle die Geduld mit mir hatten und sich Mühe gegeben haben!^^
Mfg
Skype