再问一个ado的简单问题(在线,及时结贴).

[benz600]

我用interdev6.0开发遇到一个ado的小问题,因为是初次接触
请各位大哥帮忙.代码如下:

dim myconn
set myconn=server.CreateObject("ADODB.Connection")
myconn.Open "EMIS"

其中EMIS是我建立的SQLSERVER数据源名称(ODBC)
但总是在myconn.open "emis"行 提示错误如下:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

如何解决呢?
谢谢

[xieyj]

ASP0126(0x80004005)-->找不到包含文件

[tigerwen01]

EMIS数据源还没有设置.

[benz600]

tigerwen01(小虎)(编程艺术化) :
你说的设置是什么意思呢？EMIS数据源在odbc管理器中建立后，还要做什么工作吗？谢谢

[超级大笨狼]

类似这样？
myconn.Open "Provider=MSDASQL.1;Persist Security Info=False;User ID=adr;Data Source=EMIS"

[benz600]

superdullwolf(超级大笨狼) ( )
好像不行啊 ，谢谢

[lovehwq21]

用什么数据库
如果是SQL，可以用这个
SQL：
strSQLServerName = "localhost" '服务器名称或地址
strSQLDBUserName = "sa" '数据库帐号
strSQLDBPassword = "" '数据库密码
strSQLDBName = "db" '数据库名称
'-----------------------------------------------------------------------------------------------
Set conn = Server.CreateObject("ADODB.Connection")
strCon = "Provider=SQLOLEDB;Server=" & strSQLServerName & ";User ID=" & strSQLDBUserName & ";Password=" & strSQLDBPassword & ";Database=" & strSQLDBName & ";"
conn.Open strCon

如果是ACCESS，用这个吧
ACCESS：
'更改数据库名字
db="data/bankroll.asp"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
'或者用这个
connstr="Driver={Microsoft Access Driver(*.mdb)};dbq=" & Server.MapPath(db)
conn.Open connstr

[benz600]

多谢大家关注，但试过上面所有方法后还是不行，大家再帮帮忙，谢谢

[liweijun598]

dim myconn,emis
set myconn=server.createobject("adodb.connection")
emis="driver={sql server};server=你的数据库服务器;uid=用户;pwd=密码;database=你的数据库;"
mmyconn.open emis

[DeltaCat]

dim myconn
set myconn=server.CreateObject("ADODB.Connection")
myconn.Open "DSN=EMIS"