哦 还是不明白,我比较笨,首先是外部数据源先链接ACCESS数据,在准备切换数据源到SQL,下面是准备切换的代码哪里不对呢
Dim datename As String‘数据库名
Dim path As String’路径
Dim s As String="Provider=SQLOLEDB.1;Password=000211;Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=11111"
If 数据库不存在附加数据库
....直接附加数据库
Else
'数据库存在,卸载重新附加据库
Dim cmd1,cmd2,cmd3 As New SQLCommand
If Connections.Contains("test") Then
Connections.Delete("test")
Connections.Add("test", s)
cmd1.C
cmd1.CommandText ="StopLogin '“& datename &”';use master;EXEC sp_attach_db @dbname ='"& datename &"',@filename1 ='"& path &""& datename &".mdf',@filename2 ='"& path &""& datename &"_log.ldf'"'" ,第一步删除连接
cmd1.ExecuteNonQuery()
End If
If Connections.Contains("test") Then
Connections.Delete("test")
Connections.Add("test", s)
cmd2.C
cmd2.CommandText = "use master;EXEC sp_detach_db '"& datename &"'" ,第二步分离
cmd2.ExecuteNonQuery()
cmd3.CommandText ="use master;EXEC sp_attach_db @dbname ='"& datename &"',@filename1 ='"& path &""& datename &".mdf',@filename2 ='"& path &""& datename &"_log.ldf'"'",第三步附加
cmd3.ExecuteNonQuery()
If Connections.Contains("test") Then
Connections.Delete("test")
End If
End If
End If
End If