เขียน asp ดึงข้อมูลจาก .DBF ครับ งมมาหลายวัน แค๊ก ๆ

<%
Dim dbPath
dbPath = "C:\Path"
Dim Conn
Set Conn=server.CreateObject("ADODB.connection")
Conn.Open "Driver={Microsoft Visual FoxPro Driver};SourceDB="&dbPath&";SourceType=DBF"
%>

'============ ติดต่อ .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 ============

<%
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
%>