Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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Óï¾ä×¢ÒâÊÂÏî
ÔÚÓ¦ÓÃϵͳ¿ª·¢³õÆÚ£¬ÓÉÓÚ¿ª·¢Êý¾Ý¿âÊý¾Ý±È½ÏÉÙ£¬¶ÔÓÚ²éѯSQLÓï¾ä£¬¸´ÔÓÊÓͼµÄµÄ±àдµÈÌå»á²»³öSQLÓï¾ä¸÷ÖÖд·¨µÄÐÔÄÜÓÅÁÓ£¬µ«ÊÇÈç¹û½«Ó¦ÓÃϵͳÌύʵ¼ÊÓ¦Óúó£¬Ëæ×ÅÊý¾Ý¿âÖÐÊý¾ÝµÄÔö¼Ó£¬ÏµÍ³µÄÏìÓ¦ËٶȾͳÉΪĿǰϵͳÐèÒª½â¾öµÄ×îÖ÷ÒªµÄÎÊÌâÖ®Ò»¡£ÏµÍ³ÓÅ»¯ÖÐÒ»¸öºÜÖØÒªµÄ·½Ãæ¾ÍÊÇSQLÓï¾äµÄÓÅ ......

½â¾ö£ºSQL Server·þÎñÎÞ·¨Æô¶¯

Æô¶¯SQL Server (SQLEXPRESS)·þÎñʱÌáʾ´íÎó£¬Ê¼þ²é¿´Æ÷ÏÔʾÒÔÏÂÐÅÏ¢£¨ID 9003£©£º
´«µÝ¸øÊý¾Ý¿â 'master' ÖеÄÈÕ־ɨÃè²Ù×÷µÄÈÕ־ɨÃèºÅ (276:232:1) ÎÞЧ¡£´Ë´íÎó¿ÉÄÜָʾÊý¾ÝË𻵣¬»òÕßÈÕÖ¾Îļþ(.ldf)ÓëÊý¾ÝÎļþ(.mdf)²»Æ¥Åä¡£Èç¹û´Ë´íÎóÊÇÔÚ¸´ÖÆÆÚ¼ä³öÏֵģ¬ÇëÖØÐ´´½¨·¢²¼¡£·ñÔò£¬Èç¹û¸ÃÎÊÌâµ¼ÖÂÆô¶¯ÆÚ¼ä³ö´í£¬Çë´Ó± ......

Sql(ÊÂÎï+Óαê)ʹÓ÷½·¨

--µ±Á½¸ö»òÁ½ÒÔÉϵIJÙ×÷Ҫô¶¼Ö´ÐУ¬ÒªÃ´¶¼²»Ö´ÐÐʱҪÓÃÊÂÎñ¡£
1. Sqlд·¨(ÊÂÎï+Óαê)
--¿ªÊ¼ÊÂÎñ
BEGIN TRAN
--²»ÏÔʾ¼ÆÊýÐÅÏ¢
SET NOCOUNT ON
DECLARE @ProjNo varchar(50),@CusNo varchar(50)
--ÉùÃ÷Óαê
DECLARE CRMPSContact_cursor CURSOR FOR 
SEL ......

¸ßÊÖÏê½âSQLÐÔÄÜÓÅ»¯Ê®Ìõ¾­Ñé

1.²éѯµÄÄ£ºýÆ¥Åä
¾¡Á¿±ÜÃâÔÚÒ»¸ö¸´ÔÓ²éѯÀïÃæÊ¹Óà LIKE '%parm1%'—— ºìÉ«±êʶλÖõİٷֺŻᵼÖÂÏà¹ØÁеÄË÷ÒýÎÞ·¨Ê¹Óã¬×îºÃ²»ÒªÓÃ.
½â¾ö°ì·¨:
ÆäʵֻÐèÒª¶Ô¸Ã½Å±¾ÂÔ×ö¸Ä½ø£¬²éѯËٶȱã»áÌá¸ß½ü°Ù±¶¡£¸Ä½ø·½·¨ÈçÏ£º
a¡¢ÐÞ¸Äǰ̨³ÌÐò——°Ñ²éѯÌõ¼þµÄ¹©Ó¦ÉÌÃû³ÆÒ»À¸ÓÉÔ­À´µÄÎı¾ÊäÈë¸ÄΪÏÂÀ­Áб ......

sql Server2000 Êý¾Ý¿âÓʼþ

*
ÌṩÁ½ÖÖ°æ±¾µÄOutLookÓʼþ·¢ËÍ·½Ê½
ÓÐÒÉÎÊÁªÏµ×÷Õß: zlp321001@hotmail.com
*/
A:ÀûÓÃOutLook2003·¢ËÍÓʼþ
----------------------------------------------------------------------
/
*²âÊÔ»·¾³: windowx Xp
 OutLook: OutLook 2003
 ²âÊԵĵç×ÓÓʼþ: zlp321001@126.com
/
µÚÒ»²½Ö裺½¨ÅäÖÃÎļþ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ