“附加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

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