Home > Database > Mysql Tutorial > body text

mssql数据库连接程序

WBOY
Release: 2016-06-07 17:46:56
Original
1047 people have browsed it

mssql数据库连接程序

mssql数据库连接程序



On Error Resume Next
Response.Buffer = True
dim startime
dim conn
dim connstr
dim sqldatabase,sql_pass_word,sql_User_ID,sql_Data_Source
startime=timer()
Set conn = Server.CreateObject("ADODB.Connection")
connstr = "Provider=SQLOLEDB.1;Password='';Persist Security Info=False;User ID='sa';Initial Catalog='m1';Data Source='127.0.0.1'"
conn.Open connstr
'ConnStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=(local)"
'conn.Open connstr
'conn.DefaultDatabase = "dgjob"
Sub CreateRS(sql,lv1,lv2)
   set rs=server.CreateObject("adodb.recordset")
   rs.open sql,conn,lv1,lv2
End sub

function CloseDb
 Conn.close
 Set conn = Nothing
End Function

If Err Then
 Response.Write "" & vbcrlf
 Response.Write "" & vbcrlf
 Response.Write "数据库连接出错,请检查连接字串。"'注释,需要把这几个字翻译成英文。
 err.Clear
 Set Conn = Nothing
 Response.End
End If

 function rsclose
 set rs=nothing
 end function

 function connclose
 conn.close
 set conn=nothing
 end function

%>



数据库连接出错,请检查连接字串。

Related labels:
source:php.cn
Statement of this Website
The content of this article is voluntarily contributed by netizens, and the copyright belongs to the original author. This site does not assume corresponding legal responsibility. If you find any content suspected of plagiarism or infringement, please contact admin@php.cn
Popular Tutorials
More>
Latest Downloads
More>
Web Effects
Website Source Code
Website Materials
Front End Template