Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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µÄÌØÊâ×Ö·û£º

Êý¾Ý¿âsqlµÄÌØÊâ×Ö·û£º
1£©µ¥ÒýºÅ’£ºÀýÈçstring a = “this is marry’s book.”;
             Ê¹ÓÃinsertʱ¾Í»á³ö´í¡£
             ½â¾ö£ºa= a.Replace("'","' ......

SQL×¢Èë½Ì³ÌÖ®ÈëÃÅÆª

Èë Êƪ
Èç¹ûÄãÒÔǰûÊÔ¹ýSQL×¢ÈëµÄ»°£¬ÄÇôµÚÒ»²½ÏȰÑIE²Ëµ¥=>¹¤¾ß=>InternetÑ¡Ïî=>¸ß¼¶=>ÏÔʾÓѺà HTTP ´íÎóÐÅÏ¢Ç°ÃæµÄ¹´È¥µô¡£·ñÔò£¬²»ÂÛ·þÎñÆ÷·µ»ØÊ²Ã´´íÎó£¬IE¶¼Ö»ÏÔʾΪHTTP 500·þÎñÆ÷´íÎ󣬲»ÄÜ»ñµÃ¸ü¶àµÄÌáʾÐÅÏ¢¡£
µÚÒ»½Ú¡¢SQL×¢ÈëÔ­Àí
ÒÔÏÂÎÒÃÇ´ÓÒ»¸öÍøÕ¾www.19cn.com¿ªÊ¼£¨×¢£º±¾ÎÄ·¢±íǰÒÑÕ÷µ ......

ÐÞ¸´SQL Server Enterprise Manager.MSC

       ½ñÌì´ò¿ªÆóÒµ¹ÜÀíÆ÷µÄʱºòÌáʾ“¹ØÓÚMMC²»ÄÜ´ò¿ªÎļþC:\Program Files\Microsoft SQL Server\80\Tools\Binn\SQL Server Enterprise Manager.MSC¿ÉÄÜÊÇÓÉÓÚÎļþ²»´æÔÚ£¬²»ÊÇÒ»¸öMMC¿ØÖÆÌ¨£¬»òÕßÓúóÀ´µÄMMC°æ±¾´´½¨¡£Ò²¿ÉÄÜÄãûÓзÃÎÊ´ËÎļþµÄ×㹻ȨÏÞ”£¬googleÖ®£¬·¢ ......

SQL ·À×¢Èëʽ¹¥»÷

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 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ