怎么在VB公共模块里附加SQL数据库?代码如何写?
1个回答
展开全部
'附加数据库
On Error Resume Next
con.ConnectionString = "Provider=SQLOLEDB.1; Password=123456;Persist Security Info=True;User ID=sa" '连接数据库
con.Open '打开数据库
Set rs = New ADODB.Recordset '实例话rs
'开始附加数据库
str = "EXEC sp_attach_db @dbname = N'yustin', @filename1 = N'" + App.Path + "\DataSource\yustin_Data.MDF" + "', @filename2 = N'" + App.Path + "\DataSource\yustin_Log.LDF" + "'"
On Error Resume Next
con.ConnectionString = "Provider=SQLOLEDB.1; Password=123456;Persist Security Info=True;User ID=sa" '连接数据库
con.Open '打开数据库
Set rs = New ADODB.Recordset '实例话rs
'开始附加数据库
str = "EXEC sp_attach_db @dbname = N'yustin', @filename1 = N'" + App.Path + "\DataSource\yustin_Data.MDF" + "', @filename2 = N'" + App.Path + "\DataSource\yustin_Log.LDF" + "'"
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
