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的特殊字符：
1）单引号’：例如string a = “this is marry’s book.”;
使用insert时就会出错。
解决：a= a.Replace("'","' ......
入 门 篇
如果你以前没试过SQL注入的话，那么第一步先把IE菜单=>工具=>Internet选项=>高级=>显示友好 HTTP 错误信息前面的勾去掉。否则，不论服务器返回什么错误，IE都只显示为HTTP 500服务器错误，不能获得更多的提示信息。
第一节、SQL注入原理
以下我们从一个网站www.19cn.com开始（注：本文发表前已征� ......
今天打开企业管理器的时候提示“关于MMC不能打开文件C:\Program Files\Microsoft SQL Server\80\Tools\Binn\SQL Server Enterprise Manager.MSC可能是由于文件不存在，不是一个MMC控制台，或者用后来的MMC版本创建。也可能你没有访问此文件的足够权限”，google之，发 ......
1、检查是否有非法字符
public static boolean sql_inj(String str)
{
String inj_str = "'|and|exec|insert|select|delete|update|
count|*|%|chr|mid|master|truncate|char|declare|;|or|-|+|,";
//这里的东西还可以自己添加
String[] inj_stra=inj_str.split("\\|");
for ......
