Qbert
Active member
i have a form with a list box on it and it displays records from the database. when i open the form it is fine. then if i close the form and reopen it the data is there twice. i dont know why. if anyone can look at it and maybe see where i am making my mistake that would be great.
it also wont delete the record. which is weird because it used to delete it.
thanks
here is the code
it also wont delete the record. which is weird because it used to delete it.
thanks
here is the code
VB.NET:
Public Class ClientList
Dim ClientIDArray() As Integer
Dim ClientNameArray() As String
Private Sub CloseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles CloseToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub ClientList_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
IanConnect.Open()
Dim ClientList As New System.Data.OracleClient.OracleCommand
ClientList.Connection = IanConnect
ClientList.CommandText = "select * from clients order by client_name"
Dim dr As System.Data.OracleClient.OracleDataReader = ClientList.ExecuteReader()
Dim counter As Integer = 0
While dr.Read()
ClientListListBox.Items.Add(dr.Item(1))
ReDim Preserve ClientIDArray(counter + 1)
ReDim Preserve ClientNameArray(counter + 1)
ClientIDArray(counter) = dr.Item(0)
ClientNameArray(counter) = dr.Item(1)
counter += 1
End While
IanConnect.Close()
End Sub
Private Sub EditClientToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles EditClientToolStripMenuItem.Click
Dim FormB As New EditClient()
If ClientListListBox.SelectedIndex = -1 Then
MsgBox("Please select a client to edit")
Else
PassedClientID = ClientIDArray(ClientListListBox.SelectedIndex)
EditClient.ShowDialog()
'Me.Close()
End If
End Sub
Private Sub DeleteClientToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles DeleteClientToolStripMenuItem.Click
If ClientListListBox.SelectedIndex = -1 Then
'do nothing
Else
PassedClientID = ClientIDArray(ClientListListBox.SelectedIndex)
PassedClientName = ClientNameArray(ClientListListBox.SelectedIndex)
MsgBox("Delete Client """ & PassedClientName & """?", MsgBoxStyle.YesNo)
If MsgBoxResult.No Then
'do nothing
ElseIf MsgBoxResult.Yes Then
IanConnect.Open()
Dim DeleteClient As New System.Data.OracleClient.OracleCommand
DeleteClient.Connection = IanConnect
DeleteClient.CommandText = "DELETE from CLIENTS where CLIENT_ID = " & PassedClientID
Delete = DeleteClient.ExecuteNonQuery()
If Delete > 0 Then
MsgBox("Client " & PassedClientName & " Deleted")
Me.Refresh()
Else
MsgBox("No")
End If
IanConnect.Close()
End If
End If
End Sub
End Class
Last edited by a moderator:
