listbox如何实时更新数据库中信息？
比如我用sql命令删除listbox中一条信息，在数据库中已经删除，但listbox中还是显示以前没删除时得信息，如何实时更新数据库中信息.
具体listbox代码如下.
form_load中的代码
Dim strcon, strcmd As String
strcon = "Initial Catalog=blddatebase;Data Source=(local);User ID=sa;Password=;"
Dim sqlcon As SqlConnection = New SqlConnection(strcon)
sqlcon.Open()
strcmd = "Select * From gysxinxi "
Dim dr As SqlDataReader
Dim sqlcmd As SqlCommand = New SqlCommand(strcmd, sqlcon)
dr = sqlcmd.ExecuteReader
Do While dr.Read
ListBox1.Items.Add(dr(0))
Loop
dr.Close()
sqlcon.Close()
listbox中的代码
Dim strcon, strcmd As String
strcon = "Initial Catalog=blddatebase;Data Source=(local);User ID=sa;Password=;"
Dim sqlcon As SqlConnection = New SqlConnection(strcon)
sqlcon.Open()
strcmd = "select * from gysxinxi where gysbh='" + Me.ListBox1.Text + "'"
Dim sqlcmd As SqlCommand = New SqlCommand(strcmd, sqlcon)
Dim dr As SqlDataReader
dr = sqlcmd.ExecuteReader
dr.Read()
Me.TextBox1.Text = dr("gysmc")
If dr.IsDBNull(2) = True Then
Me.TextBox2.Text = ""
Else
Me.TextBox2.Text = dr("lxdh")
End If
If dr.IsDBNull(3) = True Then
Me.TextBox3.Text = ""
Else
Me.TextBox3.Text = dr("gysdz")
End If
If dr.IsDBNull(4) = True Then
Me.TextBox4.Text = ""
Else
Me.TextBox4.Text = dr("yb")
End If
这是删除信息的代码
Dim strcon, strcmd As String
strcon = "Initial Catalog=blddatebase;Data Source=(local);User ID=sa;Password=;"
Dim sqlcon As SqlConnection = New SqlConnection(strcon)
sqlcon.Open()
strcmd = "DELETE FROM gysxinxi WHERE [gysbh]='" & ListBox1.Text & "'"
Dim sqlcmd As SqlCommand = New SqlCommand(strcmd, sqlcon)
sqlcmd.ExecuteNonQuery()
MessageBox.Show("删除供应商信息成功!", "提醒", MessageBoxButtons.OK, MessageBoxIcon.None)
大家帮我想想办法如何即时更新数据库信息到listbox，最好写点代码或实例谢谢！
[解决办法]
把数据源(你查询出的数据)绑定到listbox就行了
list.DataSource = ds.Tables(0)'ds 为 DataSet 对象
list.DataTextField = "textFld" 'textFld 为字段名称
list.DataValueField = "valueFld"'valueFld 为字段名称
list.DataBind()
