主题:求助,实时错误‘-2147217843(80040e4d)’
我是用win7系统,用SQL2000做后台、 VB前台 、ODBC做数据源方式做了个管理系统。
结果在机房和其他人电脑上能用,我的就不行,弹出如标题的那个错误提示。
我看过了,他们的SQL安全和登陆设置跟我完全一样,就是我的用不成,太诡异了。
公共模块的代码如下:
Public conn As ADODB.Connection ' 用于映射数据库
Public mrc As ADODB.Recordset ' 用于映射来自基表或命令执行结果的记录集
Public cmd As ADODB.Command ' 用于映射对数据源执行的命令
Public user_ID As String
Public Sub DatabaseOpen() ' 建立数据库连接
Dim ConnectString As String
Set conn = New ADODB.Connection
' 连接字符串
ConnectString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Student;Data Source=."
conn.CursorLocation = adUseClient '设置conn为客户端
conn.Open ConnectString ' 建立与连接字符串指定的数据库的连接
Set cmd = New ADODB.Command
cmd.ActiveConnection = conn ' 将Command对象连接到数据源
这段代码是老师在机房发给我的。
有一个的也是装win7 照样能用,好像这程序除了我的电脑,其他都都可以。。。杯具啊。
求帮忙解决。。。。我都弄了两天了,甚至都重装 了系统。拜谢~
结果在机房和其他人电脑上能用,我的就不行,弹出如标题的那个错误提示。
我看过了,他们的SQL安全和登陆设置跟我完全一样,就是我的用不成,太诡异了。
公共模块的代码如下:
Public conn As ADODB.Connection ' 用于映射数据库
Public mrc As ADODB.Recordset ' 用于映射来自基表或命令执行结果的记录集
Public cmd As ADODB.Command ' 用于映射对数据源执行的命令
Public user_ID As String
Public Sub DatabaseOpen() ' 建立数据库连接
Dim ConnectString As String
Set conn = New ADODB.Connection
' 连接字符串
ConnectString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Student;Data Source=."
conn.CursorLocation = adUseClient '设置conn为客户端
conn.Open ConnectString ' 建立与连接字符串指定的数据库的连接
Set cmd = New ADODB.Command
cmd.ActiveConnection = conn ' 将Command对象连接到数据源
这段代码是老师在机房发给我的。
有一个的也是装win7 照样能用,好像这程序除了我的电脑,其他都都可以。。。杯具啊。
求帮忙解决。。。。我都弄了两天了,甚至都重装 了系统。拜谢~