易截截图软件、单文件、免安装、纯绿色、仅160KB

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


相关文档:

SQL省市区三级表 说声谢谢再拿

-- 表的结构 area
DROP TABLE  area;
CREATE TABLE  area (
  id int NOT NULL ,
  areaID int NOT NULL,
  area varchar(200) NOT NULL,
  fatherID int NOT NULL,
  PRIMARY KEY  (id)
)
DROP TABLE city;
CREATE TABLE  city select
  id int NOT NULL ......

SQL注入教程之高级篇

看完入门篇和进阶篇后,稍加练习,破解一般的网站是没问题了。但如果碰到表名列名猜不到,或程序作者过滤了一些特殊字符,怎么提高注入的成功率?怎么样提高猜解效率?请大家接着往下看高级篇。
第一节、利用系统表注入SQLServer数据库
SQLServer是一个功能强大的数据库系统,与操作系统也有紧密的联系,这给开发者带来了 ......

数据库相关:JDBC直连SQL Server 2005

来自:http://www.cnblogs.com/mikeye/archive/2007/04/13/711878.html
和来自:http://tech.ccidnet.com/art/3539/20080225/1370107_1.html
用eclipse来进行Microsoft SQL Server 2005数据库方面的开发,先把MS SQL Server 2005 JDBC Driver的驱动下载后加入工程文件的类库中;然后写URL字符串。根据以往的写法写入:url = ......

InstallShield SQL 数据库安装


来源:http://hi.baidu.com/czgblog/blog/item/3abd5aa911d51ff51f17a292.html
function OnFirstUIAfter()
     STRING szTitle, szMsg1, szMsg2, szOpt1, szOpt2;
     NUMBER bvOpt1, bvOpt2;
     NUMBER bShowUpdateServiceDlg;
    ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号