access 数据连接程序
来源:网络 作者:佚名 点击:
次时间:2017-08-23 21:46
[摘要] 指引教程为您提供access 数据连接程序等资源，欢迎您收藏本站，我们将为您提供最新的access 数据连接程序资源
|
<script>ec(2);</script>
Dim conn
Sub DBOpen()
Dim db : db=Server.MapPath(”zzz.mdb”)
Set conn=Server.CreateObject(”Adodb.Connection”)
On Error Resume Next
conn.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & db
If Err.Number<>0 then
Err.Clear
Response.Write(”<h1>The Database link is ERROR</h1>”)
Response.End()
End If
On Error GoTo 0
End Sub
Call DBOpen()
… …
conn.CLose() : Set conn=Nothing
|
------分隔线----------------------------
