×

Loading...
Ad by
  • 推荐 OXIO 加拿大高速网络，最低月费仅$40. 使用推荐码 RCR37MB 可获得一个月的免费服务
Ad by
  • 推荐 OXIO 加拿大高速网络，最低月费仅$40. 使用推荐码 RCR37MB 可获得一个月的免费服务

@Las Vegas

ASP Problem

mhan(Murphy)
本文发表在 rolia.net 枫下论坛Below is the error that occured when I run ASP to access MS Access database through OBBC. PLease advise me how to fix it.Thanks.

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Driver Manager] Driver's SQLSetConnectAttr failed
/data/readdata.asp, line 10


---ASP file---
<% @LANGUAGE = VBScript %>
<% ' Listing 13.1 Retrieving Product Data from the Northwind Database
Option Explicit
Response.Expires = 0
Dim objConn, objRS, strQuery
Dim strConnection
Set objConn = Server.CreateObject("ADODB.Connection")
'strConnection = "DSN=Northwind;Database=Nwind;"
'strConnection = strConnection & "UID=;PWD=;"
objConn.Open "Northwind"


strQuery = "SELECT Productname, UnitPrice FROM Products "
strQuery = strQuery & "ORDER BY Productname"
Set objRS = objConn.Execute(strQuery)
%>
<HTML>
<BODY>
All products stored in the Products table,
ordered by product name: <BR><BR>
<%
While Not objRS.EOF
Response.Write objRS("Productname") & " ("
Response.Write FormatCurrency(objRS("UnitPrice")) & ")<BR>"
objRS.MoveNext
Wend

objRS.close
objConn.close
Set objRS = Nothing
Set objConn = Nothing
%>
</BODY>
</HTML>更多精彩文章及讨论，请光临枫下论坛 rolia.net
(#375917@0)
Last Updated: 2002-2-21
This post has been archived. It cannot be replied.
Report

Replies, comments and Discussions:

  • 工作学习 / IT技术讨论 / ASP Problem -mhan(Murphy); 2002-2-21 {1213} (#375917@0)
    本文发表在 rolia.net 枫下论坛Below is the error that occured when I run ASP to access MS Access database through OBBC. PLease advise me how to fix it.Thanks.

    Error Type:
    Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
    [Microsoft][ODBC Driver Manager] Driver's SQLSetConnectAttr failed
    /data/readdata.asp, line 10


    ---ASP file---
    <% @LANGUAGE = VBScript %>
    <% ' Listing 13.1 Retrieving Product Data from the Northwind Database
    Option Explicit
    Response.Expires = 0
    Dim objConn, objRS, strQuery
    Dim strConnection
    Set objConn = Server.CreateObject("ADODB.Connection")
    'strConnection = "DSN=Northwind;Database=Nwind;"
    'strConnection = strConnection & "UID=;PWD=;"
    objConn.Open "Northwind"


    strQuery = "SELECT Productname, UnitPrice FROM Products "
    strQuery = strQuery & "ORDER BY Productname"
    Set objRS = objConn.Execute(strQuery)
    %>
    <HTML>
    <BODY>
    All products stored in the Products table,
    ordered by product name: <BR><BR>
    <%
    While Not objRS.EOF
    Response.Write objRS("Productname") & " ("
    Response.Write FormatCurrency(objRS("UnitPrice")) & ")<BR>"
    objRS.MoveNext
    Wend

    objRS.close
    objConn.close
    Set objRS = Nothing
    Set objConn = Nothing
    %>
    </BODY>
    </HTML>更多精彩文章及讨论，请光临枫下论坛 rolia.net
    • 给你一个SQLServer的例子。我想你可能要提供Driver -luoboyang(萝卜秧); 2002-2-21 {92} (#375933@0)
      connstr= "Provider=SQLOLEDB;DRIVER=SQLServer;SERVER=servername;DATABASE=abcd;UID=sa;PWD=;"
    • ever tried a different odbc driver ? may help -rootbear(啤酒晕头); 2002-2-22 (#376717@0)
    • Since you already specified DSN in your codes, you'd better check the ODBC DSN settings at your web server. Maybe you need to install the new version of MDAC. -yangn(Raymond); 2002-2-22 (#376854@0)
      • Hi, thank you. May I have your E-mail Address? -mhan(Murphy); 2002-2-22 (#376881@0)
        • come in pls. -yangn(Raymond); 2002-2-22 {23} (#376894@0)
          myraymond2000@yahoo.com

More Topics

  • 脑洞大开，突发奇想，用力来传播信息
  • 看大家讨论日语，俺也正在认真学习。其实语言问题应该是很快也很容易就解决的，可能比自动驾驶来的还快。TREK里面，全宇宙的人都在大脑里安装了UNIVERSAL TRANSLATOR，外星人之间相互交流无障碍。废话少说，看视频。。。加上个MIC和耳机，不同国家的人就可以无障碍交流。
  • 肉脸真有搞 IT 的？Linux 把俄国中国伊朗踢出去了好像肉脸 IT 没啥感觉似的
  • 请问web developer和software developer技术上有什么区别？
  • Elon Musk 带着川普总统奔向火星了。
    • 枫下论坛主坛 /  工作学习 /  IT技术讨论