Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement