vbscript控制Excel问题

yxlovemoney

1. set iCon = CreateObject("Adodb.connection")
   
2. set rs = CreateObject("Adodb.Recordset")
   
3. 
   
4. set xlapp = CreateObject("Excel.Application")
   
5. set ExcelBook = xlapp.workbooks.open("D:\2007-11\20080403job\CMXRVM.csv")
   
6. set ExcelSheet = ExcelBook.ActiveSheet
   
7. 
   
8. xlapp.visible = true
   
9. 
   
10. strCon = "UID=sa;PWD=123;Database=SAMCAT;"& _
    
11. "Driver={SQL Server};"& _
    
12. "Server=.;Provider=SQLOLEDB.1"
    
13. iCon.Open strCon
    
14. 
    
15. 
    
16. strSQLrs = "select * from CAT_ExchangeRates"
    
17. 
    
18. rs.Open strSQLrs,iCon,adOpenForwardOnly,1,adCmdText
    
19. 
    
20. msgbox rs.EOF
    
21. 
    
22. do while count <>2
    
23. arr(suffix) = ExcelBook.worksheets("CMXRVM").cells(i,j).value
    
24. if arr(suffix)="" then
    
25. count = count + 1
    
26. end if
    
27. 
    
28. suffix = suffix + 1
    
29. j = j + 1
    
30. 
    
31. if j>5 then
    
32. suffix = 0
    
33. j = 1
    
34. i = i + 1
    
35. if arr(3)="CLOSE" then
    
36. strSQL = "insert into CAT_ExchangeRates(nvrCurrency1,nvrCurrency2,ftRate,nvrImporSystemDate)"& _
    
37. " values('"&arr(0)&"','"&arr(1)&"','"&arr(4)&"','"&arr(2)&"')"
    
38. iCon.Execute strSQL
    
39. end if
    
40. end if
    
41. loop
    
42. 
    
43. msgbox "insert ok!"

复制代码

我通過這樣的方法把數據插入數據庫中，但記錄多的話就很慢，怎樣才能把插入的速度加快呢？

mustwangrong

搂主要求高啊
个人认为，这个与被测系统性能，测试环境有关

yxlovemoney

我聽人家說什麼把 Excel當成數據庫來處理，但找了好多資料還是沒頭緒，請問應該怎麼弄呢？

yxlovemoney

能幫幫忙嗎？謝謝各位了，我找了一個下午還是沒解決