博客园_EricHu's Tech Space

Q Q：80368704 E-Mail: 80368704@qq.com
本博文欢迎大家浏览和转载，但未经作者同意必须保留此段声明，且在文章页面明显位置给出原文连接，在『参考』的文章中，我会表明参考的文章来源，尊重他人版权。若您发现我侵犯了您的版权，请及时与我联系。
更多文章请看 [置顶]索引贴——（不断更新中）

本文链接

[推荐] (SqlServer)批量清理指定数据库中所有数据

2012-01-17T00:51:00Z

[推荐] (SqlServer)批量清理指定数据库中所有数据

——通过知识共享树立个人品牌。

在实际应用中，当我们准备把一个项目移交至客户手中使用时，我们需要把库中所有表先前的测试数据清空，以给客户一个干净的数据库，如果涉及的表很多，要一一的清空，不仅花费时间，还容易出错以及漏删，在这儿我提供了一个方法，可快捷有效的清空指定数据库所有表的数据。仅供参考，欢迎交流不同意见。

--Remove all data from a database

SET NOCOUNT ON
--Tables to ignore
DECLARE @IgnoreTables
        TABLE (TableName varchar(512))
INSERT INTO @IgnoreTables (TableName) VALUES ('sysdiagrams')
DECLARE @AllRelationships
        TABLE (ForeignKey varchar(512)
              ,TableName varchar(512)
              ,ColumnName varchar(512)
              ,ReferenceTableName varchar(512)
              ,ReferenceColumnName varchar(512)
              ,DeleteRule varchar(512))
INSERT INTO @AllRelationships
SELECT f.name AS ForeignKey,
OBJECT_NAME(f.parent_object_id) AS TableName,
COL_NAME(fc.parent_object_id,
fc.parent_column_id) AS ColumnName,
OBJECT_NAME (f.referenced_object_id) AS ReferenceTableName,
COL_NAME(fc.referenced_object_id,
fc.referenced_column_id) AS ReferenceColumnName,
delete_referential_action_desc as DeleteRule
FROM sys.foreign_keys AS f
INNER JOIN sys.foreign_key_columns AS fc
ON f.OBJECT_ID = fc.constraint_object_id

DECLARE @TableOwner varchar(512)
DECLARE @TableName varchar(512)
DECLARE @ForeignKey varchar(512)
DECLARE @ColumnName varchar(512)
DECLARE @ReferenceTableName varchar(512)
DECLARE @ReferenceColumnName varchar(512)
DECLARE @DeleteRule varchar(512)

PRINT('Loop through all tables and switch all constraints to have a delete rule of CASCADE')
DECLARE DataBaseTables0
CURSOR FOR
SELECT SCHEMA_NAME(t.schema_id) AS schema_name, t.name AS table_name
FROM sys.tables AS t;

OPEN DataBaseTables0;

FETCH NEXT FROM DataBaseTables0
INTO @TableOwner,@TableName;

WHILE @@FETCH_STATUS = 0
BEGIN
    IF (NOT EXISTS(SELECT TOP 1 1 FROM @IgnoreTables WHERE TableName = @TableName))
    BEGIN
        PRINT '['+@TableOwner+'].[' + @TableName + ']';

        DECLARE DataBaseTableRelationships CURSOR FOR
        SELECT ForeignKey, ColumnName, ReferenceTableName, ReferenceColumnName
        FROM @AllRelationships
        WHERE TableName = @TableName

        OPEN DataBaseTableRelationships;
        FETCH NEXT FROM DataBaseTableRelationships INTO @ForeignKey, @ColumnName, @ReferenceTableName, @ReferenceColumnName;

        IF @@FETCH_STATUS <> 0
            PRINT '=====> No Relationships' ;

        WHILE @@FETCH_STATUS = 0
        BEGIN
            PRINT '=====> switching delete rule on ' + @ForeignKey + ' to CASCADE';
            BEGIN TRANSACTION
            BEGIN TRY
                EXEC('

                ALTER TABLE ['+@TableOwner+'].[' + @TableName + ']
                 DROP CONSTRAINT '+@ForeignKey+';

                ALTER TABLE ['+@TableOwner+'].[' + @TableName + '] ADD CONSTRAINT
                '+@ForeignKey+' FOREIGN KEY
                (
                '+@ColumnName+'
                ) REFERENCES '+@ReferenceTableName+'
                (
                '+@ReferenceColumnName+'
                ) ON DELETE CASCADE;
                ');
                COMMIT TRANSACTION
            END TRY
            BEGIN CATCH
                PRINT '=====> can''t switch ' + @ForeignKey + ' to CASCADE, - ' +
                CAST(ERROR_NUMBER() AS VARCHAR) + ' - ' + ERROR_MESSAGE();
                ROLLBACK TRANSACTION
            END CATCH;

            FETCH NEXT FROM DataBaseTableRelationships INTO @ForeignKey, @ColumnName, @ReferenceTableName, @ReferenceColumnName;
        END;

        CLOSE DataBaseTableRelationships;
        DEALLOCATE DataBaseTableRelationships;

        END
        PRINT '';
        PRINT '';

        FETCH NEXT FROM DataBaseTables0
        INTO @TableOwner,@TableName;
    END
CLOSE DataBaseTables0;
DEALLOCATE DataBaseTables0;

PRINT('Loop though each table and DELETE All data from the table')

DECLARE DataBaseTables1 CURSOR FOR
SELECT SCHEMA_NAME(t.schema_id) AS schema_name, t.name AS table_name
FROM sys.tables AS t;

OPEN DataBaseTables1;

FETCH NEXT FROM DataBaseTables1
INTO @TableOwner,@TableName;

WHILE @@FETCH_STATUS = 0
BEGIN
    IF (NOT EXISTS(SELECT TOP 1 1 FROM @IgnoreTables WHERE TableName = @TableName))
    BEGIN
        PRINT '['+@TableOwner+'].[' + @TableName + ']';
        PRINT '=====> deleting data from ['+@TableOwner+'].[' + @TableName + ']';
        BEGIN TRY
            EXEC('
                 DELETE FROM ['+@TableOwner+'].[' + @TableName + ']
                 DBCC CHECKIDENT ([' + @TableName + '], RESEED, 0)
                 ');
        END TRY
        BEGIN CATCH
            PRINT '=====> can''t FROM ['+@TableOwner+'].[' + @TableName + '], - ' +
                  CAST(ERROR_NUMBER() AS VARCHAR) + ' - ' + ERROR_MESSAGE();
        END CATCH;
    END

    PRINT '';
    PRINT '';

    FETCH NEXT FROM DataBaseTables1
    INTO @TableOwner,@TableName;
END
CLOSE DataBaseTables1;
DEALLOCATE DataBaseTables1;

PRINT('Loop through all tables and switch all constraints to have a delete rule they had at the beggining of the task')

DECLARE DataBaseTables2 CURSOR FOR
SELECT SCHEMA_NAME(t.schema_id) AS schema_name, t.name AS table_name
FROM sys.tables AS t;
OPEN DataBaseTables2;

FETCH NEXT FROM DataBaseTables2
INTO @TableOwner,@TableName;

WHILE @@FETCH_STATUS = 0
BEGIN

    IF (NOT EXISTS(SELECT TOP 1 1 FROM @IgnoreTables WHERE TableName = @TableName))
    BEGIN
    PRINT '['+@TableOwner+'].[' + @TableName + ']';

    DECLARE DataBaseTableRelationships CURSOR FOR
    SELECT ForeignKey, ColumnName, ReferenceTableName, ReferenceColumnName, DeleteRule
    FROM @AllRelationships
    WHERE TableName = @TableName

    OPEN DataBaseTableRelationships;
    FETCH NEXT FROM DataBaseTableRelationships INTO @ForeignKey, @ColumnName, @ReferenceTableName, @ReferenceColumnName, @DeleteRule;

    IF @@FETCH_STATUS <> 0
    PRINT '=====> No Relationships' ;

    WHILE @@FETCH_STATUS = 0
    BEGIN
        DECLARE @switchBackTo varchar(50) =
        CASE
            WHEN @DeleteRule = 'NO_ACTION' THEN 'NO ACTION'
            WHEN @DeleteRule = 'CASCADE' THEN 'CASCADE'
            WHEN @DeleteRule = 'SET_NULL' THEN 'SET NULL'
            WHEN @DeleteRule = 'SET_DEFAULT' THEN 'SET DEFAULT'
        END

        PRINT '=====> switching delete rule on ' + @ForeignKey + ' to ' + @switchBackTo;

        BEGIN TRANSACTION
        BEGIN TRY
            EXEC('

            ALTER TABLE ['+@TableOwner+'].[' + @TableName + ']
            DROP CONSTRAINT '+@ForeignKey+';

            ALTER TABLE ['+@TableOwner+'].[' + @TableName + '] ADD CONSTRAINT
            '+@ForeignKey+' FOREIGN KEY
            (
            '+@ColumnName+'
            ) REFERENCES '+@ReferenceTableName+'
            (
            '+@ReferenceColumnName+'
            ) ON DELETE '+@switchBackTo+'
            ');

            COMMIT TRANSACTION
        END TRY
        BEGIN CATCH
            PRINT '=====> can''t change '+@ForeignKey + ' back to '+ @switchBackTo +', - ' +
            CAST(ERROR_NUMBER() AS VARCHAR) + ' - ' + ERROR_MESSAGE();
            ROLLBACK TRANSACTION
        END CATCH;

        FETCH NEXT FROM DataBaseTableRelationships
        INTO @ForeignKey, @ColumnName, @ReferenceTableName, @ReferenceColumnName, @DeleteRule;
    END;

    CLOSE DataBaseTableRelationships;
    DEALLOCATE DataBaseTableRelationships;

    END
    PRINT '';
    PRINT '';

    FETCH NEXT FROM DataBaseTables2
    INTO @TableOwner,@TableName;
END
CLOSE DataBaseTables2;

DEALLOCATE DataBaseTables2;

原创作品，转贴请注明作者和出处，留此信息。

------------------------------------------------

cnBlobs:http://www.cnblogs.com/huyong/
CSDN：http://blog.csdn.net/chinahuyong

作者：EricHu（DB、C\S、B\S、WebService、WCF、PM等）
出处：http://www.cnblogs.com/huyong/

本文链接

[推荐] (SqlServer)分离所有用户数据库

2012-01-16T06:28:00Z

[推荐] (SqlServer)分离所有用户数据库

——通过知识共享树立个人品牌。

在实际应用中，有时我们需要一次性分离所有用户数据库，下面给出代码，供大家参考。

USE [master]
GO
IF EXISTS ( SELECT *
FROM sys.objects
WHERE [object_id] = OBJECT_ID(N'[dbo].[spDetachAllUserDatabases]')
AND type IN ( N'P', N'PC' ) )
DROP PROCEDURE [dbo].[spDetachAllUserDatabases]
GO

CREATE PROCEDURE [dbo].[spDetachAllUserDatabases]
AS
BEGIN
     --Declare Variables
     DECLARE @DatabaseName VARCHAR(100)
     DECLARE @MinDatabaseID INT
     DECLARE @MaxDatabaseID INT
     DECLARE @SQL VARCHAR(4000)
     --Check for temporary table and drop it if it exists
     IF OBJECT_ID('tempDB.dbo.#Database') IS NOT NULL
     DROP TABLE [#Database];

     --Create temporary table
     CREATE TABLE #Database
     (
     ID INT IDENTITY(1, 1),
     DatabaseName VARCHAR(100)
     )

     --Check for existing user databases
     IF EXISTS ( SELECT name
     FROM sys.databases
     WHERE database_id > 4
     AND name NOT IN ( 'SQLDBA', 'ReportServer',
     'ReportServerTempDB',
     'distribution' ) )
     BEGIN
         --Insert all database names into a temporary table
         INSERT INTO #Database ( DatabaseName )
         SELECT name
         FROM sys.databases
         WHERE database_id > 4
         AND name NOT IN ( 'SQLDBA', 'ReportServer',
         'ReportServerTempDB',
         'distribution' )

         --Set Variables for the detach database loop
         SELECT @MinDatabaseID = MIN(ID),
         @MaxDatabaseID = MAX(ID)
         FROM #Database

         --Begin loop to detach databases
         WHILE @MinDatabaseID <= @MaxDatabaseID
         BEGIN

         --Get DatabaseName
         SELECT @DatabaseName = DatabaseName
         FROM #Database
         WHERE ID = @MinDatabaseID

         --Build Detach Database Command
         SET @SQL = 'EXEC sp_detach_db ' + '''' + @DatabaseName
         + '''' + ';'

         --Try Catch block to execute SQL and handle errors
         BEGIN TRY

         --Detach Database
         EXEC ( @SQL
         )
         PRINT 'Detached ' + @DatabaseName
         END TRY
         BEGIN CATCH
         SELECT @DatabaseName,
         message_id,
         severity,
         [text],
         @SQL
         FROM sys.messages
         WHERE message_id = @@ERROR
         AND language_id = 1033 --British English
         END CATCH

         --Get the next DatabaseName ID
         SET @MinDatabaseID = @MinDatabaseID + 1

         --End Loop
         END
     END
END

GO

原创作品，转贴请注明作者和出处，留此信息。

------------------------------------------------

cnBlobs:http://www.cnblogs.com/huyong/
CSDN：http://blog.csdn.net/chinahuyong

作者：EricHu（DB、C\S、B\S、WebService、WCF、PM等）
出处：http://www.cnblogs.com/huyong/

本文链接

[推荐](T-SQL) 得到一个给定用户使用了的权限脚本

2012-01-13T08:46:00Z

[推荐] 得到一个给定用户使用了的权限脚本

——通过知识共享树立个人品牌。

得到一个给定用户使用了的权限脚本，直接上代码，自己研究。

SET ANSI_NULLS ON

GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[p_user_permissions_script_get]
-----------------------------------------------------------
-- OBJECT NAME :dbo.p_user_permissions_script_get
-- AUTHOR: EricHu
-- DATE: 01/05/2012
-- INPUT PARAMETERS:
    @userName VARCHAR(500)
--
-- OUTPUT PARAMETERS: none
-- DEPENDENCIES: none
-- DESCRIPTION: Used to script out permissions for a given user
-- MODIFICATION HISTORY:
-------------------------------------------------------------
AS

SET NOCOUNT ON

DECLARE @DatabaseUserName [SYSNAME];

SET @DatabaseUserName = @userName;

DECLARE @errStatement   VARCHAR(1000),
        @msgStatement   VARCHAR(1000),
        @DatabaseUserID SMALLINT,
        @ServerUserName SYSNAME,
        @RoleName       VARCHAR(1000),
        @ObjectID       INT,
        @ObjectName     VARCHAR(1000),
        @StateDesc       VARCHAR(1000),
        @permissionName VARCHAR(1000)




SELECT @DatabaseUserID = su.[uid],
       @ServerUserName = sl.[loginname]
FROM   dbo.[sysusers] su
       INNER JOIN [master].dbo.[syslogins] sl
         ON su.[sid] = sl.[sid]
WHERE  su.[name] = @DatabaseUserName

IF @DatabaseUserID IS NULL
  BEGIN
      SET @errStatement = 'User ' + @DatabaseUserName + ' does not exist in ' + DB_NAME()
                        + CHAR(13) + 'Please provide the name of a current user in ' + DB_NAME()
                        + ' you wish to script.'

      RAISERROR(@errStatement,
                16,
                1)
  END
ELSE
  BEGIN
      SET @msgStatement = '--Security creation script for user ' + @ServerUserName + CHAR(13)
                        + '--Created At: ' + CONVERT(VARCHAR, GETDATE(), 100)
                        + REPLACE(CONVERT(VARCHAR, GETDATE(), 108), ':', '') + CHAR(13)
                        + '--Created By: ' + SUSER_NAME() + CHAR(13) + '--Add User To Database'
                        + CHAR(13) + 'USE [' + DB_NAME() + ']' + CHAR(13)
                        + 'EXEC [sp_grantdbaccess]' + CHAR(13) + CHAR(9)
                        + '@loginame = ''' + @ServerUserName + ''',' + CHAR(13) + CHAR(9)
                        + '@name_in_db = ''' + @DatabaseUserName + '''' + ';'+ CHAR(13) + 'GO'
                        + CHAR(13) + '--Add User To Roles'

      PRINT @msgStatement

      DECLARE _sysusers CURSOR LOCAL FORWARD_ONLY READ_ONLY FOR
        SELECT [name]
        FROM   [dbo].[sysusers]
        WHERE  [uid] IN (SELECT [groupuid]
                         FROM   [dbo].[sysmembers]
                         WHERE  [memberuid] = @DatabaseUserID)

      OPEN _sysusers

      FETCH NEXT FROM _sysusers INTO @RoleName

      WHILE @@FETCH_STATUS = 0
        BEGIN
            SET @msgStatement = 'EXEC [sp_addrolemember]' + CHAR(13) + CHAR(9) + '@rolename = '''
                              + @RoleName + ''',' + CHAR(13) + CHAR(9) + '@membername = '''
                              + @DatabaseUserName + ''''  + ';' ;

            PRINT @msgStatement

            FETCH NEXT FROM _sysusers INTO @RoleName
        END


        CLOSE _sysusers;

        DEALLOCATE _sysusers;

       --Database level perms;

       PRINT '--Set Database level Permissions';
       DECLARE _databaselevelperms CURSOR LOCAL FORWARD_ONLY READ_ONLY FOR
        SELECT
             sdp.state_desc,
             sdp.permission_name
        FROM
            sys.database_permissions sdp WITH(NOLOCK)

            JOIN sysusers  su WITH(NOLOCK)
                ON su.uid = sdp.grantee_principal_id

        WHERE
            su.name = @userName
            AND sdp.class_desc = 'DATABASE';


      OPEN _databaselevelperms;

      FETCH NEXT FROM _databaselevelperms INTO @StateDesc, @PermissionName;

      WHILE @@FETCH_STATUS = 0
      BEGIN

        PRINT @StateDesc  + CHAR(13) + CHAR(9) + @PermissionName  + CHAR(13) + CHAR(9)
              + 'TO ' + @userName + ';';

        FETCH NEXT FROM _databaselevelperms INTO @StateDesc, @PermissionName

      END

      CLOSE _databaselevelperms;

      DEALLOCATE _databaselevelperms;

      SET @msgStatement = 'GO' + CHAR(13) + '--Set Object Specific Permissions'

      PRINT @msgStatement;

      DECLARE _sysobjects CURSOR LOCAL FORWARD_ONLY READ_ONLY FOR
        SELECT DISTINCT( [sysobjects].[id] ),
                       '[' + USER_NAME([sysobjects].[uid]) + '].[' + [sysobjects].[name] + ']'
        FROM   [dbo].[sysprotects]
               INNER JOIN [dbo].[sysobjects]
                 ON [sysprotects].[id] = [sysobjects].[id]
        WHERE  [sysprotects].[uid] = @DatabaseUserID;

      OPEN _sysobjects;

      FETCH NEXT FROM _sysobjects INTO @ObjectID, @ObjectName;

      WHILE @@FETCH_STATUS = 0
        BEGIN
            SET @msgStatement = '';

            IF EXISTS(SELECT 1
                      FROM   [dbo].[sysprotects]
                      WHERE  [id] = @ObjectID
                             AND [uid] = @DatabaseUserID
                             AND [action] = 193
                             AND [protecttype] = 205)
              SET @msgStatement = @msgStatement + 'SELECT,';

            IF EXISTS(SELECT 1
                      FROM   [dbo].[sysprotects]
                      WHERE  [id] = @ObjectID
                             AND [uid] = @DatabaseUserID
                             AND [action] = 195
                             AND [protecttype] = 205)
              SET @msgStatement = @msgStatement + 'INSERT,';

            IF EXISTS(SELECT 1
                      FROM   [dbo].[sysprotects]
                      WHERE  [id] = @ObjectID
                             AND [uid] = @DatabaseUserID
                             AND [action] = 197
                             AND [protecttype] = 205)
              SET @msgStatement = @msgStatement + 'UPDATE,';

            IF EXISTS(SELECT 1
                      FROM   [dbo].[sysprotects]
                      WHERE  [id] = @ObjectID
                             AND [uid] = @DatabaseUserID
                             AND [action] = 196
                             AND [protecttype] = 205)
              SET @msgStatement = @msgStatement + 'DELETE,';

            IF EXISTS(SELECT 1
                      FROM   [dbo].[sysprotects]
                      WHERE  [id] = @ObjectID
                             AND [uid] = @DatabaseUserID
                             AND [action] = 224
                             AND [protecttype] = 205)
              SET @msgStatement = @msgStatement + 'EXECUTE,';

            IF EXISTS(SELECT 1
                      FROM   [dbo].[sysprotects]
                      WHERE  [id] = @ObjectID
                             AND [uid] = @DatabaseUserID
                             AND [action] = 26
                             AND [protecttype] = 205)
              SET @msgStatement = @msgStatement + 'REFERENCES,';

            IF LEN(@msgStatement) > 0
              BEGIN
                  IF RIGHT(@msgStatement, 1) = ','
                    SET @msgStatement = LEFT(@msgStatement, LEN(@msgStatement) - 1);

                  SET @msgStatement = 'GRANT' + CHAR(13) + CHAR(9) + @msgStatement + CHAR(13)
                                    + CHAR(9) + 'ON ' + @ObjectName + CHAR(13) + CHAR(9) + 'TO '
                                    + @DatabaseUserName + ';' ;

                  PRINT @msgStatement;
              END

            SET @msgStatement = '';

            IF EXISTS(SELECT 1
                      FROM   [dbo].[sysprotects]
                      WHERE  [id] = @ObjectID
                             AND [uid] = @DatabaseUserID
                             AND [action] = 193
                             AND [protecttype] = 206)
              SET @msgStatement = @msgStatement + 'SELECT,'

            IF EXISTS(SELECT 1
                      FROM   [dbo].[sysprotects]
                      WHERE  [id] = @ObjectID
                             AND [uid] = @DatabaseUserID
                             AND [action] = 195
                             AND [protecttype] = 206)
              SET @msgStatement = @msgStatement + 'INSERT,';

            IF EXISTS(SELECT 1
                      FROM   [dbo].[sysprotects]
                      WHERE  [id] = @ObjectID
                             AND [uid] = @DatabaseUserID
                             AND [action] = 197
                             AND [protecttype] = 206)
              SET @msgStatement = @msgStatement + 'UPDATE,';

            IF EXISTS(SELECT 1
                      FROM   [dbo].[sysprotects]
                      WHERE  [id] = @ObjectID
                             AND [uid] = @DatabaseUserID
                             AND [action] = 196
                             AND [protecttype] = 206)
              SET @msgStatement = @msgStatement + 'DELETE,'

            IF EXISTS(SELECT 1
                      FROM   [dbo].[sysprotects]
                      WHERE  [id] = @ObjectID
                             AND [uid] = @DatabaseUserID
                             AND [action] = 224
                             AND [protecttype] = 206)
              SET @msgStatement = @msgStatement + 'EXECUTE,';

            IF EXISTS(SELECT *
                      FROM   [dbo].[sysprotects]
                      WHERE  [id] = @ObjectID
                             AND [uid] = @DatabaseUserID
                             AND [action] = 26
                             AND [protecttype] = 206)
              SET @msgStatement = @msgStatement + 'REFERENCES,';

            IF LEN(@msgStatement) > 0
              BEGIN
                  IF RIGHT(@msgStatement, 1) = ','
                    SET @msgStatement = LEFT(@msgStatement, LEN(@msgStatement) - 1)

                  SET @msgStatement = 'DENY' + CHAR(13) + CHAR(9) + @msgStatement + CHAR(13)
                                    + CHAR(9) + 'ON ' + @ObjectName + CHAR(13) + CHAR(9) + 'TO '
                                    + @DatabaseUserName + ';' ;

                  PRINT @msgStatement;
              END

            FETCH NEXT FROM _sysobjects INTO @ObjectID, @ObjectName;
        END

      CLOSE _sysobjects;

      DEALLOCATE _sysobjects;



      PRINT 'GO'
  END

SET NOCOUNT OFF

RETURN 0

运行结果实例如下：

EXEC [p_user_permissions_script_get] 'dbo'

--Security creation script for user sa
--Created At: 01 13 2012  4:37PM163729
--Created By: sa
--Add User To Database
USE [DB_TEST]
EXEC [sp_grantdbaccess]
    @loginame = 'sa',
    @name_in_db = 'dbo';
GO
--Add User To Roles
EXEC [sp_addrolemember]
    @rolename = 'db_owner',
    @membername = 'dbo';
--Set Database level Permissions
GRANT
    CONNECT
    TO dbo;
GO
--Set Object Specific Permissions
GO

原创作品，转贴请注明作者和出处，留此信息。

------------------------------------------------

cnBlobs:http://www.cnblogs.com/huyong/
CSDN：http://blog.csdn.net/chinahuyong

作者：EricHu（DB、C\S、B\S、WebService、WCF、PM等）
出处：http://www.cnblogs.com/huyong/

本文链接

[提供源码下载]在大型软件中用Word做报表：书签的应用（提供一种思路）

2011-08-24T02:20:00Z

[提供源码下载]在大型软件中用Word做报表：

书签的应用（提供一种思路）

——通过知识共享树立个人品牌。

报表基本上在每一个项目中占有很大的比例，做报表也是我们开发人员必须过的坎，现在市面上各种类型的报表，我们到底应该如何选择呢？每一种报表都有他自己优秀的一面，我在项目开发中，一般用Grid++Report做报表，对于复杂的，量大的也用Excel和Word来做，大家也可以分享一下你们在项目中用到的报表软件！

现在有这样一个需求，比如有一个几十页的合同（合同内容每年会有所不同），合同中要填的数据（如：甲方、乙方什么的）从数据库中得到，各个页都有可能填写相关数据，最后生成合同打印出来，对于这样的需求，我想要用水晶报表等来做相当麻烦。

本文给大家提供一种思路，就是用Word来做这种类型的报表， 具体来说，就是用“书签”定位到Word中要填数据的地方，然后把数据填上去，再把word导出来，灵活应用，以不变应万变。

下面来看具体操作。

步骤一：准备好Word合同模板，在需要填写数据的地方插入书签（不明白的，可以下载源码后自己慢慢看）后保存应模板文件，如下图：

步骤二：新建一个WinForm项目，添加Word的Dll引用，如下图：

步骤三：编写代码，把相关数据写入到书签中，代码如下：

        private void btnWriteDataToWord_Click(object sender, EventArgs e)
        {
            object missingValue = System.Reflection.Missing.Value;
            object fileName = System.Windows.Forms.Application.StartupPath + "\\Test.doc";
            if (System.IO.File.Exists(fileName as string))
            {
                object myTrue = false;
                Microsoft.Office.Interop.Word.Application oWord = new Microsoft.Office.Interop.Word.ApplicationClass();
                Microsoft.Office.Interop.Word.Document oDoc;
                oDoc = oWord.Documents.Open(ref fileName, ref missingValue, ref myTrue,
                    ref missingValue, ref missingValue, ref missingValue,
                    ref missingValue, ref missingValue, ref missingValue,
                    ref missingValue, ref missingValue, ref missingValue,
                    ref missingValue, ref missingValue, ref missingValue,
                    ref missingValue);

                MessageBox.Show(oDoc.Bookmarks.Count.ToString()); //得到word中的所有书签个数

                //写入Word文档
                object[] oBookMarks = { "出让方名称", "出让方通讯地址", "出让方邮政编码" };//Word中的书签
                string[] sValues = { "测试出让方名称", "测试出让方通讯地址43号", "测试出让方邮政编码432123" };   //给书签的值
                for (int iTemp = 0; iTemp < oBookMarks.Length; iTemp++)
                {

                    Microsoft.Office.Interop.Word.Range tmpRng = oWord.ActiveDocument.Bookmarks.get_Item(ref oBookMarks[iTemp]).Range;
                    tmpRng.Text = sValues[iTemp].ToString(); //通过tmpRng.Text还可以得到标签处的数据,在这儿是设置它的数据
                    object oRng = tmpRng;
                    oDoc.Bookmarks.Add(oBookMarks[iTemp].ToString(), ref oRng);

                }

                object bSaveChange = true;

                //如果"D:\Word"目录不存在,就创建
                if (!Directory.Exists("D:\\Word"))
                {
                    Directory.CreateDirectory("D:\\Word"); //创建目录
                }

                string guid = System.Guid.NewGuid().ToString();
                object sFileName = @"D:/Word/出让合同" + guid + ".doc";

                //把写好的合同另存为
                if (oDoc.SaveFormat == (int)Microsoft.Office.Interop.Word.WdSaveFormat.wdFormatDocument)
                {
                    oDoc.SaveAs(ref sFileName, ref missingValue, ref myTrue,
                         ref missingValue, ref missingValue, ref missingValue,
                         ref missingValue, ref missingValue, ref missingValue,
                         ref missingValue, ref missingValue, ref missingValue,
                         ref missingValue, ref missingValue, ref missingValue,
                         ref missingValue);
                 }
                oDoc.Close(ref bSaveChange, ref missingValue, ref missingValue);
                oWord.Quit(ref bSaveChange, ref missingValue, ref missingValue);
            }
            else
            {
                MessageBox.Show("合同模板不存在！");
                return;
            }
            //object tmp = "msr_01";
            //Word.Range tmpRng = oWord.ActiveDocument.Bookmarks.get_Item(ref tmp).Range;
            //tmpRng.Text = "China";
            ////由于附值以后书签自动消除，为了以后便于修改，需要把书签再自动生成一个
            //object oRng = tmpRng;
            //oDoc.Bookmarks.Add(tmp.ToString(), ref oRng);
            //object bSaveChange = true;
            //oDoc.Close(ref bSaveChange, ref missingValue, ref missingValue);
        }
    }

步骤四：查看效果，如下图所示：

源码下载(下载前请评论与推荐下,感谢)

本文只是提供一种解决问题的思路，欢迎大家拍砖，也分享一下你们的经验。

原创作品，转贴请注明作者和出处，留此信息。

------------------------------------------------

cnBlobs:http://www.cnblogs.com/huyong/
CSDN：http://blog.csdn.net/chinahuyong

作者：EricHu（DB、C\S、B\S、WebService、WCF、PM等）
出处：http://www.cnblogs.com/huyong/

本文链接

记大型商业软件<<国土档案管理信息系统>>之系统简介

2011-08-22T02:39:00Z

记大型商业软件

<<国土档案管理信息系统>>

之系统简介

——通过知识共享树立个人品牌。

国土档案管理信息系统简介

档案是人们从事社会实践活动的真实记录和原始凭证，是维护历史，继承历史和延续历史不可少的基础条件。产生于土地管理事业中的《国土资源局档案管理信息系统》翔实、系统地记录了土地管理活动的开始，过程和结果，为后人提供参阅、研究、开拓、创新的条件，避免重复劳动，不重蹈过去的失误，从而加速国土管理事业的发展。推进国土档案管理的科学化、规范化、现代化。

系统简介

国土档案是政府职能部门依照法律规定，代表国家对土地所有权、使用权及其相关权利进行登记、确认和规范的管理活动中形成的，反映权利人、土地自然状况及土地使用状况，具有法律凭证价值，应当归档保存的各种载体的文件材料。国土资源档案信息量大，种类繁多，既有综合类档案，又有地籍类、用地类、监察类、交易类、矿业权类等十余种类型。在新的形势下，国土档案工作只有紧贴国土中心工作，转变传统观念，拓宽服务领域、延伸服务范围，创新服务机制，研究把握档案管理工作的规律，最大限度地开发挖掘档案信息资源，才能充分发挥国土档案独特的服务功能，使之真正成为增加国土工作发展后劲的基础业务工作。

该国土档案管理信息系统不仅在技术上符合国家关于档案信息化建设的有关要求，在标准化程度上符合行业档案管理规范的专业性要求，而且还能与局现有其他业务系统进行整合，在档案和业务数据间建立互换和抽取机制，达到信息的顺利交换，便于信息的一致性获取，减少重复劳动工作量。同时具备纸质和相片档案的数字化要求。

整个系统包括九个大的功能模块，六十多个小的功能模块。大的功能模块分别是：档案著录、档案数据检查、提供利用、档案查借阅登记、保管移交、报表打印、汇总统计、数据管理、系统维护。操作方便，安全可靠，运行效率高。

开发环境

本系统采用Client/Server（客户机/服务器）的三层体系架构模式，系统运行于Windows Server 2003，数据库采用SQL SERVER2005，用.NET平台开发完成。

档案管理流程

系统功能结构图

详图如下：

© 2011 EricHu
原创作品，转贴请注明作者和出处，留此信息。

------------------------------------------------
cnBlobs:http://www.cnblogs.com/huyong/
CSDN：http://blog.csdn.net/chinahuyong
作者：EricHu（DB、C\S、B\S、WebService、WCF、PM等）
出处：http://www.cnblogs.com/huyong/
Q Q：80368704 E-Mail: 80368704@qq.com
本博文欢迎大家浏览和转载，但未经作者同意必须保留此段声明，且在文章页面明显位置给出原文连接，在『参考』的文章中，我会表明参考的文章来源，尊重他人版权。若您发现我侵犯了您的版权，请及时与我联系。

更多文章请看 [置顶]索引贴——（不断更新中）

本文链接

[推荐推荐][提供下载]ORACLE SQL：经典查询练手系列文章收尾(目录篇)

2011-06-29T00:56:00Z

[推荐推荐][提供下载]ORACLE SQL：

经典查询练手系列文章收尾(目录篇)

——通过知识共享树立个人品牌。

通过近一个月的努力，《经典查询练手系列》也快告一段落，但并不代表结束，以后还会增加！我很荣幸本系列每一篇文章都上了评论或推荐头条，这离不开大家的支持，这也促蹴了我写博文的动力，在此真心的感谢大家！

在每一篇文章开始前，我都在想如何才能写得更好，才能让需要的人看了后有所收获，以至让我在写作上更严格的要求自己。当然，博客园中不乏高手如云，我写的东西也受到了某些人的批判，我不怪他们，相反，这更是我进步与努力的动力，说明我做得还不够好，还需更加努力，在此对反对与批判我的人表示忠心的感谢！

每一篇文章都是作者的辛勤与汗水，很多朋友经常问我，写博客有什么意义，又没人发工资，又花费无比多的时间。我也说不清楚，只觉得我的文章会有很多人看，能给需要的人带来帮助，我就感觉很欣慰，当一个求知者叫你一声老师的时候，你写作的意义已经体现。

经典查询练手暂时发布五篇，欢迎大家继续补充！

所有文章链接地址如下（后附电子版与建库脚本下载）：

[推荐]ORACLE SQL：经典查询练手第一篇
[推荐]ORACLE SQL：经典查询练手第二篇
[推荐]ORACLE SQL：经典查询练手第三篇
[推荐]ORACLE SQL：经典查询练手第四篇
[推荐]ORACLE SQL：经典查询练手第五篇

申明：

各位博友或网友：下载前请先推荐与评论下，这样我才有动力写下面的文章呀，谢谢！

电子版下载地址（下载前请先评论与推荐，仅几秒时间，尊重作者的辛勤劳动，感谢！）：

ORACLE SQL：经典查询练手系列文章汇总

建库脚本与测试数据

原创作品，转贴请注明作者和出处，留此信息。

------------------------------------------------

cnBlobs:http://www.cnblogs.com/huyong/
CSDN：http://blog.csdn.net/chinahuyong

分享到：更多

QQ 群交流：190401986（专注数据库DB、欢迎加入）

作者：EricHu（DB、C\S、B\S、WebService、WCF、PM等）
出处：http://www.cnblogs.com/huyong/

本文链接

[推荐]ORACLE SQL：经典查询练手第五篇(不懂装懂，永世饭桶！)

2011-06-27T01:40:00Z

[推荐]ORACLE SQL：

经典查询练手第五篇(不懂装懂，永世饭桶！)

——通过知识共享树立个人品牌。

本文与大家共同讨论与分享ORACLE SQL的一些常用经典查询，欢迎大家补充，同时你认为有那些经典的也可分享出来。在本文中，对每一个问题，你要是认为有什么更好的解决方法也欢迎你及时提出。交流与分享才能共同进步嘛，感谢！

接上四篇:

[推荐]ORACLE SQL：经典查询练手第一篇

[推荐]ORACLE SQL：经典查询练手第二篇

[推荐]ORACLE SQL：经典查询练手第三篇

[推荐]ORACLE SQL：经典查询练手第四篇

本篇数据查询属于复杂业务，难度比较高，请继续努力，通过我为大家设立的这个系列，循序渐进，只要你对每一篇，每一个试题都实践测试，认真练习。我相信你对常用、经典的、复杂的SQL已能熟能生巧，信手拈来！

本文使用ORACLE自带的人力资源（HR）实例数据，本文所用表结构如下：

表名：REGIONS

序号	列名	数据类型	长度	小数位	标识	主键	允许空	默认值	说明
1	REGION_ID	NUMBER				是	否
2	REGION_NAME	VARCHAR2	25				是

表名：COUNTRIES

序号	列名	数据类型	长度	小数位	标识	主键	允许空	默认值	说明
1	COUNTRY_ID	CHAR	2			是	否
2	COUNTRY_NAME	VARCHAR2	40				是
3	REGION_ID	NUMBER					是

表名：LOCATIONS

序号	列名	数据类型	长度	小数位	标识	主键	允许空	默认值	说明
1	LOCATION_ID	NUMBER	4	0		是	否
2	STREET_ADDRESS	VARCHAR2	40				是
3	POSTAL_CODE	VARCHAR2	12				是
4	CITY	VARCHAR2	30				否
5	STATE_PROVINCE	VARCHAR2	25				是
6	COUNTRY_ID	CHAR	2				是

表名：DEPARTMENTS

序号	列名	数据类型	长度	小数位	标识	主键	允许空	默认值	说明
1	DEPARTMENT_ID	NUMBER	4	0		是	否
2	DEPARTMENT_NAME	VARCHAR2	30				否
3	MANAGER_ID	NUMBER	6	0			是
4	LOCATION_ID	NUMBER	4	0			是

表名：JOBS

序号	列名	数据类型	长度	小数位	标识	主键	允许空	默认值	说明
1	JOB_ID	VARCHAR2	10			是	否
2	JOB_TITLE	VARCHAR2	35				否
3	MIN_SALARY	NUMBER	6	0			是
4	MAX_SALARY	NUMBER	6	0			是

表名：EMPLOYEES

序号	列名	数据类型	长度	小数位	标识	主键	允许空	默认值	说明
1	EMPLOYEE_ID	NUMBER	6	0		是	否
2	FIRST_NAME	VARCHAR2	20				是
3	LAST_NAME	VARCHAR2	25				否
4	EMAIL	VARCHAR2	25				否
5	PHONE_NUMBER	VARCHAR2	20				是
6	HIRE_DATE	DATE	7				否
7	JOB_ID	VARCHAR2	10				否
8	SALARY	NUMBER	8	2			是
9	COMMISSION_PCT	NUMBER	2	2			是
10	MANAGER_ID	NUMBER	6	0			是
11	DEPARTMENT_ID	NUMBER	4	0			是

ER图：

用SQL完成以下问题列表：

1. 哪些部门的人数比90 号部门的人数多。
2. Den(FIRST_NAME)、Raphaely(LAST_NAME)的领导是谁（非关联子查询）。
3. Den(FIRST_NAME)、Raphaely(LAST_NAME) 领导谁（非关联子查询）。
4. Den(FIRST_NAME)、Raphaely(LAST_NAME) 的领导是谁（关联子查询）。
5. Den(FIRST_NAME)、Raphaely(LAST_NAME) 领导谁（关联子查询）。
6. 列出在同一部门共事，入职日期晚但工资高于其他同事的员工：名字、工资、入职日期
（关联子查询）。
7. 哪些员工跟Den(FIRST_NAME)、Raphaely(LAST_NAME)不在同一个部门（非关联子查询）。
8. 哪些员工跟Den(FIRST_NAME)、Raphaely(LAST_NAME)不在同一个部门（关联子查询）。
9. Finance部门有哪些职位（非关联子查询）。
10. Finance部门有哪些职位（关联子查询）。

各试题解答如下（欢迎大家指出不同的方法或建议！）：

/*--------1、哪些部门的人数比90号部门的人数多。---------*/

SQL> SELECT DEPARTMENT_ID,COUNT(*) FROM EMPLOYEES
   2  GROUP BY DEPARTMENT_ID
   3  HAVING COUNT(*) >
   4         (SELECT COUNT(*) FROM EMPLOYEES
   5          WHERE DEPARTMENT_ID = 90
   6         );

DEPARTMENT_ID   COUNT(*)
------------- ----------
           30          6
           50         45
           60          5
           80         34
          100          6

/*-------2、Den(FIRST_NAME)、Raphaely(LAST_NAME)的
领导是谁（非关联子查询）。---------*/

SQL> SELECT FIRST_NAME || ' ' || LAST_NAME
   2  FROM EMPLOYEES
   3  WHERE EMPLOYEE_ID =
   4        (SELECT MANAGER_ID FROM EMPLOYEES
   5         WHERE FIRST_NAME = 'Den'
   6         AND   LAST_NAME  = 'Raphaely'
   7        );

FIRST_NAME||''||LAST_NAME
----------------------------------------------
Steven King

/*-------3、Den(FIRST_NAME)、Raphaely(LAST_NAME)领导谁（非关联子查询）。---------*/

SQL> SELECT FIRST_NAME || ' ' || LAST_NAME
   2  FROM EMPLOYEES
   3  WHERE MANAGER_ID IN
   4        (SELECT EMPLOYEE_ID FROM EMPLOYEES
   5         WHERE FIRST_NAME = 'Den'
   6         AND   LAST_NAME  = 'Raphaely'
   7        );

FIRST_NAME||''||LAST_NAME
----------------------------------------------
Alexander Khoo
Shelli Baida
Sigal Tobias
Guy Himuro
Karen Colmenares

--或者

SQL> SELECT FIRST_NAME || ' ' || LAST_NAME
   2  FROM EMPLOYEES
   3  WHERE MANAGER_ID =
   4        (SELECT EMPLOYEE_ID FROM EMPLOYEES
   5         WHERE FIRST_NAME = 'Den'
   6         AND   LAST_NAME  = 'Raphaely'
   7        );

FIRST_NAME||''||LAST_NAME
----------------------------------------------
Alexander Khoo
Shelli Baida
Sigal Tobias
Guy Himuro
Karen Colmenares

/*-------4、Den(FIRST_NAME)、Raphaely(LAST_NAME)的领导是谁（关联子查询）。---------*/

SQL> SELECT FIRST_NAME || ' ' || LAST_NAME
   2  FROM EMPLOYEES EMP1
   3  WHERE EXISTS (
   4        SELECT 1 FROM EMPLOYEES EMP2
   5        WHERE FIRST_NAME = 'Den'
   6        AND LAST_NAME  = 'Raphaely'
   7        AND EMP2.MANAGER_ID = EMP1.EMPLOYEE_ID);

FIRST_NAME||''||LAST_NAME
----------------------------------------------
Steven King

/*-------5、Den(FIRST_NAME)、Raphaely(LAST_NAME)领导谁（关联子查询）。---------*/

SQL> SELECT FIRST_NAME || ' ' || LAST_NAME
   2  FROM EMPLOYEES EMP1
   3  WHERE EXISTS (
   4        SELECT 1 FROM EMPLOYEES EMP2
   5        WHERE FIRST_NAME = 'Den'
   6        AND LAST_NAME  = 'Raphaely'
   7        AND EMP2.EMPLOYEE_ID = EMP1.MANAGER_ID);

FIRST_NAME||''||LAST_NAME
----------------------------------------------
Alexander Khoo
Shelli Baida
Sigal Tobias
Guy Himuro
Karen Colmenares

/*-------6、列出在同一部门共事，入职日期晚但工资高于其他同事的员工：
名字、工资、入职日期（关联子查询）。---------*/

SQL> SELECT FIRST_NAME || ' ' || LAST_NAME AS 姓名,
   2          SALARY AS 工资,HIRE_DATE AS 入职日期
   3  FROM EMPLOYEES EMP1
   4  WHERE EXISTS (
   5        SELECT 1 FROM EMPLOYEES EMP2
   6        WHERE EMP2.DEPARTMENT_ID = EMP1.DEPARTMENT_ID
  7        AND   EMP1.HIRE_DATE > EMP2.HIRE_DATE
   8        AND   EMP1.SALARY    > EMP2.SALARY
  9        );

姓名                                                   工资入职日期
---------------------------------------------- ---------- -----------
Nancy Greenberg                                  12000.00 1994-8-17
Jose Manuel Urman                                 7800.00 1998-3-7
Shelli Baida                                      2900.00 1997-12-24
Adam Fripp                                        8200.00 1997-4-10
Matthew Weiss                                     8000.00 1996-7-18
Jennifer Dilly                                    3600.00 1997-8-13
Julia Dellinger                                   3400.00 1998-6-24
Laura Bissot                                      3300.00 1997-8-20
Kevin Mourgos                                     5800.00 1999-11-16
Shanta Vollman                                    6500.00 1997-10-10
Vance Jones                                       2800.00 1999-3-17
Anthony Cabrio                                    3000.00 1999-2-7
Girard Geoni                                      2800.00 2000-2-3
Douglas Grant                                     2600.00 2000-1-13
Donald OConnell                                   2600.00 1999-6-21
Randall Perkins                                   2500.00 1999-12-19
Martha Sullivan                                   2500.00 1999-6-21
Kevin Feeney                                      3000.00 1998-5-23
Alana Walsh                                       3100.00 1998-4-24
Samuel McCain                                     3200.00 1998-7-1
Timothy Gates                                     2900.00 1998-7-11
Jean Fleaur                                       3100.00 1998-2-23
Winston Taylor                                    3200.00 1998-1-24
Michael Rogers                                    2900.00 1998-8-26
Britney Everett                                   3900.00 1997-3-3
Kelly Chung                                       3800.00 1997-6-14
Alexis Bull                                       4100.00 1997-2-20
Randall Matos                                     2600.00 1998-3-15
John Seo                                          2700.00 1998-2-12
Stephen Stiles                                    3200.00 1997-10-26
Mozhe Atkinson                                    2800.00 1997-10-30
Irene Mikkilineni                                 2700.00 1998-9-28
Julia Nayer                                       3200.00 1997-7-16
Hazel Philtanker                                  2200.00 2000-2-6
Ki Gee                                            2400.00 1999-12-12
Steven Markle                                     2200.00 2000-3-8
Sarah Bell                                        4000.00 1996-2-4
Nandita Sarchand                                  4200.00 1996-1-27
Lisa Ozer                                        11500.00 1997-3-11
Clara Vishney                                    10500.00 1997-11-11
Eleni Zlotkey                                    10500.00 2000-1-29
Gerald Cambrault                                 11000.00 1999-10-15
Alberto Errazuriz                                12000.00 1997-3-10
Tayler Fox                                        9600.00 1998-1-24
Harrison Bloom                                   10000.00 1998-3-23
Danielle Greene                                   9500.00 1999-3-19
Charles Johnson                                   7211.00 2000-1-4
Mattea Marvins                                    7200.00 2000-1-24
Ellen Abel                                       11000.00 1996-5-11
Karen Partners                                   13500.00 1997-1-5
John Russell                                     14000.00 1996-10-1
Peter Tucker                                     10000.00 1997-1-30
David Bernstein                                   9500.00 1997-3-24
Jonathon Taylor                                   8600.00 1998-3-24
Alyssa Hutton                                     8800.00 1997-3-19
Peter Hall                                        9000.00 1997-8-20
Jack Livingston                                   8000.00 1998-4-23
Christopher Olsen                                 8000.00 1998-3-30
Elizabeth Bates                                   7300.00 1999-3-24
William Smith                                     7400.00 1999-2-23
Nanette Cambrault                                 7500.00 1998-12-9

61 rows selected

/*-------7、哪些员工跟Den(FIRST_NAME)、Raphaely(LAST_NAME)
不在同一个部门（非关联子查询）。---------*/

SQL> SELECT FIRST_NAME || ' ' || LAST_NAME
  2  FROM EMPLOYEES
   3  WHERE DEPARTMENT_ID <>
  4        (SELECT DEPARTMENT_ID FROM EMPLOYEES
   5         WHERE FIRST_NAME = 'Den'
  6         AND LAST_NAME  = 'Raphaely'
  7        );

FIRST_NAME||''||LAST_NAME
----------------------------------------------
Steven King
Neena Kochhar
Lex De Haan
Alexander Hunold
Bruce Ernst
David Austin
Valli Pataballa
--等等

--或者

SQL> SELECT FIRST_NAME || ' ' || LAST_NAME
   2  FROM EMPLOYEES
   3  WHERE DEPARTMENT_ID NOT IN
   4        (SELECT DEPARTMENT_ID FROM EMPLOYEES
   5         WHERE FIRST_NAME = 'Den'
   6         AND LAST_NAME  = 'Raphaely'
   7        );

/*-------8、哪些员工跟Den(FIRST_NAME)、Raphaely(LAST_NAME)
不在同一个部门（关联子查询）。---------*/

SQL> SELECT FIRST_NAME || ' ' || LAST_NAME
   2  FROM EMPLOYEES EMP1
   3  WHERE NOT EXISTS (
   4        SELECT 1 FROM EMPLOYEES EMP2
   5        WHERE EMP1.DEPARTMENT_ID = EMP2.DEPARTMENT_ID
   6        AND EMP2.FIRST_NAME =  'Den'
   7        AND EMP2.LAST_NAME  =  'Raphaely');

FIRST_NAME||''||LAST_NAME
----------------------------------------------
Kimberely Grant
Lex De Haan
Neena Kochhar
Steven King
Pat Fay
Michael Hartstein
Diana Lorentz
Valli Pataballa
--等等

/*-------9、Finance部门有哪些职位（非关联子查询）。---------*/

SQL> SELECT DISTINCT JOB_ID FROM EMPLOYEES
   2  WHERE DEPARTMENT_ID = (
   3        SELECT DEPARTMENT_ID FROM DEPARTMENTS
   4        WHERE DEPARTMENT_NAME = 'Finance');

JOB_ID
----------
FI_ACCOUNT
FI_MGR

--或者

SQL> SELECT DISTINCT JOB_ID FROM EMPLOYEES
   2  WHERE DEPARTMENT_ID IN (
   3        SELECT DEPARTMENT_ID FROM DEPARTMENTS
   4        WHERE DEPARTMENT_NAME = 'Finance');

JOB_ID
----------
FI_ACCOUNT
FI_MGR

/*-------10、Finance部门有哪些职位（关联子查询）。---------*/
SQL> SELECT DISTINCT JOB_ID FROM EMPLOYEES
   2  WHERE EXISTS(
   3        SELECT 1 FROM DEPARTMENTS
   4        WHERE EMPLOYEES.DEPARTMENT_ID = DEPARTMENTS.DEPARTMENT_ID
   5        AND DEPARTMENTS.DEPARTMENT_NAME = 'Finance');

JOB_ID
----------
FI_ACCOUNT
FI_MGR

原创作品，转贴请注明作者和出处，留此信息。

------------------------------------------------

cnBlobs:http://www.cnblogs.com/huyong/
CSDN：http://blog.csdn.net/chinahuyong

作者：EricHu（DB、C\S、B\S、WebService、WCF、PM等）
出处：http://www.cnblogs.com/huyong/