[求助]附加数据库 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]附加数据库

共有2969人关注过本帖树形打印复制链接主题：[求助]附加数据库

blsu33

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00

[求助]附加数据库 发帖心情

Post By：2015/11/27 10:12:00 [只看该作者]

红袍老师，

附加数据库还是不行，麻烦您再给看下。

使用外部数据源access 然后希望加载进来SQL2005数据源

下载信息 [文件大小：下载次数： ]
点击浏览该文件:测试附加.rar

Hyphen

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2015/11/27 10:26:00 [只看该作者]

1. 首先设置一个外部数据源指向SQL2005任意一个数据库

2. 附加

Dim cmd1 As New SQLCommand
cmd1.C
cmd1.CommandText = "use master;EXEC sp_attach_db @dbname ='测试',@filename1 ='"& ProjectPath & "ADMIN\测试.mdf',@filename2 = '" & ProjectPath & "ADMIN\测试_log.ldf'"
cmd1.ExecuteNonQuery()

3.卸载

Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "use master;EXEC sp_detach_db '测试','true'"
cmd.ExecuteNonQuery()

[此贴子已经被作者于2015/11/27 10:25:59编辑过]

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/11/27 10:53:00 [只看该作者]

先要添加sql数据源啊

下载信息 [文件大小：下载次数： ]
点击浏览该文件:测试附加.zip

blsu33

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2015/11/27 11:33:00 [只看该作者]

o 多谢让二位费心了

blsu33

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2015/11/27 11:47:00 [只看该作者]

在问

如数据库已经存在，能否先提示下，停止加载呢，防止出现错误提示；

不会是使用

Try

代码一
Catch ex As Exception
代码二
End Try

大红袍

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/11/27 12:00:00 [只看该作者]

Try
    If Connections.Contains("test") Then Connections.Delete("test")
    Dim cmd1 As New SQLCommand
    Connections.Add("test", "Provider=SQLOLEDB.1;Password=hailun.;Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=voyo")
    cmd1.ConnectionName = "test"
    Connections("test").BeginTransaction() '开始事务
    cmd1.CommandText = "use master;EXEC sp_attach_db @dbname ='测试',@filename1 ='"& ProjectPath & "ADMIN\测试.mdf',@filename2 ='"& ProjectPath & "ADMIN\测试_log.ldf'"
    cmd1.ExecuteNonQuery()
    Connections("test").Commit '提交事务,所有操作生效
    If Connections.Contains("test") Then Connections.Delete("test")
Catch ex As Exception '如果出错
    msgbox(ex.message)
End Try

Hyphen

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2015/11/27 12:04:00 [只看该作者]

Dim cmd1 As New SQLCommand
cmd1.ConnectionNa me = "测试"
cmd1.CommandText = "sel ect count(*) from sys.databases where name = '测试'"
Dim val = cmd1.ExecuteScalar()
If val = 1 Then

msgbox("'测试'数据库存在")

else

'附加数据库

end if