converting excel file into oracle table/database

[komalg15]

hi all

I wish to write small program in vb6 which allow user to upload any excel file to oracle database.

using


Dim Cn as ADODB.Connection
Dim Conn as String
Dim vtblNametxt as String

vtblNametxt= tblNametxt.txt
Cn.Execute(“create table ‘ ” + vtblNametxt + ” ’ (id varchar2(3), pname varchar2(20), qtyp number(4))”)


first row of excel sheet contains the name of the field.

my quetion is how to get and set the attributes of fields from excel like type and length

please help

[baja_yu]

Found this, maybe it will help http://forums.oracle.com/forums/thre...05918&tstart=0

[komalg15]

hi

i got this code from net

Set cn = New ADODB.Connection
cn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" + dlgOpenFile.FileName + "';Extended Properties='Excel 8.0';Persist Security Info=False")
Set rs1 = New ADODB.Recordset


  rs1.Open cn.OpenSchema(adSchemaTables)    
For t = 1 To rs1.RecordCount
    strTbl = rs1.Fields("TABLE_NAME").Value
    Debug.Print strTbl
    Set rs2 = cn.OpenSchema(adSchemaColumns, Array(Empty, Empty, strTbl, Empty))
    For c = 1 To rs2.RecordCount
      For z = 1 To rs2.Fields.Count
        Debug.Print rs2.Fields(z).Value
        Sleep 1000
      Next z
        
    Next c
Next t

but i am getting rs1.RecordCount as -1

[abhijit]

BEfore you open the recordset, you need to set the cursor location property to aduseClient