Oracle ODP strongly typed dataset (runtime)

Question

I am trying to use strongly typed Dataset Objects in my project but I seem to be missing something.
I created a class library project named DSCommon. I then used the Server Explorer to create an XML Schema of my Oracle table and then I generated a DataSet (http://www.developer.com/db/article.php/10920_3069061_2).
I then created a second windows application project and added a reference to DSCommon.
I have one text box, navigation buttons, and a command button on the form. I have tried the following code but I do not seem to have the benefits of a strongly typed dataset - I cannot do anything like txtPlaneType.text = ds.PlaneTypes[0].planedesc.
(I added a reference to Oracle.DataAccess to the windows app. project.)
<code>
Imports Oracle.DataAccess.Client
Imports DSCommon
Public Class Form1
Inherits System.Windows.Forms.Form
Dim conn As New OracleConnection
Dim cmPlaneTypes As CurrencyManager
Private Sub connectDatabase()
conn.ConnectionString = "User id=username;Password=password;Data Source=server.com;"
Try
conn.Open()
Catch ex As Exception
Throw ex
End Try
End Sub
Private Sub closeDatabase()
conn.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
Me.connectDatabase()
Dim planeTypeAdapter As OracleDataAdapter = New OracleDataAdapter
planeTypeAdapter.SelectCommand = New OracleCommand("SELECT PLANETYPE, PLANETYPEDESC FROM PLANETYPES", conn)
Dim PlaneTypeDataSet As New PlaneTypes
planeTypeAdapter.Fill(PlaneTypes, "PlaneTypeDataSet")
cmPlaneTypes = CType(BindingContext(PlaneTypeDataSet, "PlaneTypes"), CurrencyManager)
AddHandler cmPlaneTypes.ItemChanged, AddressOf cmPlaneTypes_ItemChanged
AddHandler cmPlaneTypes.PositionChanged, AddressOf cmPlaneTypes_PositionChanged
txtPlaneType.DataBindings.Add("Text", PlaneTypeDataSet.PLANETYPES, "PLANETYPEDESC")
Catch ex As Exception
MessageBox.Show("At this time this information cannot be viewed or updated.", "Error retrieving records", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
If conn.State = ConnectionState.Open Then
Me.closeDatabase()
End If
End Try
' is this needed?
conn.Dispose()
end sub
</code>
This is the schema in the first project.
<code>
<?xml version="1.0" encoding="utf-8" ?>
<xs:schema id="PlaneTypes" targetNamespace="http://tempuri.org/PlaneTypes.xsd" elementFormDefault="qualified"
xmlns="http://tempuri.org/PlaneTypes.xsd" xmlns:mstns="http://tempuri.org/PlaneTypes.xsd"
xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xs:element name="PlaneTypes">
<xs:complexType>
<xs:choice maxOccurs="unbounded">
<xs:element name="PLANETYPES">
<xs:complexType>
<xs:sequence>
<xs:element name="PLANETYPE" type="xs:integer" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1"
msdata:AutoIncrement="true" />
<xs:element name="PLANETYPEDESC" type="xs:string" />
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:choice>
</xs:complexType>
<xs:unique name="DocumentKey1" msdata:PrimaryKey="true">
<xs:selector xpath=".//mstns:PLANETYPES" />
<xs:field xpath="mstns:PLANETYPE" />
</xs:unique>
</xs:element>
</xs:schema>
</code>
How do I create this at run time and get the benefits in design time?
Is there a better way to reference the code for the navigation buttons?

Answer 1

<bump>
Can anyone from Oracle assist me with this issue?