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

[Žè‡]

1F ƒ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ƒvv‚ð‰EƒNƒŠƒbƒN‚µAuV‹KƒoƒbƒNƒAƒbƒvƒfƒoƒCƒXv‚ð‘I‘ð‚µ‚Ä‰º‚³‚¢B
  2. uƒoƒbƒNƒAƒbƒvƒfƒoƒCƒX‚̃vƒƒpƒeƒB-V‹KƒfƒoƒCƒXv‚Æ‚¢‚¤ƒ_ƒCƒAƒƒO‚ªŒ»‚ê‚Ü‚·Bu–¼‘Ov‚Ì€–Ú‚É•Û‘¶‚·‚éƒfƒoƒCƒX–¼‚ð“ü—Í‚µAuƒtƒ@ƒCƒ‹–¼v‚Ì€–Ú‚É•Û‘¶æ‚̃pƒX‚ð“ü—Í‚µ‚ĉº‚³‚¢B
  3. uOKvƒ{ƒ^ƒ“‚ðƒ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

2F ƒ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‚«AuƒXƒgƒAƒhƒvƒƒV[ƒWƒƒv‚ð‰EƒNƒŠƒbƒN‚µ‚ÄuV‹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. “ü—Í‚ªÏ‚ñ‚¾‚çuOKvƒ{ƒ^ƒ“‚Ń_ƒCƒAƒƒO‚ð•Â‚¶‚ĉº‚³‚¢BƒXƒgƒAƒhˆê——‚É쬂µ‚½ƒXƒgƒAƒh‚ª•\Ž¦‚³‚ê‚ê‚άŒ÷‚Å‚·BSQL Server‘¤‚ÌÝ’è‚Í‚±‚ê‚ÅI—¹‚Å‚·B

3F ƒ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‚ð‹Lq‚µ‚ĉº‚³‚¢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‚Ì‹Lq‚ðŽÀs‚·‚é‚ÆAŠ’è‚̃fƒoƒCƒX‚ÉDBƒoƒbƒNƒAƒbƒv‚ªì¬‚³‚ê‚Ü‚·B