 |
|
รบกวนช่วยดู 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 :
2023 |
Reply :
2 |
|
 |
 |
 |
 |
|
|
|
|
 |
