Well Data Access in VB.NET.
Here I have a code which displays two columns from the table in a listbox.
Code:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim objConn As New OleDb.OleDbConnection()
Dim objCommand As New OleDb.OleDbCommand()
Dim objDataAdapter As New OleDb.OleDbDataAdapter()
Dim objDataSet As New DataSet()
Dim strConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & System.IO.Directory.GetCurrentDirectory.ToString & "\Db1.mdb"
Dim strSelect As String = "Select * from members"
objConn.ConnectionString = strConnectionString
objConn.Open()
objCommand.Connection = objConn
objCommand.CommandText = strSelect
objCommand.CommandType = CommandType.Text
objDataAdapter.SelectCommand = objCommand
objDataAdapter.Fill(objDataSet)
Dim ctr As Short
If objDataSet.Tables(0).Rows.Count > 0 Then
For ctr = 0 To objDataSet.Tables(0).Rows.Count - 1
ListBox1.Items.Add(objDataSet.Tables(0).Rows(ctr).Item(0) & vbTab & _
objDataSet.Tables(0).Rows(ctr).Item(1))
Next
End If
objDataSet.Dispose()
objDataSet = Nothing
objCommand.Dispose()
objCommand = Nothing
objConn.Close()
objConn = Nothing
End Sub
Well, I think its unduely long for such a simple thing, I have followed the Black book to get this. Are all the steps are necessary for it? I mean the objects created -
connection object - needed
adapter onbject - I guess needed
Command object - ?
Dataset - ?
Well, I know There is a datareader - but would rather not get into it at the moment.
Well, also are app.path is not there hence - I have used that looooong thing - is there any other thing available for it?
Also i would like to know whether we have a EOF for the dataset like we used to have for are old recordsets?