Visual Basic

<br />
Private Sub Do_Some_Work()<br />
<br />
Dim dt as DataTable<br />
<br />
FillTable(dt,"SELECT * FROM TableName")<br />
'<br />
'Modify the table <br />
'<br />
UpdateTable(dt,"SELECT * FROM TableName")<br />
<br />
End Sub<br />
<br />
Public Function FillTable(ByRef dt As DataTable, ByVal SelectString As String) As Boolean<br />
		Dim path As String = Application.StartupPath<br />
		Dim cnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" _<br />
		& " Data source= " & path & "\MyDB.mdb"<br />
		Dim strSelect As String = SelectString<br />
		'& ";Connect Timeout=10"<br />
		Dim cn As New OleDb.OleDbConnection(cnStr)<br />
		Dim cmd As New OleDb.OleDbCommand(strSelect, cn)<br />
		Dim da As New OleDb.OleDbDataAdapter(cmd)<br />
		cmd.CommandTimeout = 5<br />
		Try<br />
			da.FillSchema(dt, SchemaType.Source)<br />
			da.Fill(dt)<br />
			Return True<br />
		Catch ex As Exception<br />
			Messagebox.Show(ex.Message)<br />
			Return False<br />
		Finally<br />
			cn.Close()<br />
		End Try<br />
	End Function<br />
<br />
	Public Function UpdateTable(ByVal dt As DataTable, ByVal strSelect As String) As Boolean<br />
		Dim path As String = Application.StartupPath<br />
		Dim cnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" _<br />
		& " Data source= " & path & "\MyDB.mdb"<br />
		'& ";Connect Timeout=10"<br />
		Dim cn As New OleDb.OleDbConnection(cnStr)<br />
		Dim cmd As New OleDb.OleDbCommand(strSelect, cn)<br />
		Dim da As New OleDb.OleDbDataAdapter(cmd)<br />
		Dim cb As New OleDb.OleDbCommandBuilder(da)<br />
		cmd.CommandTimeout = 5<br />
		Try<br />
			cb.GetUpdateCommand()<br />
			da.Update(dt)<br />
			Return True<br />
		Catch ex As Exception<br />
			Messagebox.Show(ex.Message)<br />
			Return False<br />
		Finally<br />
			cn.Close()<br />
		End Try<br />
<br />
	End Function

Dim myArray()() As Integer = {New Integer() {1, 2, 3, 4}, _
                              New Integer() {1, 2}, _
                              New Integer() {1}}
For index As Integer = 0 To (myArray.Length - 1) Step 1
   MessageBox.Show(myArray(index).Length.ToString)
Next

KaKa` wrote:

How do we make a listbox to respond directly when the user clicks on the items

KaKa` wrote:

The SelectedIndexChange event only seems to work when a button is added.

<br />
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles listStat.SelectedIndexChanged<br />
        If listStat.SelectedIndices.Count > 0 Then<br />
<br />
            Label1.Text = ListBox1.SelectedItems(0).Text<br />
<br />
        End If<br />