Visual Basic

d_smita wrote:

where and How can i implement it ?

myConnection.Open()<br />
Dim someValue As Object = myCommand.ExecuteScalar();<br />
myConnection.Close()

Private WithEvents cnnDonorDb As New System.Data.OleDb.OleDbConnection( _
    "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='C:\DICDonorDb\DICDornorDb.mdb';" & _
    "Persist Security Info=False")

SELECT * FROM tblOrgType.OrgType ORDER BY tblOrgType.OrgType;

SELECT OrgType FROM tblOrgType ORDER BY OrgType

Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=""C:\DICDonorDb\DICDornorDb.mdb""; Persist Security Info=False;"
Dim conn As New OldDbConnection(connString)
Dim cmdOrgType As New OleDbCommand

With cmdOrgType
    .Connection = cnnDonorDb
    .CommandType = CommandType.Text
    .CommandText = "SELECT OrgType FROM tblOrgType ORDER BY OrgType"
End With

' Open the connection.
cmdOrgType.Connection.Open()

' Execute the command to the return the list of organization type.
Dim drdResult As OleDbDataReader
drdResult = cmdOrgType.ExecuteReader()

' Get the list of organization type and put it in the list box.
While drdResult.Read
    For colOrgType As Integer = 0 To drdResult.FieldCount - 1
        lsbOrgInfo.Items.Add(drdResult(colOrgType).ToString)
    Next
End While

' Close the result.
drdResult.Close()

' Close the connection
cmdOrgType.Connection.Close()

...
cmdOrgType.Connection.Open()
Dim drdResult As OleDbDataReader
drdResult = cmdOrgType.ExecuteReader()
While drdResult.Read   ' Here is the problem occure.
For colOrgType As Integer = 0 To drdResult.FieldCount - 1          lsbOrgInfo.Items.Add(drdResult(colOrgType).ToString)
Next
End While
drdResult.Close()
cmdOrgType.Connection.Close()

drdResult = cmdOrgType.ExecuteReader()
If Not drdResult Is Nothing Then
    While ...