看看下面这段代码,是ORACLE提供的一个与EXCEL编辑数据的例子. Sub Update_Data() Dim OraSession As Object
Dim OraDatabase As Object
Dim EmpDynaset As Object
Dim ColNames As Object
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.OpenDatabase("ExampleDb", "scott/tiger", 0&)
Set EmpDynaset = OraDatabase.DbCreateDynaset("select * from emp", 0&)
Set ColNames = EmpDynaset.Fields i = 2
OraSession.BeginTrans
While Worksheets("DataSheet").Cells(i, 1).Value <> ""
EmpDynaset.dbedit
For j = 1 To ColNames.Count
ColNames(j - 1).Value = Worksheets("DataSheet").Cells(i, j).Value
Next j
EmpDynaset.dbupdate
EmpDynaset.dbmovenext
i = i + 1
Wend
OraSession.CommitTransEnd Sub
Dim OraDatabase As Object
Dim EmpDynaset As Object
Dim ColNames As Object
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.OpenDatabase("ExampleDb", "scott/tiger", 0&)
Set EmpDynaset = OraDatabase.DbCreateDynaset("select * from emp", 0&)
Set ColNames = EmpDynaset.Fields i = 2
OraSession.BeginTrans
While Worksheets("DataSheet").Cells(i, 1).Value <> ""
EmpDynaset.dbedit
For j = 1 To ColNames.Count
ColNames(j - 1).Value = Worksheets("DataSheet").Cells(i, j).Value
Next j
EmpDynaset.dbupdate
EmpDynaset.dbmovenext
i = i + 1
Wend
OraSession.CommitTransEnd Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货