您现在的位置： 万盛学电脑网 >> 程序编程 >> 网络编程 >> asp编程 >> 正文
access 数据连接程序
作者：佚名 责任编辑：admin 更新时间：2022-06-22
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
- 上一个程序编程： asp入门实例-读取数据库程序
- 下一个程序编程： asp 输入输出的存储过程
