兄弟们你们幸苦了,元旦快乐!我来先散散分,祝大家新年大发,个个身边PLMM跟着转,小房变洋房,电脑个个换P4。我现在有一个头痛的问题,还要请大家帮帮忙,有什么方

  • 主题发起人 张辉明
  • 开始时间
接分来了
 
!我是个急性子!快给分
 
例子:
<%@LANGUAGE="VBSCRIPT"%>
<%
option explicit
dim startime
dim conn
dim connstr
dim db,pass_word,User_ID,Data_Source
startime=timer()
db="xxx" '数据库名称
Pass_word="sa" 'Password=帐号密码
User_ID="sa" 'User ID=登陆帐号
Data_Source="yyy" 'Data Source=服务名称或者ip
Set conn = Server.CreateObject("ADODB.Connection")
connStr="Provider=SQLOLEDB.1;Password='"&amp;pass_word&amp;"';Persist Security Info=True;User ID='"&amp;User_ID&amp;"';Initial Catalog='"&amp;db&amp;"';Data Source='"&amp;Data_Source&amp;"'"
conn.Open connstr
function CloseDatabase
Conn.close
Set conn = Nothing
End Function
%>
 
不好意思,我也想不知道!
 
我怎么样才能回答这个问题? 这里只给我注释
 
大嘴陈,zwy, chinesetree回答的最详细ADO连接
desertsmoke,用odbc连接
 

Dim ConnStr,DBConn
set DBConn = CreateObject("ADODB.Connection")
ConnStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=数据库名;Data Source=服务器名或服务器IP地址"
DBConn.Open ConnStr
我的觉对没错,我用过千篇了。
 
首先要谢谢大家,真的谢谢了,得到这么多仁兄的帮助。
因为没有上网卡,还有搞课程设计,所以没时间上网,今天来结贴。[^]
 
可以连上了吗?上面这么多位大侠的回答应该满意了吧!
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
819
SUNSTONE的Delphi笔记
S
I
回复
0
查看
868
import
I
I
回复
0
查看
670
import
I
顶部