ASP连接本土Access数据库失败,求指点~

ASP连接本地Access数据库失败,求指点~~~~
本帖最后由 KamiyaLee 于 2014-06-12 10:56:16 编辑
一个老的ASP网站,用的是本地的Access数据库
环境:WIN7旗舰版,64位
再贴上两个数据库连接的文档,请大神帮忙看看哪里不对。谢谢了
运行起来:
 ASP连接本土Access数据库失败,求指点~

Data_Config.asp文件

<%
  Option Explicit


  Dim IsSqlDataBase
  IsSqlDataBase = 0

  Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
  SqlLocalName = "(local)"
  SqlDatabaseName = "bbrdata"
  SqlUsername = "sa"
  SqlPassword = "admin"

  Dim Db
  Db="data/Data.mdb"

  Dim SqlDiff,SqlNowString
  if IsSqlDatabase=1 then

     SqlDiff=" "

     SqlNowString = "GetDate()"
  else
     SqlDiff=" * "
     SqlNowString = "now()"
  end if

%>



Conn.asp文件:

<!--#include file="Data_config.asp"-->
<%

Dim Sql,Rs,Conn


Dim ProcessStartTime,ProcessEndTime
ProcessStartTime=Timer()

ConnectionDatabase

Sub ConnectionDatabase
Dim ConnStr
If IsSqlDataBase = 1 Then
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
Else
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
End If
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错,请检查连接字串。"
Response.End
End If
End Sub

Function CloseConn
  Conn.close
  set Conn=nothing
End Function

%>



目录结构为:根目录Data文件夹下data.mdb数据库
------解决方案--------------------
64位的电脑不支持32位的驱动器,需要重新设置一下,百度一下数据库连接时出错显示未找到数据源并未找到驱动器,立马就可以解决了。
------解决方案--------------------
启用32位进程池吧。
或者尝试用NT 6.0、NT6.1内置的SQL Server的精简版:
Provider=Microsoft.SqlLite.Mobile.OleDb.3.0; Data Source=Data.sdf
NT 6.2、NT 6.3则是
Provider=Microsoft.Windows.SqlLite.OleDb.4.0; Data Source=Data.sdf

不过,NT 6.0、NT 6.1虽然内置了SQL Server精简版,但不一定能够用的。NT 6.2和NT 6.3的莫有问题,x64和x86通吃。
NT 6.0系统包括:Vista、Windows Server 2008
NT 6.1系统包括:Win 7、Windows Server 2008 R2
NT 6.2系统包括: Win 8、Windows Server 2012
NT 6.3系统包括: Win 8.1、Windows Server 2012 R2