เขียน asp ดึงข้อมูลจาก .DBF ครับ งมมาหลายวัน แค๊ก ๆ
Code (ASP)
<%
Dim dbPath
dbPath = "C:\Path"
Dim Conn
Set Conn=server.CreateObject("ADODB.connection")
Conn.Open "Driver={Microsoft Visual FoxPro Driver};SourceDB="&dbPath&";SourceType=DBF"
%>
Date :
2009-03-04 13:06:46
By :
webmaster
เพิ่มเติม แบบลูกทุ่งๆ อิอิ
Code (ASP)
'============ ติดต่อ .DBC ก่อนครับ ==============
Set Conn = Server.CreateObject("ADODB.connection")
ConnStr= "Driver=Microsoft Visual Foxpro Driver; " + _
"UID=;SourceType=DBC;SourceDB=C:\Data.DBC"
Conn.Open ConnStr
'============ ตามด้วย Table ที่ต้องการ .DBF ==============
strSQL = "SELECT * FROM employee "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, ConnStr, 1,3
'============ จบส่วนติดต่อฐานข้อมูล .DBC / .DBF ============
Date :
2010-10-12 13:29:41
By :
pong_757
Data.DBC คือ file อะไรครับ
ประวัติการแก้ไข 2011-02-16 10:25:05
Date :
2011-02-16 10:21:51
By :
cattarock
รบกวนด้วยครับ ขอบคุณครับ
ประวัติการแก้ไข 2011-02-16 10:23:57 2011-02-16 10:24:20
Date :
2011-02-16 10:22:30
By :
cattarock
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Visual FoxPro Driver]Cannot open file c:\data1.dbc.
/it/Connect.asp, line 6
ไม่ได้อ่ะ รบกวนด้วยครับ
<%
'============ ติดต่อ .DBC ก่อนครับ ==============
Set Conn = Server.CreateObject("ADODB.connection")
ConnStr= "Driver=Microsoft Visual Foxpro Driver; " + _
"UID=;SourceType=DBC;SourceDB=C:\data1.DBC"
Conn.Open ConnStr
'============ ตามด้วย Table ที่ต้องการ .DBF ==============
strSQL = "SELECT* FROM table1"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, ConnStr, 1,3
IF Not rs.EOF Then
Do While Not.Eof
Response.Write "xxx :" & rs.Fields("name")
rs.MoveNext
Loop
rs.Close
Conn.Close
End IF
'============ จบส่วนติดต่อฐานข้อมูล .DBC / .DBF ============
%>
Date :
2011-06-20 16:11:29
By :
moo
ท่านได้ Install VFPODBC.MSI หือยังครับ
มีให้ D/L ฟรีครับ
เมื่อ Install แล้ว
ต่อมา จะเปิดแฟ้ม dbf
Code (ASP)
<%
dbf_folder = "dat" 'folder ที่เก็บแฟ้ม dbf
Set Conn=server.CreateObject("ADODB.connection")
Conn.Open "Driver={Microsoft Visual FoxPro Driver};SourceDB="&server.mappath(dbf_folder)&";SourceType=DBF"
SQL = "SELECT* FROM table1"
Set rs = Conn.execute(Sql)
Do While Not Rs.Eof
Response.Write(rs.Fields("name") & "<br>")
rs.MoveNext
Loop
rs.Close
Conn.Close
%>
สงสัยโทร 084-104-9702 ครับ
Date :
2011-08-25 00:03:19
By :
หน่อย
Load balance : Server 01