社区

京东店铺
淘宝店铺
当当店铺
拼多多店铺

APP下载

扫描下载官方APP

VIP会员

VB答疑区

+关注

已有23人关注

+发表新帖

所属版块： VB答疑区

qqfashion

学分:0

+关注

私信

立即签到

版块推荐

SQL连接错误

发表在VB答疑区 2008-02-19

是否精华是否

版块置顶: 是否

明日的技术人员:     你们好！     本人在用《VB数据库系统开发案例精选》里的“进销存管理系统”时,连接SQL出现错误，提示如下：     [dbnetlib][connectionOpen(connect()).]SQL.Server不存在或拒绝访问。     点击“确定”后，又提示：     运行时错误'-2147467259(80004005)':Automation错误     请问是什么原因啊，     我用的是SQL2005，书里面要求的是2000，是不是2005的连接方法不一样，     该实例是自动附加数据库的，代码如下： *************************************************************************** Public Function cnn() As ADODB.Connection     '共享数据库连接   Set cnn = New ADODB.Connection   cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_SSS" End Function
Public Sub Main() '附加数据库   On Error Resume Next   con.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa"   con.Open     '打开数据库连接   Set rs = New ADODB.Recordset   '开始附加数据库   str = "EXEC sp_attach_db @dbname = N'db_SSS', @filename1 = N'" + App.Path + "\DataSource\db_SSS_Data.MDF" + "', @filename2 = N'" + App.Path + "\DataSource\db_SSS_Log.LDF" + "'" '  rs.Open str, con, 1, adLockOptimistic   Set rs = con.Execute(str)   con.Close  '关闭数据库连接
  PublicStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_SSS"   frm_Star.Show End Sub **********************************************************************      我用的是书里面的其他的一些系统也出现相同的错误。      TCP/IP和SQL SERVER都有配置启动。      请有关的技术人员尽快帮我指点，谢谢。

分享到：

关注

支持(0)

反对(0)

精彩评论 4

Lemon

学分：0 LV1

+关注

私信

2008-02-19

沙发

您好！
   《VB数据库系统开发案例精选》中的所有例子都是利用SQL Server 2000开发的。在SQL 2005中也可以运行，您必须手动附加数据库，将该程序中的自动附加的代码屏蔽，采用手动附加的形式。另外，由于该数据库是SQL 2000的数据库，虽然附加到SQL 2005的服务器上，对于一些仅2005有的新功能新特性是不能使用的。
    另外，如果您的计算机上既存在SQL 2000又存在SQL2005，就需要注意默认实例的问题。
    您试一下，如果有什么问题您再联系我们。

支持(0)

反对(0)

qqfashion

学分：0 LV1

+关注

私信

2008-02-19

板凳

明日的技术人员：     谢谢你们的及时指点。     我的电脑上只安装有SQL2005，用混合验证SA空密码登录。     我现在手动附加《人力资源管理系统》中数据库后，运行产生如下错误： —————————————————————————————————————————————— 实时错误'-2147467259(80004005)': [Microsoft][ODBC SQLServer Driver][Shared Memory]Sql Server不存在或访问被拒绝 ——————————————————————————————————————————————     请指点。     以前也曾经手动附加过，记得也是运行错误。

支持(0)

反对(0)

qqfashion

学分：0 LV1

+关注

私信

2008-02-19

地板

在《进销存管理系统》里修改源码如下： —————————————————————————————————————————————— Public Sub Main() '附加数据库   On Error Resume Next   con.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa"   con.Open     '打开数据库连接   Set rs = New ADODB.Recordset   '开始附加数据库 '  str = "EXEC sp_attach_db @dbname = N'db_SSS', @filename1 = N'" + App.Path + "\DataSource\db_SSS_Data.MDF" + "', @filename2 = N'" + App.Path + "\DataSource\db_SSS_Log.LDF" + "'" ''  rs.Open str, con, 1, adLockOptimistic '  Set rs = con.Execute(str)   con.Close  '关闭数据库连接
  PublicStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_SSS"   frm_Star.Show End Sub —————————————————————————————————————————————— 同时手动附加数据库，运行后错误如下： ***************************************************     [dbnetlib][connectionOpen(connect()).]SQL.Server不存在或拒绝访问。     点击“确定”后，又提示：     实时错误'-2147467259(80004005)':     对象'Refresh'的方法'IAdodc'失败 ***************************************************
    请问该怎么办？     请尽快帮我指点，谢谢。

支持(0)

反对(0)