java实现把excel数据导入到ORACLE中,求全部代码。。。

把excel中的数据全部导入到Oracle中,求全部代码,java实现jsp什么的都行,用到servlet里面的配置等,3QQQQQQ

你直接用excel的VBA好不好,简单方便,老少皆宜。
如果你非要用java的话你得先找到java处理excel的包导到java工程里。
其余跟正常java存数据一样了。
我给你个VBA连接数据库的代码 你看着改改。

'****ConnectDB*****
Private Function connect(dbusr As String) As Boolean

connect = False

On Error GoTo ERROR_SECTION

Set OraSession = CreateObject("OracleInProcServer.XOraSession")
'******** User Password link ********
Dim dbLink As String
dbLink = dbusr + "/" + dbusr
Set OraDatabase = OraSession.OpenDatabase("orclprod", dbLink, 8&)
'******** User Password link ********
connect = True
Exit Function

ERROR_SECTION:
Call MsgBox(Str(Err.Number) + "-" + Err.Description, vbOKOnly + vbCritical, "Connect Err")
Err.Clear
End Function

'****disConnectDB*****
Private Function disconnect() As Boolean

disconnect = False

On Error GoTo ERROR_SECTION
Set OraDatabase = Nothing
Set OraSession = Nothing
disconnect = True
Exit Function

ERROR_SECTION:
Call MsgBox(Str(Err.Number) + "-" + Err.Description, vbOKOnly + vbCritical, "DisConnect Err")
Err.Clear
End Function

Private Sub CommandButton1_Click()
Dim userDB As String
Dim nameDB As String
Dim nameAccount As String
Dim sumAcc As String
Dim columnRow As Integer
Dim endFal As Boolean
userDB = "aa"
nameDB = "bb"
sumAcc = 4
endFal = True

While endFal
nameAccount = Sheets("AccountCode").Cells(sumAcc, 4)
sumAcc = sumAcc + 1
If nameAccount = "" Then
endFal = False
End If
Wend

If connect(userDB) = False Then
Sheets("AccountCode").Cells(1, 5) = "Connect Error"
Else
For columnRow = 4 To sumAcc - 2
nameAccount = Sheets("AccountCode").Cells(columnRow, 4)
Call getAccountBK(nameDB, nameAccount, columnRow)
Next columnRow
End If

If disconnect = False Then Exit Sub

End Sub
温馨提示:答案为网友推荐,仅供参考
第1个回答  2012-04-21
新手也不至于 连java的 Demo都看不懂吧
你可以用poi 这个我测试过 还比较不错 demo也简单 支持 2003 2007本回答被网友采纳
第2个回答  2012-04-20
用jxl追问

关键不会呀

追答

网上例子一大堆,自己动手丰衣足食呗
book= Workbook.getWorkbook(new File("xls文件路径"));
开始循环sheets book.getSheet
循环行rows sheet.getRows()
然后是单元格 Cell[] = sheet.getRow
取单元格内容 cells[].getContents

追问

我是个新手,刚实习,一点头绪都没有呢,所以想要个完整的代码,先把功能实现了,然后再看着学习的,快头疼死了。。。

第3个回答  2012-04-20
分呢
相似回答