Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- inn i dataaccess, byval status kommer fra en combobox med harkodet status. Id kommer fra "DataAccess.getInstance().endrestatus(status, ListBox1.SelectedItem.ToString().Substring(10, 6))" som ligger sammen med
- Dim status As String = ComboBox1.Text i knappen.
- gangen i systemet:
- 1. lister ut alle syklene (on form load) "ListBox1.DataSource = DataAccess.getInstance().hentallesykler()"
- 2. trykk på valgt sykkel fra listen.
- 3. DataAccess.getInstance().endrestatus(status, ListBox1.SelectedItem.ToString().Substring(10, 6)) Velger ut stringen fra plass 6 frem til plass 10, som er ID'en
- 4. dette sendes til "endrestatus" som gjør spørringen
- Public Sub endrestatus(ByVal status As String, ByVal id As String)
- MsgBox(status)
- Dim datatable As DataTable
- Dim setstatus = "UPDATE Sykkel SET SykkelStatus = '" & status & "' WHERE Sykkel.SykkelID = '" & id & ";'"
- datatable = dbManager.Sporring(setstatus)
- Console.WriteLine("dbtable storrelse; " & datatable.Rows.Count)
- MsgBox("Sykkel med ID " & id & " er satt som status: " & status)
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement