read meta data from Excel worksheet and load it into oracle reposi

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance

I am new to VB, I am woking on a task to read from excel worksheet and
dispaly it in excel format, then load it into Oracle repository my table name
is employee and has 2 columns:employee_id pk, employee_name not null. So far
I tried to use ADO but my code isn't displaying what I mentioned above,this
is my code, I am using windowns XP proffesional. Thanks

Imports System
Imports System.Data ' VB.NET
Imports Oracle.DataAccess.Client ' ODP.NET Oracle data provider

Public Class Form1
'Public con As System.Data.OleDb.OleDbConnection = New
System.Data.OleDb.OleDbConnection()
'Oracle.DataAccess.Client.OracleConnection()

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'Connecting to an Excel Workbook with ADO
'Public Class ConnectToExcelUsingSheetName
End Sub
'Private
Sub ConnectToExcelUsingSheetName()
On Error GoTo ConnectToExcelUsingSheetName_Err
' Declare variables
Dim con1 As New ADODB.Connection
Dim rst As New ADODB.Recordset

''Step 1 define an object con of type OracleConnection
'Dim con As New Oracle.DataAccess.Client.OracleConnection("Data
Source=dprod;User Id=smughrabi; Password=Sul99666")

'Dim ConString As String
ConString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\employee.xls;" & _
"Extended Properties=""Excel 8.0;HDR=Yes"";"
'con.ConnectionString = ConString
'Once I establish connection string I go a head and open the database
'con1.Open()

'Dim cmdQuery As String = "SELECT * FROM employee"

''create command object to work with select
'Dim dbCommand As New Oracle.DataAccess.Client.OracleCommand(cmdQuery,
con)

'specifying the name of the worksheet you must add a dollar
'sign ($) to the end of the name

rst.Open("SELECT * FROM [Sheet1$];", con1,
ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockReadOnly)
' Loop through the recordset and send data to the Immediate Window
rst.MoveFirst()
Do

Debug.Print (rst![Entity Name] & " " & rst![Entity/Table
Definition] & " " & rst! _
[Attribute Name] & "(" & rst![Attribute/Column Definition] & ")")
rst.MoveNext()
Loop Until rst.EOF
'Tidy up
ConnectToExcelUsingSheetName_Exit:
On Error Resume Next
rst.Close()
con1.Close()
rst = Nothing
con1 = Nothing
Exit Sub
ConnectToExcelUsingSheetName_Err:
MsgBox(Err.Number & vbCrLf & Err.Description, vbCritical, "Error!")
Resume ConnectToExcelUsingSheetName_Exit

End Sub
End Class




.

Relevant Pages