Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

x
?
Solved

Microsoft VBScript runtime error '800a01fb'

Posted on 2007-11-14
10
Medium Priority
?
1,294 Views
Last Modified: 2010-05-18
asp classic code generates  Microsoft VBScript runtime error '800a01fb'
An exception occurred: 'Execute'

<%Dim Conn, RS, SQL
set Conn = Server.CreateObject("ADODB.Connection")
set RS = Server.CreateObject("ADODB.Recordset")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\inetpub\wwwroot\gal.mdb"
RS.ActiveConnection = Conn
SQL="SELECT GAL.* FROM GAL"
Set RS=Conn.Execute(SQL)
Conn.Close
Set RS=Nothing
Set Conn=Nothing%>

The access database links to exchange gal. Security = Integrated Windows Authentication, Domain Users have full control to .mdb file.
0
Comment
Question by:flexpipe
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
10 Comments
 
LVL 12

Expert Comment

by:chandru_sol
ID: 20283114
Hi,

Can you tell me the exact line you are getting error?

regards
Chandru
0
 

Author Comment

by:flexpipe
ID: 20283128
Line 7 on Conn.Execute. Query runs fine in Access.
0
 
LVL 23

Expert Comment

by:Ashish Patel
ID: 20283144
Try like the sample given below.

<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"set rs=Server.CreateObject("ADODB.recordset")
rs.Open "Select * from Customers", conn
%>
0
Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 23

Expert Comment

by:Ashish Patel
ID: 20283150
sorry, like this
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
set rs=Server.CreateObject("ADODB.recordset")
rs.Open "Select * from Customers", conn
%>
0
 

Author Comment

by:flexpipe
ID: 20283531
Microsoft VBScript runtime error '800a01fb'
An exception occurred: 'Open'
/plist.asp, line 6

<%Dim Conn, RS, SQL
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/inetpub/wwwroot/gal.mdb"
set rs=Server.CreateObject("ADODB.recordset")
rs.Open "Select * from GAL", conn
Conn.Close
Set RS=Nothing
Set Conn=Nothing%>
0
 
LVL 23

Expert Comment

by:Ashish Patel
ID: 20283903
try putting the security on mdb to full access to everyone just for testing. and then re-try.
0
 

Author Comment

by:flexpipe
ID: 20283921
Done. No effect.
0
 
LVL 23

Accepted Solution

by:
Ashish Patel earned 2000 total points
ID: 20286838
Try this now. and see the commented code in there and use the Conn.Open accordingly.

<%Dim Conn, RS, SQL
set conn=Server.CreateObject("ADODB.Connection")
'Use this Line If your database had username and password protection.
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                   "Data Source=c:\inetpub\wwwroot\gal.mdb;" & _
                   "Jet OLEDB:System Database=system.mdw;" & _
                   "userid","password"
'Use this line if you database DONOT have username and password
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                   "Data Source=c:\inetpub\wwwroot\gal.mdb;"
set rs=Server.CreateObject("ADODB.recordset")
rs.Open "Select * from GAL", conn, 3, 3
Conn.Close
Set RS=Nothing
Set Conn=Nothing%>
0
 
LVL 1

Expert Comment

by:Computer101
ID: 20591002
Forced accept.

Computer101
EE Admin
0

Featured Post

Looking for a new Web Host?

Lunarpages' assortment of hosting products and solutions ensure a perfect fit for anyone looking to get their vision or products to market. Our award winning customer support and 30-day money back guarantee show the pride we take in being the industry's premier MSP.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Does your audience prefer people in photos or no people? How can you best highlight what you’re selling? What are your competitors doing, and what can you do that is different and unique from them?  Continue reading to learn how to make your images …
Dramatic changes are revolutionizing how we build and use technology. Every company is automating, digitizing, and modernizing operations. We need a better, more connected way to work together as teams so we can harness the insights from our system…
The viewer will learn how to dynamically set the form action using jQuery.
The viewer will learn how to count occurrences of each item in an array.
Suggested Courses

609 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question