扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
作者:木子 来源:VB编程乐园 2007年10月23日
关键字: SQL Server
在本页阅读全文(共2页)
X=shell("Sqlmgr.exe",1) 显示SQL Service Manager窗口; X=shell("net start mssqlserver") 启动MSSQLServer服务 X=shell("net start sqlexecutive") 启动SQLExecutive服务 |
Global OServer as New SQLOLE.SQLServer |
OServer.Connect ServerName:=注册的SQL Server名,Login:=登录名(一般为sa),Password:=密码 |
dim transql as string transql="use master" & _ "DISK INIT" & _ "Name='Device_1'," & _ "Physname='D:\SQL\data\device1.dat'," & _ "vdevno=10," & _ "size=102400" & _ "DISK INIT" & _ "Name='Device2'," & _ "Physname='D:\SQL\data\device2.dat'," & _ "vdevno=11," & _ "size=204800" OServer.ExecuteImmediate Command:=transql,exectype:=SQLOLEExec_Default |
transql = "CREATE DATABASE Db_1 ON Device_1=100 " OServer.ExecuteImmediate Command:=transql, exectype:=SQLOLEExec_Default transql = "CREATE DATABASE Db_2 ON Device_2=100 " OServer.ExecuteImmediate Command:=transql, exectype:=SQLOLEExec_Default |
transql = "use Db_1 " & _ "create table T_1 " & _ "(Name char(8) null, " & _ " Age numeric(2) null, " & _ " Sex smallint null, " & _ " ID_Code char(16) not null, " & _ " constraint c_1 primary key clustered (ID_Code))" OServer.ExecuteImmediate Command:=transql,exectype:=SQLOLEExec_Default |
transql="CREATE INDEX index_1 ON T_1 (Name)" OServer.ExecuteImmediate Command:=transql,exectype:=SQLOLEExec_Default |
transql = "use Db_2 " & _ "create table T_2 " & _ "(Name char(8) null, " & _ " Age numeric(2) null, " & _ " Sex smallint null, " & _ " Department char(16) not nill, " & _ " No char(4) not null," & _ "constraint c_2 primary key clustered (Department,No))" OServer.ExecuteImmediate Command:=transql, exectype:=SQLOLEExec_Default |
DISK RESIZE Name='Devive_1', Size = 102400 |
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。