Auslesen einer Spalte aus Mysql Datenbank und anzeigen in Listbox

yonda · 6. August 2010, 01:14

Hallo, ich hab ein Problem

ich arbeite an einem Messenger.
Vb.net 2010 Express + MySql Datenbank

Problem ist derzeit meine Onlineliste, ich möchte die Daten aus der Spalte "Name" aus der datenbank ip ziehen, und diese in einer Listbox wiedergeben.

Hier mein Code (Wird über nen Timer abgefragt)

VB.NET-Quellcode

ListBox1.Items.Clear()
Dim conn As MySqlConnection
'connect to DB
conn = New MySqlConnection()
conn.ConnectionString = "server=meinsrv; user id=meinusr; password=meinpsw; database=meinedb"
'see if connection failed.
Try
conn.Open()
Catch myerror As MySqlException
lblstatus.Text = "Error connecting to database"
End Try
'sql query
Try
Dim myAdapter As New MySqlDataAdapter
'Dim sqlquery = Txtstring.text
Dim myCommand As New MySqlCommand()
myCommand.Connection = conn
myCommand.CommandText = "SELECT Name FROM ip"
'start query
myAdapter.SelectCommand = myCommand
reader_ol = myCommand.ExecuteReader()
reader_ol.Read()
Dim onlinelist As String
reader_ol.Close()
Do While reader.Read
ListBox1.Items.Add(reader_ol("Name"))
ListBox1.DisplayMember = "Name"
Loop
reader_ol.Close()
conn.Close()
Catch ex As Exception
conn.Close()
MsgBox(ex.Message)
End Try

Meine Listbox bleibt leer und es kommt folgende Meldung "Der Objectverweis wurde nicht auf eine bestimmte Objectinstanz festgelegt!"

Ich hoffe Ihr könnt mir helfen

Vielen Dank im Vorraus

Mfg Yonda

INOPIAE · 6. August 2010, 06:29

Da Du nicht sagst, wo der Fehler auftaucht, ist es schwer etwas genaues zu sagen.

Kleiner Tipp: Der Begriff "Name" ist eigentlich für Spaltennamen und Bezeichnungen tabu, da dieser in vielen Umgebungen als Schlüsselwort verwendet wird.

singu · 6. August 2010, 08:25

Wenn sich die Datenbank auf einem Webserver befindet, dann empfehle ich dir das ganze über ein PHP-Skript laufen zu lassen, weil Zugangsdaten im Skript zu haben ist sehr unsicher.

yonda · 6. August 2010, 09:29

INOPIAE schrieb:

Da Du nicht sagst, wo der Fehler auftaucht, ist es schwer etwas genaues zu sagen.

Kleiner Tipp: Der Begriff "Name" ist eigentlich für Spaltennamen und Bezeichnungen tabu, da dieser in vielen Umgebungen als Schlüsselwort verwendet wird.

Hab Die Spalte "Name" in "Bname" umbenannt damit es dort keine Probleme gibt

hier die Meldung aus dem Direktfenster

bei System.Threading.ThreadHelper.ThreadStart()</ExceptionString><DataItems><Data><Key>Server Error Code</Key><Value>1054</Value></Data></DataItems></Exception></TraceRecord>
Eine Ausnahme (erste Chance) des Typs "System.NullReferenceException" ist in STCH-CHat V2.exe aufgetreten.

Hoffe die Fehlermeldung bringt euch bei meinem Problem weiter

Vielen Dank

PS: Ja die Db ist auf einem Webserver gelagert. Vorrangig wollte ich den Messenger zum laufen bringen und mich (danach) um das Thema Sicherheit kümmern. ZB. PhP-Skript und Verschlüsselung Ist aber sehr gut das es nochmal ansprichst, heutzutage wird ja echt viel gehackt.

singu · 6. August 2010, 10:26

In welcher Zeile kommt der Fehler?

yonda · 6. August 2010, 11:31

ok Fehler behoben, hatte den reader.read () nicht in reader_ol.read() umbenannt, er hat einen anderen reader benutzt...

aber jetzt bekomme ich folgende Meldung:

Eine Ausnahme (erste Chance) des Typs "System.IndexOutOfRangeException" ist in MySql.Data.dll aufgetreten

VB.NET-Quellcode

ListBox1.Items.Clear()
Dim conn As MySqlConnection
'connect to DB
conn = New MySqlConnection()
conn.ConnectionString = "server=meinsrv; user id=meinusr; password=meinpsw; database=meinedb"
'see if connection failed.
Try
conn.Open()
Catch myerror As MySqlException
lblstatus.Text = "Error connecting to database"
End Try
'sql query
Try
Dim myAdapter As New MySqlDataAdapter
'Dim sqlquery = Txtstring.text
Dim myCommand As New MySqlCommand()
myCommand.Connection = conn
myCommand.CommandText = "SELECT Bname FROM ip"
'start query
myAdapter.SelectCommand = myCommand
reader_ol = myCommand.ExecuteReader()
reader_ol.Read()
Dim onlinelist As String
Do While reader_ol.Read
ListBox1.Items.Add(reader_ol("Name"))
Loop
reader_ol.Close()
conn.Close()
Catch ex As Exception
conn.Close()
MsgBox(ex.Message)
End Try

Was bedeutet sie? Und wie löse ich das Problem?
Hat einer ne Idee?

yonda · 6. August 2010, 19:05

Ok das Problem hab ich auch selbst gelöst

Mein Kopf raucht schon *gg*

singu · 6. August 2010, 20:17

Könntest du die Lösung posten?

yonda · 7. August 2010, 02:36

Na klar

Eine Ausnahme (erste Chance) des Typs "System.IndexOutOfRangeException" ist in MySql.Data.dll aufgetreten
war der fehler.
in diesem Fall wollte reader_ol die Daten aus der Spalte Name entnehmen! Da diese aber nicht existiert, gibt er einen Fehler zurück!
Richtig war in diesem Fall auch hier Bname zu nutzen und nicht Name!

hier der Code

VB.NET-Quellcode

ListBox1.Items.Clear()
Dim conn As MySqlConnection
'connect to DB
conn = New MySqlConnection()
conn.ConnectionString = "server=meinsrv; user id=meinusr; password=meinpsw; database=meinedb"
'see if connection failed.
Try
conn.Open()
Catch myerror As MySqlException
lblstatus.Text = "Error connecting to database"
End Try
'sql query
Try
Dim myAdapter As New MySqlDataAdapter
'Dim sqlquery = Txtstring.text
Dim myCommand As New MySqlCommand()
myCommand.Connection = conn
myCommand.CommandText = "SELECT Bname FROM ip"
'start query
myAdapter.SelectCommand = myCommand
reader_ol = myCommand.ExecuteReader()
reader_ol.Read()
Dim onlinelist As String
Do While reader_ol.Read
ListBox1.Items.Add(reader_ol("Bname"))
Loop
reader_ol.Close()
conn.Close()
Catch ex As Exception
conn.Close()
MsgBox(ex.Message)
End Try

singu · 7. August 2010, 10:45

Wenn das Programm später veröffentlicht wird, empfehle ich dir den ganzen MySql-Zugriff in ein PHP-Skript auszulagern

yonda · 12. August 2010, 18:48

eine weitere Onlineliste, es taucht kein Fehler auf, aber es wird auch kein user angezeigt!

VB.NET-Quellcode

Try
conn.Open()
Catch myerror As MySqlException
'lblstatus.Text = "Error connecting to database"
End Try
'sql query
Try
Dim myAdapter As New MySqlDataAdapter
'Dim sqlquery = Txtstring.text
Dim myCommand1 As New MySqlCommand()
myCommand1.Connection = conn
Dim wert As Integer = 1
myCommand1.CommandText = "SELECT username FROM reg_status WHERE online= '" & wert & "' "
'AND kicked = '" & "0" & "' or '" & "NULL" & "'
'start query
myAdapter.SelectCommand = myCommand1
reader_ol = myCommand1.ExecuteReader()
reader_ol.Read()
'Dim onlinelist As String
' onlinelist = reader_ol("Name").ToString
'reader_ol.Close()
'ListBox1.Items.Add(onlinelist)
Do While reader_ol.Read
ListBox1.Items.Add(reader_ol("username"))
'ListBox1.DisplayMember = "Name"
Loop
reader_ol.Close()
Catch ex As Exception
conn.Close()
MsgBox(ex.Message)
End Try
conn.Close()
End Sub

ich sehe den fehler nicht

Kann mir jemand helfen?

Chris213 · 13. August 2010, 11:52

is wahrscheinlich net der Fehler, aber warum lässt du den reader 2mal readen

VB.NET-Quellcode

reader_ol.Read()
Do While reader_ol.Read
ListBox1.Items.Add(reader_ol("username"))
Loop
reader_ol.Close()

so

VB.NET-Quellcode

Do While reader_ol.Read
ListBox1.Items.Add(reader_ol("username"))
Loop
reader_ol.Close()

hast du auch in der Db einen Eintrag der "online = '" & wert & "'" hat???

yonda · 13. August 2010, 13:23

Chris213 schrieb:

is wahrscheinlich net der Fehler, aber warum lässt du den reader 2mal readen

VB.NET-Quellcode

reader_ol.Read()

Do While reader_ol.Read

ListBox1.Items.Add(reader_ol("username"))

Loop

reader_ol.Close()

so

VB.NET-Quellcode

Do While reader_ol.Read

ListBox1.Items.Add(reader_ol("username"))

Loop

reader_ol.Close()

hast du auch in der Db einen Eintrag der "online = '" & wert & "'" hat???

danke scheint wirklich der Fehler gewesen zu sein so offensichtlich das er übersehen wird

Onlineliste funzt jetzt

Auslesen einer Spalte aus Mysql Datenbank und anzeigen in Listbox

Auslesen einer Spalte aus Mysql Datenbank und anzeigen in Listbox

VB.NET-Quellcode

INOPIAE schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Chris213 schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Tags

Ähnliche Themen

2 Benutzer haben hier geschrieben