How to connection

[Edward King]

I have a Access Database£¬named "test.mdb" ,username=123 password=456

I write follow ASP code to connection test.mdb£º

<%
dim conn,rs,rSub,sql
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
Server.MapPath("test.mdb") & " ; uid=123;pwd=456" '4 line
set rs=server.createobject("adodb.recordset")

%>

But when I run it,it raise follow error:

Microsoft JET Database Engine error '80004005'

Can't found installed ISAM¡£

/dljcynw/conn.asp£¬line 4

How to modified it?
Thanks in advance!

[McKirahan]

"Edward King" <zhangsc@neusoft.com> wrote in message
news:emod6ql1DHA.2388@TK2MSFTNGP09.phx.gbl...

> I have a Access Database£¬named "test.mdb" ,username=123 password=456
>
> I write follow ASP code to connection test.mdb£º
>
> <%
> dim conn,rs,rSub,sql
> Set conn = Server.CreateObject("ADODB.Connection")
> conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
> Server.MapPath("test.mdb") & " ; uid=123;pwd=456" '4 line
> set rs=server.createobject("adodb.recordset")
>
> %>
>
> But when I run it,it raise follow error:
>
> Microsoft JET Database Engine error '80004005'
>
> Can't found installed ISAM¡£
>
> /dljcynw/conn.asp£¬line 4
>
> How to modified it?
> Thanks in advance!

Here's a partial solution:


Const cMDB = "test.mdb"
Const cDSN = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database
Password=123;Data Source="
Dim objADO
Set objADO = Server.CreateObject("ADODB.Connection")
objADO.Open cDSN & Server.MapPath(cMDB)
....