Hallo an alle,
ich beschäftige mich gerade mit dem Auslesen von Datumswerten aus einer MySql DB leider klappt das nicht so wie ich mir das vorstelle.
txtheute wird mit dem aktuellen Datum "Date.Today" gefüllt und anhand dieser Daten soll er in der Tabelle suchen und mir in eine seprates Textfeld den Inhalt von "Body" bringen aber es passiert nicht würde mich über eure Unterstützung freuen.
Danke
Michael
Edit by Dodo:
-> VB-Tags eingefügt
ich beschäftige mich gerade mit dem Auslesen von Datumswerten aus einer MySql DB leider klappt das nicht so wie ich mir das vorstelle.
txtheute wird mit dem aktuellen Datum "Date.Today" gefüllt und anhand dieser Daten soll er in der Tabelle suchen und mir in eine seprates Textfeld den Inhalt von "Body" bringen aber es passiert nicht würde mich über eure Unterstützung freuen.
VB.NET-Quellcode
- Dim _conn As New MySql.Data.MySqlClient.MySqlConnection
- Dim cmd As New MySql.Data.MySqlClient.MySqlCommand
- Dim reader As MySql.Data.MySqlClient.MySqlDataReader
- Dim connectionString As String = "Server=****;User ID=****;Password=****;Database=****;"
- Private Sub lesenDatum()
- Dim csql As String = "SELECT * FROM bmi"
- csql &= " WHERE Datum = #" & txtheute.Text & "#"
- cmd.Connection = _conn
- '1. Datenbankverbindung herstellen.
- _conn.ConnectionString = connectionString
- '2. csql - Select anweisung ausführen.
- '3. Abfragen, ob die Rückgabe Werte enthält.
- cmd.CommandText = csql
- Try
- _conn.Open()
- reader = cmd.ExecuteReader()
- Do While reader.Read()
- TextBox3.Text = reader("Body")
- Loop
- reader.Close()
- _conn.Close()
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- End Sub
Danke
Michael
Edit by Dodo:
-> VB-Tags eingefügt
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Dodo“ ()