« IIS中自动添加虚拟目录的关键语句用VB编写UTF-8编码的ASP文件 »

用VB在SQL中自动附加数据库

如果有多个结构相同,但名称不同的数据库要加入SQL SERVER,手工做的话,是很麻烦的,但用程序做的话就简单啦。我用的是VB6.0解决的问题,以下是具体步骤如下:

1、首先要停止Distributed Transaction Coordinator(DTC) SQL服务器的一项服务

2、将已设置好的SQL数据库的原始文件,包括.MDF与.LDF为母库,通过它们复制产生许多跟它们结构相同,但名称不同的数据库。

3、用如下的VB程序代码,你可以连接数据库,加循环结构,可自动附加多个数据库到SQL中。

Dim sqlconn As ADODB.Connection
Dim sqlrect As ADODB.Recordset
Set sqlconn = New ADODB.Connection

sqlconn.Open "Provider=SQLOLEDB;User ID=sa;Password=;Persist Security Info=True;Initial Catalog=master;Data Source=SOU"
Set sqlrect = New ADODB.Recordset
sqlrect.ActiveConnection = sqlconn
'sqlrect.CursorType = adOpenStatic
'sqlrect.LockType = adLockOptimist
'sqlrect.Open ("sysdatabases")
sqlconn.Execute "sp_attach_db @dbname =N'sqltest',@filename1=N'f:\sqltest\sqltest_Data.MDF',@filename2=N'f:\sqltest\sqltest_Log.LDF'"

  • 相关文章:

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。

日历

最新评论及回复

最近发表

Powered By Z-Blog 1.7 Laputa Build 70216

版权所有,未经授权禁止转载、摘编、复制或建立镜像.如有违反,追究法律责任
Email: gogansu@gmail.com 陇ICP备08100741号 版权所有:博客骄子网
客服QQ:116545524QQ:116545524 QQ:116545524