[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‚Ìì¬
- 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
- 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
- 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ƒƒ‚Ìì¬
- ŽŸ‚É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
- ƒ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
- “ü—Í‚ªÏ‚ñ‚¾‚çuOKvƒ{ƒ^ƒ“‚Ń_ƒCƒAƒƒO‚ð•Â‚¶‚ĉº‚³‚¢BƒXƒgƒAƒhˆê——‚É쬂µ‚½ƒXƒgƒAƒh‚ª•\Ž¦‚³‚ê‚ê‚άŒ÷‚Å‚·BSQL
Server‘¤‚ÌÝ’è‚Í‚±‚ê‚ÅI—¹‚Å‚·B
3F ƒNƒ‰ƒCƒAƒ“ƒg‘¤‚©‚çŽÀs
- 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
- ã‹L‚Ì‹Lq‚ðŽÀs‚·‚é‚ÆAŠ’è‚̃fƒoƒCƒX‚ÉDBƒoƒbƒNƒAƒbƒv‚ªì¬‚³‚ê‚Ü‚·B
|