Hallo zusammen,
und zwar habe ich ein Problem und weiß nicht wirkluch weiter.
Ich möchte eine Tabelle aus MySQL auslesen und die Tabels als return Wert in eine Funktion packen, sodass ich nicht immer wieder die Abfrage machen muss, ich habe sowas schonmal in Lua Gecoded github.com/CoronaCore/LuaScrip…ripts/base/sc_premium.lua
aber ich habe keine Idee wie ich es jetzt hier umsetzen soll, ich dachte an so in etwar. Geht natürlich nicht daher brauche ich eure Hilfe =)
und zwar habe ich ein Problem und weiß nicht wirkluch weiter.
Ich möchte eine Tabelle aus MySQL auslesen und die Tabels als return Wert in eine Funktion packen, sodass ich nicht immer wieder die Abfrage machen muss, ich habe sowas schonmal in Lua Gecoded github.com/CoronaCore/LuaScrip…ripts/base/sc_premium.lua
aber ich habe keine Idee wie ich es jetzt hier umsetzen soll, ich dachte an so in etwar. Geht natürlich nicht daher brauche ich eure Hilfe =)
VB.NET-Quellcode
- Module Module1
- Public Function Testing()
- Dim Mycon As MySQL_Class = New MySQL_Class
- Try
- Mycon.con.Open()
- Dim command = New SqlCommand("SELECT * FROM Quests", Mycon.con)
- Dim reader As SqlDataReader = command.ExecuteReader()
- While reader.Read
- Dim BalBla1 As String
- Dim BalBla2 As String
- BalBla1 = (reader("Titel").ToString)
- BalBla2 = (reader("Beschreibung").ToString)
- End While
- reader.Close()
- Mycon.con.Close()
- Catch myerror As SqlException
- MessageBox.Show("Cannot connect to database: " & myerror.Message)
- Finally
- Mycon.con.Dispose()
- End Try
- End Function
- Function GetTitel()
- Return Testing().BalBla1
- End Function
- Function GetBeschreibung()
- Return Testing().BalBla2
- End Function
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- MsgBox(GetTitel())
- End Sub
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- MsgBox(GetBeschreibung())
- End Sub
- End Module