|
 |
| |
ทำยังไงถึงจะ import ข้อมูลจาก textfile ลง access ได้ครับ |
| |
 |
|
|
 |
 |
|
ทำมายน้อ... ไม่เห็นมีใครตอบเลย
โปรเจคใกล้เสร็จแล้วครับ เหลือแค่ตัวนี้ตัวเดียว
ถ้าเสร็จ ก็หมดแล้วอ่ะครับ
ใครมีจิตใจเมตตาขอความกรุณาด้วยเถอะค้าบ
จะจบแล้ว ถ้าทำตรงนี้ไม่ได้ มีหวัง ไม่จบแหงๆเลยค้าบ
|
 |
 |
 |
 |
| Date :
13 ก.พ. 2548 03:23:40 |
By :
gototon |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
หรือไม่ก็ช่วยบอกวิธีที่จะอ่านข้อมูลที่ต้องการก็ได้ครับ
เช่น
ใน 1 บรรทัดใน text file มีข้อมูล
"name","surname","9/11/2525", "44086500"
ถ้าเกิดว่าอยากจะต้องการเอาเฉพาะ
name
surname
9/11/2525
440865
โดยที่ " กับ , ไม่เอางี้ทำไงอ่ะครับ
คือจะให้มันวนลูปเก็บใส่อาเรย์แล้ว add ลงฐานข้อมูลทีละบรรทัดๆ งี้อ่ะครับ
ทำไงครับ
|
| |
|
|
| |
| Date :
13 ก.พ. 2548 03:39:02 |
By :
gototon |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ผมลองเขียนตัดคำขึ้นมานะครับจาก textfiel ในtext มีข้อมูลแบบนี้
440865,กรกช,แจ้งเจริญ,3/11/1982
ต้องการเป็น
440865
กรช
แจ้งเจริญ
3/11/1982
โค้ดมีแบบนี้
<%
set fs = CreateObject("Scripting.FileSystemObject")
Set op = fs.OpenTextFile(Server.Mappath("data.txt"))
data=op.readline
start1=1
startposition1 = start1
endposition1 = InStr(start1,data,",")-1
field1=Mid(data,start1,endposition1)
start2=endposition1+2
endposition2=InStr(start2,data,",")
field2=Mid(data,start2,endposition2)
start3=endposition2+2
endposition3=InStr(start3,data,",")
field3=Mid(data,start3,endposition3)
start4=endposition3+2
endposition4=InStr(start4,data,",")
field4=Mid(data,start4,endposition4)
response.write field1%><br><%
response.write field2%><br><%
response.write field3%><br><%
response.write field4
response.end
%>
แต่ผลที่ได้มันกลับเป็นแบบนี้
440865
กรกช,แจ้งเจร
จ้งเจริญ,3/11/1982
เพราะอะไรเหรอครับ
|
| |
|
|
| |
| Date :
16 ก.พ. 2548 12:18:06 |
By :
gototon |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
Code (ASP)
<%Option Explicit%>
<html>
<head>
<title>ThaiCreate.Com ASP & Import CSV To Access</title>
</head>
<body>
<%
Dim objFSO,oInStream,sRows,arrRows
Dim Conn,strSQL,objExec
Dim sFileName
sFileName = "customer.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("mydatabase.mdb"),"" , ""
Do Until oInStream.AtEndOfStream
sRows = oInStream.readLine
arrRows = Split(sRows,",")
'*** Insert to table customer2 ***'
strSQL = ""
strSQL = strSQL &"INSERT INTO customer2 "
strSQL = strSQL &"(CustomerID,Name,Email,CountryCode,Budget,Used) "
strSQL = strSQL &"VALUES "
strSQL = strSQL &"('"&arrRows(0)&"','"&arrRows(1)&"','"&arrRows(2)&"' "
strSQL = strSQL &",'"&arrRows(3)&"','"&arrRows(4)&"','"&arrRows(5)&"') "
Set objExec = Conn.Execute(strSQL)
Set objExec = Nothing
Loop
oInStream.Close()
Conn.Close()
Set oInStream = Nothing
Set Conn = Nothing
End If
Response.write ("CSV Import to Access Done.")
%>
</table>
</body>
</html>
ASP Read CSV Import/Insert Ms Access
|
| |
|
|
| |
| Date :
2009-04-26 09:42:33 |
By :
webmaster |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
| |
|
 Load balance : Server 02
|
