| MSDE FunClub |
|
最終更新日 : 2000/07/22 |
|
Microsoft Data Engine FunClub
|
Since 2000.07.22
|
|
SQLServer7.0/MSDE 完全トレーニングテキスト（上巻） |
|
【第２章１４７ｐ 〜 １４９ｐ掲載】 |
-- [更新系SQL文の基礎（例題８）EX2-08.SQL]
-- SQLServer7.0 Transact-SQL言語
-- 日本技術ソフト開発 堀川 明
-- http://www.horikawa.ne.jp/msde/
--
-- これから操作する既定のデータベースを MySampleTest にします
USE MySampleTest
GO
-- ( 件処理されました)の表示を抑制する
SET NOCOUNT ON
GO
-- 既存のテーブルが存在したら、それを削除します
IF( (OBJECT_ID('TBL01') IS NOT NULL) AND
OBJECTPROPERTY( OBJECT_ID('TBL01'),'ISTABLE') = 1 )
BEGIN
DROP TABLE TBL01
END
IF( (OBJECT_ID('TBL02') IS NOT NULL) AND
OBJECTPROPERTY( OBJECT_ID('TBL02'),'ISTABLE') = 1 )
BEGIN
DROP TABLE TBL02
END
GO
-- テーブルを作成する
CREATE TABLE TBL01 (
ID INT PRIMARY KEY ,
DAT VARCHAR(40)
)
CREATE TABLE TBL02 (
ID INT PRIMARY KEY ,
DAT VARCHAR(40)
)
GO
-- データを登録します
INSERT INTO TBL01 VALUES ( 10 , 'DATA-10（削除されます）' )
INSERT INTO TBL01 VALUES ( 11 , 'DATA-11（生き残ります）' )
INSERT INTO TBL01 VALUES ( 12 , 'DATA-12（削除されます）' )
INSERT INTO TBL01 VALUES ( 13 , 'DATA-13（生き残ります）' )
INSERT INTO TBL01 VALUES ( 14 , 'DATA-14（削除されます）' )
INSERT INTO TBL02 VALUES ( 10 , '**TBL02 DATA**' )
INSERT INTO TBL02 VALUES ( 12 , '**TBL02 DATA**' )
INSERT INTO TBL02 VALUES ( 14 , '**TBL02 DATA**' )
INSERT INTO TBL02 VALUES ( 21 , 'DATA-21' )
INSERT INTO TBL02 VALUES ( 23 , 'DATA-23' )
GO
PRINT ''
PRINT '[削除前]'
SELECT * FROM TBL01
GO
--TBL01のDATフィールドを削除します
--Transact-SQL言語の拡張構文を使います
DELETE
FROM TBL01 -- レコード削除を行うテーブル名
FROM TBL01 INNER JOIN TBL02 -- 表の等結合を行って得られたレコード
ON TBL01.ID = TBL02.ID -- をTBL01から削除する
-- Transact-SQLの拡張構文です
GO
PRINT '[削除後]'
SELECT * FROM TBL01
GO
