VB+SQL SERVER 动态附加数据库

作者: 许泽博　发布: 2015/7/6　分类: 电脑　阅读: 次　查看评论

“附加Server数据库”按钮的click事件添加如下的代码

Private Sub Command2_Click() 

If Text1.Text = "" Then    

MsgBox "请选择数据库文件！", , "XSCJ"   

Exit Sub 

End If 

On Error GoTo dataerr

cn.Open"Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;userid=sa;Initial Catalog=master" 

cn.Execute ("sp_attach_db @dbname='" & strdata & "',@filename1='" & m & "'")

MsgBox "附加成功！", , "XSCJ"

cn.Close

Unload Me

Form1.Show

Exit Sub

dataerr:  MsgBox Err.Description, , "XSCJ"

cn.Close

End Sub

内容来源于网络，版权归作者所有。

« 上一篇下一篇 » 原创文章，转载请注明出处！标签: 电脑  VB