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