请教：如何将EXCEL表中的数据提交到ORACLE 的TABLE中

Question

使用ADO 可以在DATAGRID 中查看到表中的信息：
Private Sub Command1_Click()    Dim oConn As New ADODB.Connection
    Dim oRS As New ADODB.Recordset
    oConn.CursorLocation = adUseClient
    oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=C:\A.xls;" & _
               "Extended Properties=""Excel 8.0;"""               
    oRS.Open "Select * from [Sheet1$]", oConn, 3, 2    Set MSHFlexGrid1.DataSource = oRS    End Sub接下来如何将表中查看到的信息提交到后台TABLE中呢（TABLE 已在后台SQLPLUS中建好） ？

Answer 1

参考（Excel导入SQL）：
Private Sub Command1_Click()
    Dim Adocon As New ADODB.Connection    Adocon.ConnectionString = "Provider = SQLOLEDB.1;Password = ; Persist Security Info = True;User ID = sa;Initial Catalog = DRUGDB; Data Source = 192.168.30.122"
    Adocon.CursorLocation = adUseClient
    Adocon.ConnectionTimeout = 120
    Adocon.Open    Adocon.Execute ("insert into newsort SELECT * FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source=C:\A.xls.xls;Extended properties=Excel 8.0')...[Sheet1$]")
    Adocon.Close
    Set Adocon = Nothing
End Sub

Answer 2

Adocon.Execute ("insert into SQLPLUS SELECT * FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source=C:\A.xls;Extended properties=Excel 8.0')...[Sheet1$]")

Answer 3

faysky2() ，先谢谢你现在是运行如下程序报错 ：多步OLEPrivate Sub Command2_Click()
    Dim Adocon As New ADODB.Connection    Adocon.ConnectionString = "Provider = MSDAORA.1;Password =; Persist Security Info = True;User ID = su;Initial Catalog = DRUGDB; Data Source = *.*.*.*"
    Adocon.CursorLocation = adUseClient
    Adocon.ConnectionTimeout = 120
    Adocon.Open
     Adocon.Execute ("INSERT into MYTAB SELECT * FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source=c:\A.xls;Extended properties=Excel 8.0')...[Sheet1$]")
  
    Adocon.Close
    Set Adocon = Nothing
End Sub

Answer 4

现在是运行如下程序报错 ：多步OLE DB操作产生错误 。
但是我已检查过字段类型和大小在EXCEL 和mytab 中都是符合的 。

Answer 5

是将EXCEL 文件导入ORACLE 数据库，应该和导入 SQL SERVER 不一样吧

Answer 6

试试这样：Adocon.Execute ("INSERT into MYTAB SELECT select * from 
OPENROWSET('MICROSOFT.JET.OLEDB.4.0'
,'Excel 5.0;HDR=YES;IMEX=2;DATABASE=c:\A.xls',[sheet1$])