Visual Basic

Do you want to know more?

Private Sub frmCategory_Load(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load

        ' Combine the connection string and connect to database.
        strConnection = strProvider & strDbPath
        'MsgBox(strConnection)
        cnnCat.Open(strConnection)
        cnnCat.CursorLocation = ADODB.CursorLocationEnum.adUseClient
        ' Get the record from the table.
        strCatSql = "SELECT * FROM tblCat"
        rstCat.Open(strCatSql, cnnCat, _
        ADODB.CursorTypeEnum.adOpenKeyset, _
        ADODB.LockTypeEnum.adLockOptimistic)

        ' ... The below code are the same as the one that post before.

    End Sub

    Private Sub btnClose_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnClose.Click

        ' Prompt the user before close the form.
        dlrUserAnswers = MessageBox.Show("Are you sure you want to close " & _
        "Category form?", "Close Category", MessageBoxButtons.YesNo, _
        MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)
        If dlrUserAnswers = DialogResult.Yes Then
            ' Close database connection.
            rstCat.Close()
            cnnCat.Close()
            ' Release the objects to free memory.
            'rstCat = Nothing
            'cnnCat = Nothing
            '' Close the form.
            'Me.Close()
        End If

    End Sub

dim cnn as New ADODB.Connection
dim rst as New ADODB.Recordset

Privat Sub Form1_Load()

        cnn.Open("Provider...;Data Source=...")
        ' Get the record from the table.
        rst.Open("SELECT * FROM [TableName]", cnnCat)
        ' ...
        ' The code to check the record and put it on the form.

        rst.Close
        cnn.Close

        rst=Nothing
        cnn=Nothing

End Sub

        rst.Close
        cnn.Close

        rst=Nothing
        cnn=Nothing

private struct MyDataObject
{
	private string display;
	private object val;
	public MyDataObject(string display, object val)
	{
		this.display = display;
		this.val = val;
	}

	public string Display
	{
		get{ return this.display;}
	}

	public object Value
	{
		get{ return this.val; }
	}
}

<br />
ArrayList al = new ArrayList();<br />
al.Add( new MyDataObject("Val1",1));<br />
al.Add(new MyDataObject("Val2",2));<br />
this.comboBox1.DataSource = al;<br />
this.comboBox1.DisplayMember = "Display";<br />
this.comboBox1.ValueMember = "Value";<br />

<br />
this.comboBox1.SelectedValue = 2; // shows text "Val2" in the combobox<br />