VIP会员
购物车
私信
发表新帖
立即签到
关注
回复
支持(
反对(
首页上一页 1 下一页尾页 1 条记录 1/1页
企业进销存管理系统附加数据库失败
发表在VB答疑区
2010-06-03
是否精华
是
否
版块置顶:
是
否
我用的是SQL Server 2008 Express数据库，VB6.0
Public Sub Main()
'附加数据库
On Error Resume Next
con.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Password=***;Data Source=**\SQLEXPRESS"
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=True;User ID=sa;Initial Catalog=db_SSS;Data Source=**\SQLEXPRESS"
frm_Star.Show
End Sub
运行程序后，frm_star启动，frm_mm不能启动，因为提示：无法打开登录所请求的数据库“db_SSS”
我在SQL Server Management Studio中没有看到db_SSS数据库，如果我直接在SQL Server Management Studio中附加数据库db_SSS，则运行正常。
Public Sub Main()
'附加数据库
On Error Resume Next
con.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Password=***;Data Source=**\SQLEXPRESS"
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=True;User ID=sa;Initial Catalog=db_SSS;Data Source=**\SQLEXPRESS"
frm_Star.Show
End Sub
运行程序后，frm_star启动，frm_mm不能启动，因为提示：无法打开登录所请求的数据库“db_SSS”
我在SQL Server Management Studio中没有看到db_SSS数据库，如果我直接在SQL Server Management Studio中附加数据库db_SSS，则运行正常。
分享到：
