EXCEL生成SQL建表存储过程的VBA脚本
HO~HO~EXCEL生成SQL建表存储过程的VBA脚本^_^赞一下
2007-12-11 10:39
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 全局变量定义
Const MAX_COLUMN_NUM = 50
Dim stOutputPath As String
Dim stOutputFile As String
Dim stDBName As String
Dim stUserName As String
Dim stUserPasswd As String
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Set InitProcess初始化过程
Public Sub InitProcess()
'初始化输出文件夹
stOutputPath = Application.ThisWorkbook.Path + "\OUTSQL\"
'初始化数据库名
stDBName = Worksheets("首页").Cells(1, 2).Value
If stDBName = "" Then
MsgBox "数据库名不能为空"
Exit Sub
End If
'初始化输出文件名
stOutputFile = stOutputPath & stDBName & "Create.sql"
'创建输出文件夹and文件
On Error Resume Next
If Dir(stOutputPath) = "" Then
MkDir stOutputPath
End If
Dim FileObj, MyFile
Set FileObj = CreateObject("Scripting.FileSystemObject")
If FileObj.FileExists(stOutputFile) Then
Kill stOutputFile
End If
Set MyFile = FileObj.CreateTextFile(stOutputFile, True)
'初始化用户名,用户密码
stUserName = Worksheets("首页").Cells(2, 2).Value
stUserPasswd = Worksheets("首页").Cells(3, 2).Value
End Sub
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 创建数据库函数
Public Sub CreateDbSQL(ByVal OutSq
相关文档:
--结合sys.indexes和sys.index_columns,sys.objects,sys.columns查询索引所属的表或视图的信息
select
o.name as 表名,
i.name as 索引名,
c.name as 列名,
i.type_desc as 类型描述,
is_primary_key as 主键约束,
is_unique_constraint as 唯一约束,
is_disable ......
1.Stop 所有服务
2.用 Windows Install Clean Up 工具卸载SQL 2005组件
3.用SrvInstw.exe删除所有SQL服务
4.清除注册表
a. 将HKEY_CURRENT_USER---Software----Microsoft下的Microsoft SQL Server文件夹全部删除
b. 将HKEY_LOCAL_mACHINE---SOFTWARE---Microsoft下 ......
今天打开企业管理器的时候提示“关于MMC不能打开文件C:\Program Files\Microsoft SQL Server\80\Tools\Binn\SQL Server Enterprise Manager.MSC可能是由于文件不存在,不是一个MMC控制台,或者用后来的MMC版本创建。也可能你没有访问此文件的足够权限”,google之,发 ......
1.DATEADD函数
在向指定日期加上一段时间的基础上,返回新的 datetime 值。
语法
DATEADD ( datepart , number, date )
参数
datepart
日期部分
缩写
Year
yy, yyyy
quarter
qq, q
Month
mm, m
dayofyear
dy, y
Day
dd, d
Week
wk, ww
Hour
hh
minute
mi, n
second
ss, s
millisecond
m ......
记取记录集
create procedure getArticle
as
select * from Article_Content
GO
asp.net 调用方法
SqlConnection Conn = new SqlConnection();
Conn.ConnectionString = Data.Connstr();
Conn.Open();
......