Imports System.-WPS Office
Imports System.-WPS Office
Imports System.-WPS Office
OleDb
'DECLARATIONS
Me.SetupListView()
End Sub
'SETUP LISTVIEW
mListView.View = View.Details
mListView.FullRowSelect = True
'CONSTRUCT COLUMNS
mListView.Columns.Add("ID", 50)
mListView.Columns.Add("Name", 160)
mListView.Columns.Add("Propellant", 170)
mListView.Columns.Add("Destination", 170)
End Sub
'ADD PARAMETERS
cmd.Parameters.AddWithValue("@NAME", nameTxt.Text)
cmd.Parameters.AddWithValue("@PROPELLANT", propellantTxt.Text)
cmd.Parameters.AddWithValue("@DESTINATION", destinationTxt.Text)
Try
con.Open()
MsgBox("Successfully Inserted")
CleartextBoxes()
End If
con.Close()
Retrieve()
Catch ex As Exception
MsgBox(ex.Message)
con.Close()
End Try
End Sub
'POPULATE LISTVIEW
Private Sub Populate(id As String, spacecraft As String, propellant As String, destination As String)
'ROW ARRAY
mListView.Items.Add(item)
End Sub
mListView.Items.Clear()
Try
con.Open()
adapter.Fill(dt)
Next
'CLEAR DATATABLE
dt.Rows.Clear()
con.Close()
Catch ex As Exception
MsgBox(ex.Message)
con.Close()
End Try
End Sub
'UPDATE DATABASE
Private Sub UpdateLV(id As String, spacecraft As String, propellant As String, destination As String)
'SQL STATEMENT
Dim sql As String = "UPDATE spacecraftsTB SET S_Name='" + spacecraft + "',S_Propellant='" + propellant
+ "',S_Destination='" + destination + "' WHERE ID=" + id + ""
Try
con.Open()
adapter.UpdateCommand = con.CreateCommand()
adapter.UpdateCommand.CommandText = sql
MsgBox("Successfully Updated")
CleartextBoxes()
End If
con.Close()
Retrieve()
Catch ex As Exception
MsgBox(ex.Message)
con.Close()
End Try
End Sub
Try
con.Open()
adapter.DeleteCommand = con.CreateCommand()
adapter.DeleteCommand.CommandText = sql
CleartextBoxes()
MsgBox("Successfully deleted")
End If
End If
con.Close()
Retrieve()
Catch ex As Exception
MsgBox(ex.Message)
con.Close()
End Try
End Sub
'RESET TEXTBOXES
Private Sub CleartextBoxes()
nameTxt.Text = ""
propellantTxt.Text = ""
destinationTxt.Text = ""
End Sub
Add()
End Sub
Retrieve()
End Sub
End If
End Sub
Delete(id)
End If
End Sub
mListView.Items.Clear()
CleartextBoxes()
End Sub
Try
nameTxt.Text = spacecraft
propellantTxt.Text = propellant
destinationTxt.Text = destination
End If
End If
Catch ex As ArgumentOutOfRangeException
End Try
End Sub
End Class