【转】ASP 连接ACCESS，SQL连接数据库字符串
1、ACCESS连接数据库字符串
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("asptest.mdb")
set conn = server.createobject("adodb.connection")
conn.open strconn
set rs=server.CreateObject("adodb.recordset")
sql="select * from table "
rs.open sql,conn,1,1
或
Set Cnn = Server.CreateObject("ADODB.Connection")
StrCnn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source ="&Server.MapPath("johnny\asptest.mdb")
//带密码情况
//Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\data.mdb;Persist Security Info=False;Jet OLEDB:Database Password=11
Cnn.Open StrCnn
sql="select * from table "
set rs=Cnn.execute(sql)
注：红色为数据库的路径。
2、SQL SERVER连接数据库字符串
最简单的就是：
connstr = "Provider=SQLOLEDB;Server=127.0.0.1;Database=johnny;UID=sa;PWD=40623660"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
注：
红色：服务器地址，也就是IP，本地可以写127.0.0.1或.或计算机名
蓝色：数据库名称。
黄色：用户名称。
粉红：密码。
================================================
下面是网络上参考的些资料
1、使用 Windows 身份验证（信任连接）：
oConn.Open "Provider=sqloledb;" & _
"Data Source=myServerName;" & _
"Initial Catalog=myDatabaseName;" & _
"Integrated Security=SSPI"
2、使用用于 ODBC 的 OLE DB 提供者（不使用 ODBC 数据源）：
使用 SQL Server 身份验证：
oConn.Open "Driver={SQL Server};" & _
"Server=MyServerName;" & _
"Database=myDatabaseName;" & _
"Uid=myUsername;" & _
"Pwd=myPassword"
使用 Windows 身份验证（信任连接）：
oConn.Open "Driver={SQL Server};" & _
"Server=MyServerName;" & _
"Database=myDatabaseName;" & _
"Trusted_Connection=yes"
如果遇到连接失败的情况，我们只要按照一中所示的方法，结合程序中的连接字符串进行检查，基本都能得到解决。另外，还有以下几个要注意的地方：
1、配置 ODBC 数据源时，点击"客户端"配置选项可以让我们指定连接使用的网络库、端口号等属性。2、如果遇到连接超时的错误，我们可以在程序中修改 Connection 对象的超时设置，再打开该连接。例如：
＜%Set Conn = Server.CreateObject("ADODB.Connection")DSNtest="DRIVER={SQL Server};SERVER=ServerName;UID=USER;PWD=password;DATABASE=mydatabase"Conn. Properties("Connect Timeout") = 15 '以秒为单位Conn.open DSNtest%＞
3、如果遇到查询超时的错误，我们可以在程序中修改 Recordset 对象的超时设置，再打开结果集。例如：
Dim cn As New ADODB.ConnectionDim rs As ADODB.Recordset. . .
cmd1 = txtQuery.TextSet rs = New ADODB.Recordsetrs.Properties("Command Time Out") = 300'//同样以秒为单位，如果设置为 0 表示无限制
rs.Open cmd1, cnrs.MoveFirst. . .
