Solved

Microsoft VBScript runtime error '800a01fb'

Posted on 2007-11-14
10
1,281 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
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
MIM Survival Guide for Service Desk Managers

Major incidents can send mastered service desk processes into disorder. Systems and tools produce the data needed to resolve these incidents, but your challenge is getting that information to the right people fast. Check out the Survival Guide and begin bringing order to chaos.

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

How our DevOps Teams Maximize Uptime

Our Dev teams are like yours. They’re continually cranking out code for new features/bugs fixes, testing, deploying, responding to production monitoring events and more. It’s complex. So, we thought you’d like to see what’s working for us. Read the use case whitepaper.

Question has a verified solution.

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

If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
Developer portfolios can be a bit of an enigma—how do you present yourself to employers without burying them in lines of code?  A modern portfolio is more than just work samples, it’s also a statement of how you work.
This tutorial demonstrates how to identify and create boundary or building outlines in Google Maps. In this example, I outline the boundaries of an enclosed skatepark within a community park.  Login to your Google Account, then  Google for "Google M…
The viewer will get a basic understanding of what section 508 compliance can entail, learn about skip navigation links, alt text, transcripts, and font size controls.

860 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