Saving a excel file to Oracle Database using vb6.0

[catchsyed]

Hi,

How do I select a file using common dialog control as we do in RUN in windows OS and on click OK the excel file should be loaded into Oracle Database 10g.

Please Help

Syed

[WingedPanther]

Moved to the correct forum.

There are multiple parts to this problem:
1) selecting the file
2) loading it into memory
3) storing it in an Oracle Database

Which part are you having issues with? What code do you have so far?

[catchsyed]

Hi

Issue with

2) loading it into memory
3) storing it in an Oracle Database

code :

Private Sub CmdBrowse_Click()
cdlgControl.InitDir = "c:\"
cdlgControl.ShowOpen
If cdlgControl.fileName = "" Then
MsgBox " Please select a file to upload"
End If
TxtUpload.Text = cdlgControl.fileName
'CommonDialog1.Flags = cdlOFNOverwritePrompt

End Sub

Private Sub CmdExit_Click()
Unload Me
End Sub

[WingedPanther]

Well, you'll have to create a connection to the Oracle database before you can store it.

[reniery]

You could do something like this

Dim xl As New Excel.Application
Dim xlsheet As Excel.Worksheet
Dim xlwbook As Excel.Workbook

Set xlwbook = xl.Workbooks.Open(fileName)
Set xlsheet = xlwbook.Sheets.Item(1)

    
    Do While i <= row
      field1 = insert xlsheet.Cells(i, 1)
      field2 = xlsheet.Cells(i, 2)
      sqlthingy = INSERT INTO table_name VALUES field1,field2
    Loop

xl.ActiveWorkbook.Close False, fileName
xl.Quit

Set xlwbook = Nothing
Set xl = Nothing