熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> .NET編程 >> 正文

access 數據連接程序

2013-11-13 10:35:18  來源: .NET編程 

  Dim conn
Sub DBOpen()
Dim db : db=ServerMapPath(”zzzmdb”)
Set conn=ServerCreateObject(”AdodbConnection”)
On Error Resume Next
connOpen “Provider=MicrosoftJetOLEDB;Data Source=” & db
If ErrNumber<> then
ErrClear
ResponseWrite(”<h>The Database link is ERROR</h>”)
ResponseEnd()
End If
On Error GoTo
End Sub
Call DBOpen()
… …
connCLose() : Set conn=Nothing


From:http://tw.wingwit.com/Article/program/net/201311/14050.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.