有谁会从 EXCEL 拿 DATA 然后 insert 去 DATABASE？

mingock

我已经可以 EXTRACT FROM EXCEL，但不会INSERT去DATABASE，因为必须先把EXCEL的RECORD存在一个VARIABLE，然后用SQL的INSERT INTO DATABASE。。。有高手可以帮忙吗？

小妞儿

什么language??

mingock

对不起忘了写,ASP...有IDEA???

jasonmun

什么Database呀?

小妞儿

原帖由 mingock 于 18-5-2006 10:43 PM 发表
我已经可以 EXTRACT FROM EXCEL，但不会INSERT去DATABASE，因为必须先把EXCEL的RECORD存在一个VARIABLE，然后用SQL的INSERT INTO DATABASE。。。有高手可以帮忙吗？

其实你应该先把 extracted 的 data fill into DataSet... 然后再配合 DataAdapter 的 update method 把资料从 DataSet insert 进去 database...

我没学过asp... 我用asp.net... 不知道帮得上忙吗... 只希望可以给你做个参考...

mingock

Database-Microsoft Access
language- ASP

goatstudio

首先, 你怎么样 extract Excel 的 data 出来?
你可以直接把 extract 出来的 data 转换成 SQL 呀.

mingock

XLPath = Server.MapPath("B.xls")
Set objConn2 = CreateObject("ADODB.Connection")
objConn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & XLPath & ";Extended Properties=""Excel 8.0;HDR=No;IMEX=1"""
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.CursorType = 3  'Static cursor.
bjRS.LockType = 2  
sql = "SELECT * FROM [Sheet1$]"
objRs.open sql, objConn2
       
以上是EXTRACT FROM EXCEL 的方法。。

问题是要INSERT去ACCESS的时候，EXCEL 的DATA TYPE 跟 ACCESS 不能MATCH。。
请问谁有类似的经验关于FORMAT DATA 的。。比如 DATE。。。？？？

goatstudio

原帖由 mingock 于 20-5-2006 06:48 PM 发表
XLPath = Server.MapPath("B.xls")
Set objConn2 = CreateObject("ADODB.Connection")
objConn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & XLPath & &qu ...

其实一点也不难, 你已经成功用 ADO 来抓取 EXCEL 的资料... 接下来你只需要做类似的...


If Not objRs.EOF Then

  Dim db
  Set db = Server.CreateObject ("ADODB.Connection")
  db.Open "你要输入资料的Access 的 connection"

  While Not objRs.EOF

    db.Execute "INSERT INTO table_name (...) VALUES ('" & objRs("要输入的资料的名字")  & "'....)"
    objRs.MoveNext
  Wend

  db.Close
  Set db = Nothing

End If

goatstudio

至于 Format Data, 我强烈建议你参考 VBSript 的官方用户手册: Download details: Windows Script 5.6 Documentation

小妞儿

原帖由 mingock 于 20-5-2006 06:48 PM 发表
问题是要INSERT去ACCESS的时候，EXCEL 的DATA TYPE 跟 ACCESS 不能MATCH。。
请问谁有类似的经验关于FORMAT DATA 的。。比如 DATE。。。？？？

可以试试 CDate funtion.

milktin

也可以试一试
把Excel File里的cell 换成Date Format
Highlight 有问题的cell, right click -> Format Cell..





[size=-1]-----------------------------------------
[size=-1]牛奶罐
[size=-1]零点一度 [url]www.dot1degree.com[/url]
[size=-1]从零点开始，寻找你人生第一度的变化！
[size=-1]我的 IT 日记
[size=-1]大马房地产资料个人收集