Sub AddData()
SourceM = MyPath(App.Path, "窗体")
SourceM = SourceM & "Database\db_Client_Data.MDF"
SourceL = MyPath(App.Path, "窗体")
SourceL = SourceL & "Database\db_Client_Log.LDF"
'附加数据库********************************************
Set con = New ADODB.Connection
con.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa"
On Error Resume Next
Set rs = New ADODB.Recordset
str = "EXEC sp_attach_db @dbname = N'db_Client', @filename1 = N'" + SourceM + "', @filename2 = N'" + SourceL + "'"
Set rs = con.Execute(str)
Dim cn As New ADODB.Connection
cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_Client"
If Err.Number = -2147217900 Then
'捕捉错误号
Frm_mm.Show
Unload Me
Else
'如果数据库出现质疑 问题 将其移除
rsDropDB.Open "DROP DATABASE db_Client", con, adOpenDynamic, adLockOptimistic
rsDropDB.Close
End If
End Sub
这段代码con.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa"好像是错误的。。请问错在哪。。要怎么改。
|
