Imports MySql.Data.MySqlClient

Public Class innlogging

    Private dbConnection As MySqlConnection = New MySqlConnection( _
           "Server=mysql.stud.aitel.hist.no;" _
         & "Database=DITT_DATABASENAVN;" _
         & "Uid=DITT_DATABASE_BRUKERNAVN;" _
         & "Pwd=DITT_DATABASE_PASSORD+;")


    Public Function query(queryString As String)
        Dim dbData As New DataTable

        Try
            dbConnection.Open()
            Dim dbAdapter As New MySqlDataAdapter
            dbAdapter.SelectCommand = New MySqlCommand(queryString, dbConnection)
            dbAdapter.Fill(dbData)
            dbConnection.Close()
        Catch ex As Exception
            MessageBox.Show("Feil ved oppkobling mot database: " & ex.Message)
        Finally
            dbConnection.Dispose()
        End Try
        Return dbData
    End Function

End Class