展会信息港展会大全

access 数据连接程序 android软件开发教程
来源:互联网   发布日期:2016-03-01 11:05:31   浏览:1536次  

导读: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.Number0 then Err.Clear Response.Wri...

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

赞助本站

人工智能实验室

相关热词: 开发 编程 android

相关内容
AiLab云推荐
展开

热门栏目HotCates

Copyright © 2010-2024 AiLab Team. 人工智能实验室 版权所有    关于我们 | 联系我们 | 广告服务 | 公司动态 | 免责声明 | 隐私条款 | 工作机会 | 展会港