Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Imports MySql.Data.MySqlClient
- Imports System.Data
- Public Class Form1
- 'Kan være lurt å lagre server, database, brukernavn og passord som globale variabler
- 'Dette gjør at vi kan gjenbruke denne informasjonen så lenge programmet kjører
- Private server As String
- Private database As String
- Private username As String
- Private password As String
- Private connstring As String
- 'Forbindelsen settes til OK først dersom server, database, brukernavn og passord er riktig
- Private connectionOK As Boolean = False
- Private conn As New MySqlConnection
- 'Dette kjøres når login vinduet kommer opp
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- TextBox3.PasswordChar = "*"
- End Sub
- 'Login knapp lagrer server, database, brukernavn og passord til globale variabler
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- server = TextBox1.Text
- database = TextBox2.Text
- username = TextBox2.Text
- password = TextBox3.Text
- connstring = "Server=" & TextBox1.Text & ";" _
- & "Database=" & TextBox2.Text & ";" _
- & "Uid=" & TextBox2.Text & ";" _
- & "Pwd=" & TextBox3.Text & ";"
- 'Database er her samme som brukernavn
- conn.ConnectionString = connstring
- 'Tester oppkoblingen
- Try
- conn.Open()
- MessageBox.Show("Connection opened successfully")
- connectionOK = True 'Forbindelsen godkjennes
- conn.Close()
- Catch myerror As MySqlException
- MessageBox.Show("Error connecting to database" & _
- myerror.Message)
- connectionOK = False 'Forbindelsen godkjennes ikke
- Finally
- conn.Dispose()
- End Try
- End Sub
- 'Cancel knapp avslutter programmet
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- Application.Exit()
- End Sub
- ' ------------------------------
- 'Legger inn data i databasen
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
- If connectionOK Then
- Query("INSERT INTO Person (Person_Id, Person_Fornavn, Person_Etternavn) VALUES (500,'Ole','Jensen')")
- Else
- MessageBox.Show("Connection is not OK - Login properly")
- End If
- End Sub
- 'Kjører en spørring mot Person tabellen ved å bruke funksjonen Query
- Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
- If connectionOK Then
- Dim myData As New DataTable
- myData = Query("SELECT * from Person")
- 'En tabell består av mange rader, og DataRow kan inneholde en rad
- Dim temprad As DataRow
- Dim pid, fornavn, etternavn As String 'hjelpevariabler
- 'Fyller listeboksen med formatert informasjon
- ListBox1.Items.Clear() 'fjerner evt. gammel tekst i listeboks
- For Each temprad In myData.Rows
- 'Hver rad har felter, som vi kan hente ut vha navnet og hermetegn
- pid = temprad("Person_Id")
- fornavn = temprad("Person_Fornavn")
- etternavn = temprad("Person_Etternavn")
- ListBox1.Items.Add(pid & " " & fornavn & " " & etternavn) 'utskriften
- Next temprad
- Else
- MessageBox.Show("Connection is not OK - Login properly")
- End If
- End Sub
- 'Sletter data i databasen
- Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
- If connectionOK Then
- Query("DELETE FROM Person WHERE Person_Id = 500")
- Else
- MessageBox.Show("Connection is not OK - Login properly")
- End If
- End Sub
- Private Function Query(ByVal sql As String) As DataTable
- Dim myData As New DataTable
- Try
- conn.Open()
- Dim myCommand As New MySqlCommand
- Dim myAdapter As New MySqlDataAdapter
- Dim kommando As New MySqlCommand(sql, conn)
- Dim da As New MySqlDataAdapter
- da.SelectCommand = kommando
- da.Fill(myData)
- conn.Close()
- Catch myerror As MySqlException
- MessageBox.Show("Error connecting to database" & _
- myerror.Message)
- Finally
- conn.Dispose()
- End Try
- Return myData
- End Function
- 'Oppretter tabellen Person og legger inn eksempeldata
- Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
- If connectionOK Then
- Query("CREATE TABLE Person (Person_Id int, Person_Fornavn char(25), Person_Etternavn char(25))")
- Query("INSERT INTO Person (Person_Id, Person_Fornavn, Person_Etternavn) VALUES (1,'Svend','Horgen')")
- Query("INSERT INTO Person (Person_Id, Person_Fornavn, Person_Etternavn) VALUES (2,'Kari','Jensen')")
- Query("INSERT INTO Person (Person_Id, Person_Fornavn, Person_Etternavn) VALUES (3,'Rune','Olsen')")
- Query("INSERT INTO Person (Person_Id, Person_Fornavn, Person_Etternavn) VALUES (4,'Birger','Svendsen')")
- Query("INSERT INTO Person (Person_Id, Person_Fornavn, Person_Etternavn) VALUES (5,'Lars','Hansen')")
- Else
- MessageBox.Show("Connection is not OK - Login properly")
- End If
- End Sub
- Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
- If connectionOK Then
- Query("DROP TABLE Person")
- Else
- MessageBox.Show("Connection is not OK - Login properly")
- End If
- End Sub
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement