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

哦，这个存储过程你要先加入到sqlserver才行的。去sqlserver数据执行生成存储过程。

你也可以保存成文本，读取内容后，用sqlcommand直接执行一次。

http://www.cnblogs.com/safezone/articles/1251224.html

红袍老师，

这块不会，能不能给弄下，我把代码放到狐表中，怎么执行呢，求老师给个代码

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3.table

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3.table

红袍老师，

测试后得到的结果是，原来数据库连接连接的状态，使用例子相当于只做了一次重启这个操作，是这样吧。

怎么能看到效果呢，没看出来效果。

[此贴子已经被作者于2015/12/2 18:35:13编辑过]

只要执行了这段代码，使用代码怎么也加载不上去。

老师，

应该怎么使用这个代码

[此贴子已经被作者于2015/12/2 18:52:47编辑过]

23楼的代码是加入StopLoging啊，你其余的卸载附加的代码不变啊。

红袍老师，

测试了还没有弄明白，23楼代码

Dim s As String="Provider=SQLOLEDB.1;Password=hailun.;Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=voyo"

Dim cmd As new SQLCommand

If Connections.Contains("test") Then

Connections.Delete("test")

End If

Connections.Add("test", s)

cmd.C

Dim dname As String = "test"

cmd.CommandText = Tables("表B").rows(1)("执行一次")

cmd.ExecuteNonQuery

cmd.CommandText = Tables("表B").rows(0)("执行一次")

cmd.ExecuteNonQuery

cmd.CommandText ="use master; exec StopLogin '"& dname &"'"

cmd.ExecuteNonQuery()

上面的代码是把master 给StopLogin，然后在删除附加 master？

还是删除附加新的数据库

Dim s As String="Provider=SQLOLEDB.1;Password=hailun.;Persist Security Info=True;User ID=sa;Initial Catalog=数据库名;Data Source=voyo"

汗。先写23楼的代码，然后，再执行你附加或者删除数据的sql语句啊。

老师，

真的是没有执行出来结果，麻烦您了，再给改改吧，测试了一晚上，也没有结果。

Dim datename As String=args(0)‘要重新加载的数据库

Dim path As String=args(1) ’数据库的路径

If Connections.Contains("test") Then

Connections.Delete("test")

End If

Dim s As String="Provider=SQLOLEDB.1;Password=hailun.;Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=voyo"

Connections.Add("test", s)

'停止运行数据库

Dim cmd,cmd1,cmd2 As new SQLCommand

cmd.C

‘Dim dname As String = "test"

cmd.CommandText = Tables("表B").rows(1)("执行一次")

cmd.ExecuteNonQuery

cmd.CommandText = Tables("表B").rows(0)("执行一次")

cmd.ExecuteNonQuery

cmd.CommandText ="use master; exec StopLogin '"& datename &"'"

cmd.ExecuteNonQuery()

'卸载数据库

cmd1.C

cmd1.CommandText = "use master;EXEC sp_detach_db '"& datename &"'"

cmd1.ExecuteNonQuery()

'重新附加数据库

Try

cmd2.C

Connections("test").BeginTransaction() '开始事务

cmd2.CommandText ="use master;EXEC sp_attach_db @dbname ='"& datename &"',@filename1 ='"& path &""& datename &".mdf',@filename2 ='"& path &""& datename &"_log.ldf'"'"

cmd2.ExecuteNonQuery()

Connections("test").Commit '提交事务,所有操作生效

PopMessage("加载成功!!", "提示",PopIconEnum.ok, 4)

Catch ex As Exception '如果出错

PopMessage("请联系管理员确认数据库是否安装正确!", "提示",PopIconEnum.ok, 4)

End Try

If Connections.Contains("test") Then

Connections.Delete("test")

End If

代码没问题啊。

主题：[求助]登录数据库提示