strconn = "Driver={SQL Server};Description=sqldemo;SERVER=服务器或IP;UID=用户名ID;PWD=密码;DATABASE=数据库名"
set conn = server.createobject("adodb.connection")
conn.open strconn
'连接数据库,默认数据库是关闭的,调用时要先打开
Dim WebsiteURL
WebsiteURL = "../"'定义网站录目
Dim Conn
Private Sub ConnOpen()
set Conn=server.createobject("ADODB.connection")
Conn.ConnectionString ="Provider=SQLOLEDB.1;Password=密码;Persist Security Info=True;User ID=用户名或ID;Initial Catalog=数据库名;Data Source=本机IP或PC名;Connect Timeout=15"
Conn.Open
'db=server.mappath("../#database#/#database#.mdb")
'set conn=server.createobject("adodb.connection")
'conn.open "driver={microsoft access driver (*.mdb)};pwd=;dbq="&db '没有密码
'conn.open "Provider = Sqloledb;User ID=sa;Password=sa;Initial Catalog =text;Data Source =local"
End Sub
Private Sub ConnClose()
If Not (Conn Is Nothing) Then
Conn.Close : Set Conn = Nothing
End If
End Sub
本文详细介绍了如何使用ADO.NET连接并初始化数据库连接,包括设置连接字符串、建立ADO.NET连接对象、打开数据库连接等关键步骤。
4388

被折叠的 条评论
为什么被折叠?



