¤p»x

¤@¬qASPªºµ{¦¡½X¡A®v¥X¦Pªù½Ð°Ñ¦Ò
­«ÂI¬O§A¶}µoµ{¦¡ªº³o¥x¹q¸£¬O§_¦³¦w¸Ë2007¥H¤Wª©¥»ªºACCESS?

1. <%@Language=VBScript %>
   
2. <%
   
3. Dim adoCon
   
4. Dim rsLogbook
   
5. Dim strSQL
   
6. Set adoCon = Server.CreateObject("ADODB.Connection")
   
7. adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("DatabaseName.mdb")
   
8. Set rsLogbook = Server.CreateObject("ADODB.Recordset")
   
9. strSQL = "SELECT TableName.FieldName FROM TableName;"
   
10. rsLogbook.Open strSQL, adoCon
    
11. Response.Write ("<br>")
    
12. Response.Write (rsLogbook("FieldName"))
    
13. rsLogbook.Close
    
14. Set rsLogbook = Nothing
    
15. Set adoCon = Nothing
    
16. %>

½Æ»s¥N½X

¤p»x

²©ö½d¨Ò¡A¦P¼Ë¥Î®v¥X¦PªùªºASP
­è¸Õ¹L

1. Set conobject = Server.CreateObject("ADODB.Connection")
   
2.          DBPath = Server.MapPath("mlebp-new.accdb")
   
3.          conobject.Open "Driver={Microsoft Access Driver (*.mdb, *.accdb)};DBQ=" & DBPath
   
4.         Set recobject=Server.CreateObject("ADODB.Recordset")

½Æ»s¥N½X