Mehrere Zeilen auslesen

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Mangafreak1995.

    Mehrere Zeilen auslesen

    Hi!

    Ich versuche mit:

    VB.NET-Quellcode

    1. While myData.Read()
    2. ListView1.Items.Add(myData.Item(1))
    3. ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myData.Item(2))
    4. ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myData.Item(4))
    5. ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myData.Item(0))
    6. End While

    Daten von einer Abfrage auszulesen.

    Funktioniert auch, nur wenn die Einträge so aussehen:
    ID | Text
    2 Text
    3 Text
    4 Text

    wird der letze "4" ausgelassen. Komisch ist das :D

    Hat jemand ne Idee?

    ich kann dir auf jeden Fall abhilfe schaffen für ein anderes Problem:

    schreibe

    VB.NET-Quellcode

    1. With ListView.Items.Add("something")
    2. .SubItems.'[...]
    3. End With

    somit sparst du dir das raussuchen ... und wenns sortiert wird, dann ist es nicht umbedingt das letzte ;)

    was ist den myData

    VB.NET-Quellcode

    1. Imports MySql
    2. Imports MySql.Data
    3. Imports MySql.Data.MySqlClient
    4. '---------------------------------------
    6. Try
    7. Dim conn As MySqlConnection
    8. conn = New MySqlConnection
    9. conn.ConnectionString = "server=81.89.xx1.xx3;user id=vbnet_trainlist;password=xxx;database=gforce"
    10. conn.Open() ' Verbindung öffnen
    13. Dim myAdapter As New MySqlDataAdapter
    14. Dim SQLAbfrage As String = "SELECT * FROM vbnet_trainlist"
    15. Dim myCommand As New MySqlCommand
    16. myCommand.Connection = conn
    17. myCommand.CommandText = SQLAbfrage
    19. myAdapter.SelectCommand = myCommand
    20. Dim myData As MySqlDataReader
    21. myData = myCommand.ExecuteReader()
    22. Try
    23. If myData.HasRows Then
    24. While myData.Read()
    25. With ListView1.Items.Add(myData.Item(1))
    26. .SubItems.Add(myData.Item(2))
    27. .SubItems.Add(myData.Item(4))
    28. .SubItems.Add(myData.Item(0))
    29. End With
    30. End While
    31. End If
    32. Catch ex As MySqlException
    33. MsgBox(ex.Message)
    34. End Try
    35. Catch
    36. End Try

    ----------------
    Ich glaube das Problem lag an meinem View Script.

    Hab aber noch eine Frage:
    Wie bekomm ich ein Unix Timestamp, das brauche ich für die Abfrage.
    Und wie kann man das in ein Normales Datum umwandeln? ^^

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „DeadHunter“ ()

    dort müsste eigentlich eine Funktion mit bei sein um ein anderes Format auszugeben : dev.mysql.com/doc/refman/5.1/en/date-and-time-functions.html
    ansonsten hab ich was bei vbArchiv gefunden : vbarchiv.net/tipps/tipp_1410-unix-timestamp-net.html

Facebook
Telefonspende