Hallo,
ich möchte in meiner MySql Datenbank eine Abfrage ausführen, die mir als Ergebnis mehrere Ergebnisse liefert. Sie sieht wie folgt aus:
Allerdings erhalte ich bei count=44 einen Fehler. "myerror" ist dabei: "Too many Connections"
Was mache ich falsch, bzw. welchen anderen Weg gibt es mehrere Ergebnisse, die auf einen Select Befehl ansprigen zu bekommen?
mfg
ich möchte in meiner MySql Datenbank eine Abfrage ausführen, die mir als Ergebnis mehrere Ergebnisse liefert. Sie sieht wie folgt aus:
VB.NET-Quellcode
- Private Sub execute()
- Using cn As New MySqlConnection(ServerString)
- Dim query As String = "SELECT faction FROM character_reputation WHERE guid='1'"
- Using cmd As New MySqlCommand(query, cn)
- Try
- cn.Open()
- Catch ex As Exception
- MsgBox(ex.ToString)
- End Try
- Dim reader As MySqlDataReader = cmd.ExecuteReader
- Dim IdList As New List(Of Integer)
- Do While reader.Read
- count += 1
- Dim faction As String = (reader("faction"))
- Dim standing As String = runcommand("SELECT standing FROM character_reputation WHERE faction='" & faction & "' AND guid='1'", "standing")
- Dim flags As String = runcommand("SELECT flags FROM character_reputation WHERE faction='" & faction & "' AND guid='1'", "flags")
- Loop
- MsgBox(count.ToString)
- End Using
- End Using
- End Sub
- Private Function runcommand(ByVal command As String, ByVal spalte As String)
- Dim conn As MySqlConnection
- 'connect to DB
- conn = New MySqlConnection()
- conn.ConnectionString = ServerString
- 'see if connection failed.
- Try
- conn.Open()
- Catch myerror As MySqlException
- End Try
- 'sql query
- Try
- Dim myAdapter As New MySqlDataAdapter
- 'Dim sqlquery = Txtstring.text
- Dim myCommand As New MySqlCommand()
- Dim reader_ol
- myCommand.Connection = conn
- myCommand.CommandText = command
- 'start query
- myAdapter.SelectCommand = myCommand
- reader_ol = myCommand.ExecuteReader()
- reader_ol.Read()
- Return reader_ol(spalte)
- reader_ol.Close()
- conn.Close()
- Catch ex As Exception
- conn.Close()
- MsgBox(count.ToString & ex.Message)
- End Try
- End Function
Allerdings erhalte ich bei count=44 einen Fehler. "myerror" ist dabei: "Too many Connections"
Was mache ich falsch, bzw. welchen anderen Weg gibt es mehrere Ergebnisse, die auf einen Select Befehl ansprigen zu bekommen?
mfg