给你一个特别的利用sql server 的sqldmo 这个东西可以完全控制sql做可以做的任何事情,只给你一个建立数据库的例子至于建立表格自己去研究了,或者利用ado来完成,嘿嘿 例子如下:'引用microsoft SQLDMO对象'定义数据库服务器 Dim Osql As New SQLDMO.SQLServer'定义一个数据库对象 Dim ODb As New SQLDMO.Database'定义数据库文件 Dim ODbFl As New SQLDMO.DBFile'定义日志文件 Dim ODbLg As New SQLDMO.LogFileODb.Name = "测试数据库"'连接数据库服务器 Osql.Connect "ukyo", "sa", ""'数据库文件存放位置 ODbFl.Name = "c:\ukyo\测试数据库.mdf" ODbFl.PhysicalName = "c:\ukyo\测试数据库.mdf"'日志文件存放位置 ODbLg.Name = "c:\ukyo\测试数据库.ldf" ODbLg.PhysicalName = "c:\ukyo\测试数据库.ldf"ODb.FileGroups("primary").DBFiles.Add ODbFl ODb.TransactionLog.LogFiles.Add ODbLg '增加数据库罗 Osql.Databases.Add ODb'释放对象 Set ODbLg = Nothing Set ODbFl = Nothing Set ODb = Nothing Osql.Close Set Osql = Nothing
在SQLServer中,鼠标右击某一个数据库,菜单选 所有任务-生成SQL脚本,选择你需要的选项的复选框,保存,打开这个SQL脚本文件,其中就有建立新数据库和建立新表的SQL语句,可以作为参考。
数据库.excute sql
例子如下:'引用microsoft SQLDMO对象'定义数据库服务器
Dim Osql As New SQLDMO.SQLServer'定义一个数据库对象
Dim ODb As New SQLDMO.Database'定义数据库文件
Dim ODbFl As New SQLDMO.DBFile'定义日志文件
Dim ODbLg As New SQLDMO.LogFileODb.Name = "测试数据库"'连接数据库服务器
Osql.Connect "ukyo", "sa", ""'数据库文件存放位置
ODbFl.Name = "c:\ukyo\测试数据库.mdf"
ODbFl.PhysicalName = "c:\ukyo\测试数据库.mdf"'日志文件存放位置
ODbLg.Name = "c:\ukyo\测试数据库.ldf"
ODbLg.PhysicalName = "c:\ukyo\测试数据库.ldf"ODb.FileGroups("primary").DBFiles.Add ODbFl
ODb.TransactionLog.LogFiles.Add ODbLg
'增加数据库罗
Osql.Databases.Add ODb'释放对象
Set ODbLg = Nothing
Set ODbFl = Nothing
Set ODb = Nothing
Osql.Close
Set Osql = Nothing
' sql = " CREATE TABLE [dbo].[OrgRecord_" & TableCount & "] ( "
' sql = sql & " [ID] [int] IDENTITY (1, 1) NOT NULL ,"
' sql = sql & " [Unit] [int] NOT NULL ,"
' sql = sql & " [Class] [int] NOT NULL ,"
' sql = sql & " [Area] [int] NULL ,"
' sql = sql & " [ClassNumber] [char] (10) NOT NULL ,"
' sql = sql & " [Score] [float] NULL "
' sql = sql & " ) ON [PRIMARY]"
' ExecData (sql)
你所說的聲明是什麼?