Top What's New Develop Technic Contact
ƒ�ƒ“ƒ|ƒCƒ“ƒg

[MS SQL Server]

ƒNƒ‰ƒCƒAƒ“ƒg‚©‚çDBƒoƒbƒNƒAƒbƒv‚ðŽÀ�s‚·‚é

[“®�ìŠÂ‹«]

Microsoft SQL Server 7.0
Microsoft Vusual Basic 6.0

[ŠT—v]

SQL Server‚ɂ͗D‚ꂽƒoƒbƒNƒAƒbƒv‹@”\‚ª–L•x‚É“‹�Ú‚³‚ê‚Ä‚¢‚Ü‚·‚ª�A‚±‚±‚Å�Љ‚é‚Ì‚Í�AƒNƒ‰ƒCƒAƒ“ƒg‘¤‚©‚çƒXƒgƒAƒh‚ðŽÀ�s‚·‚鎖‚ÅDBƒoƒbƒNƒAƒbƒv‚ð�s‚¤•û–@‚Å‚·�B’èŠú“I‚ȃoƒbƒNƒAƒbƒv‚ł͂Ȃ­�A”CˆÓ‚̃^ƒCƒ~ƒ“ƒO‚ŃoƒbƒNƒAƒbƒv‚·‚é�ê�‡‚ÉŽg‚¦‚邯Žv‚¢‚Ü‚·�B

[Žè�‡]

1�F ƒoƒbƒNƒAƒbƒvƒfƒoƒCƒX‚Ì�ì�¬

  1. SQL Server�ã‚ɃoƒbƒNƒAƒbƒvƒfƒoƒCƒX‚ð—pˆÓ‚µ‚Ü‚·�BEnterprise Manager‚ð‹N“®‚µ�AƒRƒ“ƒ\�[ƒ‹‰æ–Ê‚©‚çƒf�[ƒ^ƒx�[ƒX‚Ì�uŠÇ—��v�|�uƒoƒbƒNƒAƒbƒv�v‚ð‰EƒNƒŠƒbƒN‚µ�A�u�V‹KƒoƒbƒNƒAƒbƒvƒfƒoƒCƒX�v‚ð‘I‘ð‚µ‚Ä‰º‚³‚¢�B
  2. �uƒoƒbƒNƒAƒbƒvƒfƒoƒCƒX‚̃vƒ�ƒpƒeƒB-�V‹KƒfƒoƒCƒX�v‚Æ‚¢‚¤ƒ_ƒCƒAƒ�ƒO‚ªŒ»‚ê‚Ü‚·�B�u–¼‘O�v‚Ì�€–ڂɕۑ¶‚·‚éƒfƒoƒCƒX–¼‚ð“ü—Í‚µ�A�uƒtƒ@ƒCƒ‹–¼�v‚Ì�€–ڂɕۑ¶�æ‚̃pƒX‚ð“ü—Í‚µ‚ĉº‚³‚¢�B
  3. �uOK�vƒ{ƒ^ƒ“‚ðƒNƒŠƒbƒN‚·‚邯�AƒoƒbƒNƒAƒbƒvƒfƒoƒCƒX‚ª�ì�¬‚³‚ê‚Ü‚·�B“¯‚¶Žè�‡‚Å�Aƒ�ƒO‚̃oƒbƒNƒAƒbƒv—pƒfƒoƒCƒX‚à�ì�¬‚µ‚ĉº‚³‚¢�B

2�F ƒXƒgƒAƒhƒvƒ�ƒV�[ƒWƒƒ‚Ì�ì�¬

  1. ŽŸ‚É�AƒNƒ‰ƒCƒAƒ“ƒg‘¤‚©‚çƒoƒbƒNƒAƒbƒv‚ðŽÀ�s‚·‚éˆ×‚̃XƒgƒAƒh‚ð�ì�¬‚µ‚Ü‚·�B Enterprise Manager�@‚©‚çŠY“–‚̃f�[ƒ^ƒx�[ƒX‚ðŠJ‚«�A�uƒXƒgƒAƒhƒvƒ�ƒV�[ƒWƒƒ�v‚ð‰EƒNƒŠƒbƒN‚µ‚Ä�u�V‹KƒXƒgƒAƒhƒvƒ�ƒV�[ƒWƒƒ�v‚ð‘I‘ð‚µ‚Ä‰º‚³‚¢�B
  2. ƒXƒgƒAƒh�ì�¬‰æ–Ê‚ªŒ»‚ê‚Ü‚·‚Ì‚Å�A‰º‹L‚̂悤‚É“ü—Í‚µ‚ĉº‚³‚¢�B
    CREATE PROCEDURE usp_BKƒf�[ƒ^ƒx�[ƒX–¼
    AS
       /* DBƒtƒ‹ƒoƒbƒNƒAƒbƒv�ì�¬ */
       BACKUP DATABASE ƒf�[ƒ^ƒx�[ƒX–¼ 
       TO DB_BKƒfƒoƒCƒX–¼
       WITH FORMAT
    
       /* ƒ�ƒOƒoƒbƒNƒAƒbƒv�ì�¬ */
       BACKUP LOG ƒf�[ƒ^ƒx�[ƒX–¼ 
       TO DB_LOG_BKƒfƒoƒCƒX–¼
       WITH NO_TRUNCATE
    
  3. “ü—Í‚ª�Ï‚ñ‚¾‚ç�uOK�vƒ{ƒ^ƒ“‚Ń_ƒCƒAƒ�ƒO‚ð•‚¶‚ĉº‚³‚¢�BƒXƒgƒAƒhˆê——‚É�ì�¬‚µ‚½ƒXƒgƒAƒh‚ª•\ަ‚³‚ê‚ê‚Î�¬Œ÷‚Å‚·�BSQL Server‘¤‚Ì�Ý’è‚Í‚±‚ê‚Å�I—¹‚Å‚·�B

3�F ƒNƒ‰ƒCƒAƒ“ƒg‘¤‚©‚çŽÀ�s

  1. VB‚ÅSQL Server‚É�Ú‘±‚µ�AƒXƒgƒAƒh‚ðŽÀ�s‚·‚鎖‚ŃoƒbƒNƒAƒbƒv‚ð�s‚¦‚Ü‚·�BVB‚̃tƒH�[ƒ€�ã‚ɃRƒ}ƒ“ƒhƒ{ƒ^ƒ“‚ð”z’u‚µ�AƒNƒŠƒbƒNƒCƒxƒ“ƒgƒvƒ�ƒV�[ƒWƒƒ‚ɉº‹L‚̃R�[ƒh‚ð‹L�q‚µ‚ĉº‚³‚¢�B
    Dim CONN as New ADODB.Connection
    Dim CMD as New ADODB.Command
    
    'DB�Ú‘±
    CONN.ConnectionString = "Provider=SQLOLEDB1.0;Data Source=DBname;User ID=sa;Password= ;Initial Catalog=Tablename"
    CONN.Open
    
    'ƒXƒgƒAƒhŽÀ�s
    CMD.CommandType = adCmdStoredProc
    CMD.CommandText = "ƒXƒgƒAƒh–¼"
    CMD.Execute
    
    Set CMD = Nothing
    Set CONN = Nothing 
    
  2. �ã‹L‚Ì‹L�q‚ðŽÀ�s‚·‚邯�A�Š’è‚̃fƒoƒCƒX‚ÉDBƒoƒbƒNƒAƒbƒv‚ª�ì�¬‚³‚ê‚Ü‚·�B