Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,038

HOME > ASP > ASP Forum > Import .csv เข้า Access ไม่ได้ Microsoft VBScript runtime (0x800A0009) Subscript out of range: '[number: 0]'

Import .csv เข้า Access ไม่ได้ Microsoft VBScript runtime (0x800A0009) Subscript out of range: '[number: 0]'

เริ่มหัวข้อใหม่

ray

โพสกระทู้ ( 5 )
บทความ ( 0 )

รบกวนช่วยดู code import .csv เข้า access ไม่ได้ครับ error ตามแนบ รบกวนผู้รู้ช่วยด้วยครับ

Microsoft VBScript runtime (0x800A0009)
Subscript out of range: '[number: 0]'

code ทั้งหมด .asp

<%Option Explicit%>
<html>
<head>
<title>Import_summay_dcn .CSV To Access</title>
</head>
<body>
<%
Dim objFSO,oInStream,sRows,arrRows
Dim Conn,strSQL,objExec
Dim sFileName

sFileName = "tl_summary_dcn.csv"

'*** Create Object ***'
Set objFSO = CreateObject("Scripting.FileSystemObject")

'*** Check Exist Files ***'
If Not objFSO.FileExists(Server.MapPath(sFileName)) Then
Response.write("File not found.")
Else

'*** Open Files ***'
Set oInStream = objFSO.OpenTextFile(Server.MapPath(sFileName),1,False)

'*** open Connect to Access Database ***'
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("/datadcn/dcn.mdb"),"" , ""

Do Until oInStream.AtEndOfStream
sRows = oInStream.readLine
arrRows = Split(sRows,",")
'*** Insert to table Summary_dcn***'
strSQL = ""
strSQL = strSQL &"INSERT INTO Summary_dcn "
strSQL = strSQL &"(BOL_NBR,STORE_NBR,STORE_NAME,VEHICLE_NBR,VECHICLE_SEAL,LOADER_NAME,CASE,BLUE_TOTE,RED_TOTE,SHIP_DOOR,START_LOAD_TIME,SHIP_DATE_TIME) "
strSQL = strSQL &"VALUES "
strSQL = strSQL &"('"&arrRows(0)&"','"&arrRows(1)&"','"&arrRows(2)&"' "
strSQL = strSQL &",'"&arrRows(3)&"','"&arrRows(4)&"','"&arrRows(5)&"' "
strSQL = strSQL &",'"&arrRows(6)&"','"&arrRows(7)&"','"&arrRows(8)&"' "
strSQL = strSQL &",'"&arrRows(9)&"','"&arrRows(10)&"','"&arrRows(11)&"') "
Set objExec = Conn.Execute(strSQL)
Set objExec = Nothing
Loop

oInStream.Close()
Conn.Close()
Set oInStream = Nothing
Set Conn = Nothing
End If
Response.write ("Summary_dcn.csv Import to MS-Access Done.")
%>

<script language ="javascript">
window.opener=window.self;
window.close(this)
</script>

</body>
</html>

Tag : - - - -

Date : 2009-12-08 18:53:46

By : dbdtak

View : 1985

Reply : 2

No. 1

TC Admin

โพสกระทู้ ( 74,058 )
บทความ ( 838 )

Error แบบนี้แสดงว่าจำนวน Column ที่อ่านมาด้วย array ไม่พอดีกับจำนวน array ที่คุณอ่านครับ

Date : 2009-12-08 22:07:54

By : webmaster

No. 2

ray

โพสกระทู้ ( 5 )
บทความ ( 0 )

MR.WIN ครับ

จะแก้ไขได้อย่างไรครับ ขอคำแนะนำด้วยครับ

Date : 2009-12-08 22:17:29

By : dbdtak

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : Import .csv เข้า Access ไม่ได้ Microsoft VBScript runtime (0x800A0009) Subscript out of range: '[number: 0]'

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 05