Chapter 16 the OLEdb Way?

jem · February 1st, 2004, 04:42 PM

Quote:

quote:Originally posted by solva
How does the code on page638 of 'Beginning VB.Net 2nd edition' need to be adapted for use with OLE.

I keep getting an error message at

Code:

myDataAdapter.Fill(myDataSet, "customers")

this si the error message

An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in system.data.dll

here is my whole code I adapted for my use with an Access database called concord.

Code:

' IMport Data and Oledb namespaces
Imports System.Data
Imports System.Data.OleDb

Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim myConnection As OleDbConnection = New _
        OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; data source = c:\concord.mdb")
    Dim myDataAdapter As New OleDbDataAdapter()
    Dim myDataSet As DataSet = New DataSet()

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Set the SelectCommand properties
        myDataAdapter.SelectCommand = New OleDbCommand()
        myDataAdapter.SelectCommand.Connection = myConnection
        myDataAdapter.SelectCommand.CommandText = _
            "SELECT CustNum, WorkPhone, Alt Phone, Firstname, LastName, Address, Address1, City, StateOrProvince " & _
            "FROM customer " & _
            "ORDER BY LastName, LastName"
        myDataAdapter.SelectCommand.CommandType = CommandType.Text

        ' OPen the database connection
        myConnection.Open()
        'Now execute the command
        myDataAdapter.SelectCommand.ExecuteNonQuery()
        ' Fill DataSet object with data
        myDataAdapter.Fill(myDataSet, "customers")

        'Close the database connection
        myConnection.Close()
        ' Set the dataGrid properties to bind it to our data
        grdCustomerInfo.DataSource = myDataSet
        grdCustomerInfo.DataMember = "customers"
    End Sub
End Class

"I'm Still Learning" Neely Fuller Jr.

jem · February 1st, 2004, 04:44 PM

Quote:

quote:Originally posted by solva
How does the code on page638 of 'Beginning VB.Net 2nd edition' need to be adapted for use with OLE.

I keep getting an error message at

Code:

myDataAdapter.Fill(myDataSet, "customers")

this si the error message

An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in system.data.dll

here is my whole code I adapted for my use with an Access database called concord.

Code:

' IMport Data and Oledb namespaces
Imports System.Data
Imports System.Data.OleDb

Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim myConnection As OleDbConnection = New _
        OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; data source = c:\concord.mdb")
    Dim myDataAdapter As New OleDbDataAdapter()
    Dim myDataSet As DataSet = New DataSet()

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Set the SelectCommand properties
        myDataAdapter.SelectCommand = New OleDbCommand()
        myDataAdapter.SelectCommand.Connection = myConnection
        myDataAdapter.SelectCommand.CommandText = _
            "SELECT CustNum, WorkPhone, Alt Phone, Firstname, LastName, Address, Address1, City, StateOrProvince " & _
            "FROM customer " & _
            "ORDER BY LastName, LastName"
        myDataAdapter.SelectCommand.CommandType = CommandType.Text

        ' OPen the database connection
        myConnection.Open()
        'Now execute the command
        myDataAdapter.SelectCommand.ExecuteNonQuery()
        ' Fill DataSet object with data
        myDataAdapter.Fill(myDataSet, "customers")

        'Close the database connection
        myConnection.Close()
        ' Set the dataGrid properties to bind it to our data
        grdCustomerInfo.DataSource = myDataSet
        grdCustomerInfo.DataMember = "customers"
    End Sub
End Class

"I'm Still Learning" Neely Fuller Jr.

]"ORDER BY LastName, LastName"
Should be "Order by LastName, FirstName"