博客园_缘起缘灭网梦

[转]SQL2008链接服务器数据同步

2012-02-04T12:15:00Z

-- 删除链接和链接服务器
Exec sp_droplinkedsrvlogin syncDB,Null
Exec sp_dropserver syncDB

EXEC sp_addlinkedserver
      @server='syncDB',--被访问的服务器别名
      @srvproduct='',
      @provider='SQLOLEDB',
      @datasrc='202.**.***.43\MSSQLSERVER2008' --要访问的服务器实例名

---- @datasrc='servername\instancename'
---- servername 是运行 SQL Server 的计算机名称(或者IP)，instancename 是用户将被连接到的特定 SQL Server 实例的名称

EXEC sp_addlinkedsrvlogin
     'syncDB', --被访问的服务器别名
     'false',
     NULL,
     'sa', --帐号
     'sa' --密码

exec sp_serveroption 'syncDB43','rpc out','true';  --允许调用链接服务器上的存储过程

-- 在远程服务器43的作业中调用本服务器的存储过程saveSync_process_ON187
--exec('exec Mydb_sync187.dbo.saveSync_process_ON187') at syncDB43;

**/

/*--链接服务器同步数据示例

服务器HAI：
       hostname:HAI
       实例名：HAI\BRUCESERVER
      （测试）数据库名：Mydb_sync187

服务器CHOW：
       hostname:CHOW
       实例名：CHOW\SQL2008
      （测试）数据库名：Mydb_sync10

同步要求：
       1、在服务器HAI在的My_sync187数据库出现save、update、delete操作后，将数据同步到服务器CHOW的Mydb_sync10数据库中，保持数据一致性。
       2、在服务器CHOW在的Mydb_sync10数据库出现save、update、delete操作后，将数据同步到服务器HAI的Mydb_sync187数据库中，保持数据一致性。
--*/

/*
-- 在服务器HAI上完成save、update、delete操作后将数据单向同步到服务器CHOW上的设置如下列步骤所示（在服务器CHOW的设置相似）
*/

--步骤1：在服务器HAI上创建链接服务器（链接到服务器CHOW，202.**.***.10）：
-------
Exec sp_droplinkedsrvlogin syncDB10,Null
Exec sp_dropserver syncDB10
EXEC sp_addlinkedserver
      @server='syncDB10',--被访问的服务器别名
      @srvproduct='',
      @provider='SQLOLEDB',
      @datasrc='202.**.***.10\SQL2008' --要访问的服务器

EXEC sp_addlinkedsrvlogin
     'syncDB10', --被访问的服务器别名
     'false',
     NULL,
     'sa', --帐号
     'sa' --密码



--步骤2：在服务器HAI上启动 msdtc(分布式事务处理服务),并且设置为自动启动

--  我的电脑--控制面板--管理工具--服务--右键 Distributed Transaction Coordinator--属性--启动--并将启动类型设置为自动启动
--  注：如果在第1步Distributed Transaction Coordinator 无法启动，则是因为丢失了日志文件,重新创建日志文件,再启动就行了。重新创建 MSDTC 日志,并重新启动服务的步骤如下：
--    (1) 单击"开始",单击"运行",输入 cmd 后按"确定"。
--    (2) 输入:msdtc -resetlog (注意运行此命令时,不要执行挂起的事务)
--    (3) 最后输入:net start msdtc 回车。


--步骤3：在服务器HAI上的数据库Mydb_sync187 创建一个作业定时远程调用服务器CHOW数据库Mydb_sync10上的同步处理存储过程。

--  企业管理器
--  管理
--  SQL Server代理
--  右键作业
--  新建作业
--  "常规"项中输入作业名称,如 Mydb_sync187_job
--  "步骤"项
--   新建
--  "步骤名"中输入步骤名，如 Mydb_sync187_step
--  "类型"中选择"Transact-SQL 脚本(TSQL)"
--  "数据库"选择执行命令的数据库，如 Mydb_sync187
--  "命令"中输入要执行的语句:

    EXEC sp_addlinkedserver
      @server='syncDB10',--被访问的服务器别名
      @srvproduct='',
      @provider='SQLOLEDB',
      @datasrc='202.**.***.10\SQL2008'; --要访问的服务器

    EXEC sp_addlinkedsrvlogin
     'syncDB10', --被访问的服务器别名
     'false',
      NULL,
     'sa', --帐号
     'sa'; --密码

    --允许调用链接服务器syncDB10上的存储过程
    EXEC sp_serveroption 'syncDB10','rpc out','true';

    EXEC('exec Mydb_sync10.dbo.saveSync_process_ON10') at syncDB10;
    EXEC('exec Mydb_sync10.dbo.updateSync_process_ON10') at syncDB10;
    EXEC('exec Mydb_sync10.dbo.deleteSync_process_ON10') at syncDB10;

    Exec sp_droplinkedsrvlogin syncDB10,Null;
    Exec sp_dropserver syncDB10;

--  确定
--  "调度"项
--  新建调度
--  "名称"中输入调度名称
--  "调度类型"中选择你的作业执行安排
--  如果选择"反复出现"
--  点"更改"来设置你的时间安排（设置合理的时间安排）


--  然后将SQL Agent服务启动,并设置为自动启动,否则你的作业不会被执行
--  设置方法:
--  我的电脑--控制面板--管理工具--服务--右键 SQLSERVERAGENT--属性--启动类型--选择"自动启动"--确定.

--步骤4：在服务器HAI上调用服务器CHOW上的实现同步处理的存储过程如下

--  服务器CHOW上Mydb_sync10数据库中创建如下的同步处理存储过程：
GO
--新增数据操作存储过程
create proc saveSync_process_ON187
as
begin tran --开始事物

--将远程服务器新增的数据同步到本服务器中
insert t_park_account(status,user_id,car_id,cardNo,cardType,cost,lowestBalanceAfterConsume,tollyLowestBalanceAC,noEntryBalance,lowBalanceNotice,openAccountTime,statusUpdateTime,remark,parkNo,balance)
    select status,user_id,car_id,cardNo,cardType,cost,lowestBalanceAfterConsume,tollyLowestBalanceAC,noEntryBalance,lowBalanceNotice,openAccountTime,statusUpdateTime,remark,parkNo,balance
    from syncDB187.Mydb_sync187.dbo.t_park_account _account
    where not exists(
                    select * from t_park_account where sys_id=_account.sys_id)

--@@error的值不等于0表示上一条SQL语句执行结果有错，即采取事物回滚措施
if @@ERROR<>0
begin
    rollback tran
end

insert t_park_user(sys_id,userName,credentialsType,credentialsNo,phone,mobileNumber,address)
    select sys_id,userName,credentialsType,credentialsNo,phone,mobileNumber,address
    from syncDB187.Mydb_sync187.dbo.t_park_user _user
    where not exists(
                    select * from t_park_user where sys_id=_user.sys_id)

if @@ERROR<>0
begin
rollback tran
end

insert t_park_car(vehPlate,carType,carColour)
    select vehPlate,carType,carColour
    from syncDB187.Mydb_sync187.dbo.t_park_car _car
    where not exists(
                    select * from t_park_car where sys_id=_car.sys_id)

if @@ERROR<>0
begin
rollback tran
end

commit tran --提交事物


GO
--更新数据操作存储过程
create proc updateSync_process_ON187
as
begin tran --开始事物

--将远程服务器更新的数据更新到本服务器中
update account
set status=_account.status,user_id=_account.user_id,car_id=_account.car_id,cardNo=_account.cardNo,cardType=_account.cardType,cost=_account.cost,lowestBalanceAfterConsume=_account.lowestBalanceAfterConsume,tollyLowestBalanceAC=_account.tollyLowestBalanceAC,noEntryBalance=_account.noEntryBalance,lowBalanceNotice=_account.lowBalanceNotice,openAccountTime=_account.openAccountTime,statusUpdateTime=_account.statusUpdateTime,remark=_account.remark,parkNo=_account.parkNo,balance=_account.balance
from syncDB187.Mydb_sync187.dbo.t_park_account _account,t_park_account account
where account.sys_id=_account.sys_id

if @@ERROR<>0
begin
rollback tran
end

update _user_
set sys_id=_user.sys_id,userName=_user.userName,credentialsType=_user.credentialsType,credentialsNo=_user.credentialsNo,phone=_user.phone,mobileNumber=_user.mobileNumber,address=_user.address
from syncDB187.Mydb_sync187.dbo.t_park_user _user,t_park_user _user_
where _user_.sys_id=_user.sys_id

if @@ERROR<>0
begin
rollback tran
end

update car
set  vehPlate=_car.vehPlate,carType=_car.carType,carColour=_car.carColour
from syncDB187.Mydb_sync187.dbo.t_park_car _car,t_park_car car
where car.sys_id=_car.sys_id

if @@ERROR<>0
begin
rollback tran
end

commit tran --提交事物


GO
--删除数据操作存储过程
create proc deleteSync_process_ON187
as
begin tran --开始事物

--删除已删除的数据
delete account
from t_park_account account
where not exists(
                select * from syncDB187.Mydb_sync187.dbo.t_park_account where sys_id=account.sys_id)

if @@ERROR<>0
begin
rollback tran
end

delete _user_
from t_park_user _user_
where not exists(
                select * from syncDB187.Mydb_sync187.dbo.t_park_user where sys_id=_user_.sys_id)

if @@ERROR<>0
begin
rollback tran
end

delete car
from t_park_car car
where not exists(
                select * from syncDB187.Mydb_sync187.dbo.t_park_car where sys_id=car.sys_id)

if @@ERROR<>0
begin
rollback tran
end

commit tran --提交事物

本文链接

asp.net 在IE8 导出excel时的问题

2011-10-10T09:25:00Z

asp.net程序中,我直接将生产的excel输出到客户端,我在其他游览器都可以,但在IE8,却只是"嘟"一声,然后就什么也没有了.后来才发现,原来是IE设置的问题,

在IE-->INTERNET 设置-->安全-->文件下载自动提示,默认为"禁用",这里应该设置为"启用".

本文链接

[转]mssql链接服务器

2011-06-01T04:28:00Z

mssql version:sql server 2008
mysql
version:mysql-5.1.32

1,安装MSDASQL
--安装MSDASQL(64 位 OLEDB Provider for
ODBC
(MSDASQL))
--http://www.microsoft.com/downloads/details.aspx?FamilyID=000364db-5e8b-44a8-b9be-ca44d18b059b&displaylang=zh-cn
--select
the version WindowsServer2003.WindowsXP-KB948459-v2-x64-ENU.exe

2,安装mysql
odbc
--mysql-connector-odbc-5.1.6-winx64.msi

3,外围应用配置器,注册网络
EXEC
sp_configure 'show advanced option',1
RECONFIGURE
go
exec sp_configure
'Ad Hoc Distributed
Queries',1
GO
RECONFIGURE
GO

4,建立MYSQL链接服务器
--用于从mysql获取数据
EXEC
master.dbo.sp_addlinkedserver
@server = N'MYSQL',
@srvproduct=N'MySQL',

@provider=N'MSDASQL',
@provstr=N'DRIVER={MySQL ODBC 5.1 Driver};
SERVER=ip; DATABASE=dbname; USER=username; PASSWORD=password;
OPTION=3'

SELECT * FROM OPENQUERY(MYSQL,'SELECT id,name FROM
test.user');
insert into openquery(MYSQL,'select id,name from test.user where
1=0') values (5,'newUser');

5,建立MSSQL链接服务器
exec sp_addlinkedserver
'MSSQL', '', 'SQLOLEDB', 'tcp:ip\hostname,1433'
go
exec
sp_addlinkedsrvlogin 'MSSQL', 'false',null, 'username',
'password'
go
select * from openquery(MSSQL,'select id,name from
test.dbo.[user]')
go

==================

2、数据库的访问以及操作

链接数据库建立后，就可以对链接数据库进行访问，普通方法有2种：
（1）T-SQL方式 select * from [链接表名称].[数据库名].[架构].[表名]
ACCESS一般使用： select * from [链接表名称]...[表名] （数据库名和架构都没）
MSSQL 一般使用： select * from [链接表名称].[数据库名].[dbo].[表名]
Oracle 一般使用：据说是 select * from [链接表名称]..[Oracle用户名].[表名] （我没试成功过。。）
（2）PL/SQL方式使用OpenQuery交互（虽然不是最好的，但速度比第一种方法至少快一半）
查询实例：
Select * from OpenQuery(连接服务器名称,'Select * from [表名]')
新增实例：
INSERT OPENQUERY (链接服务名称, 'SELECT 字段1,字段2 FROM 表') VALUES ('值1', '值2');
顺便提下：OPENQUERY 会返回一个数据集，换言之上面的语句，必须要等表所有数据都select后才会插入数据，如果数据量大这个过程非常漫长，所以上面的语句需要改进下：
INSERT OPENQUERY (链接服务名称, 'SELECT 字段1,字段2 FROM 表 where 1=2') VALUES ('值1', '值2');
更新实例：
UPDATE OPENQUERY (链接服务名称, 'SELECT 字段1,字段2 FROM 表 WHERE id=1') SET 字段1= '值1', 字段2= '值2';
删除实例：
DELETE OPENQUERY (链接服务名称, 'SELECT 字段1 FROM 表 WHERE 字段1=1');
（以上所有操作实例如果链接的服务器是MSSQL，则需要在表名前添加数据库和架构，如：数据库名.dbo.表名）

另外关于引号的小问题也提下，虽然简单但有时候也容易忽略，比如：
Select * from OpenQuery(连接服务器名称,'Select * from [表名] where id=1') 这样没问题，但如果id是字符那么应该是
Select * from OpenQuery(连接服务器名称,'Select * from [表名] where id=''值''') 需要在一前一后加2个 ' ，如果中间的语句再复杂些，或者引入函数等，需要拆开写，那前后就需要加4个' ，反正原则就是引一次加2个'，其实也就是转义。

3、同义词的的使用（仅SQL2005及以上版本支持！）

这个东东很好！很强大！ （OPENQUERY其实也就是它的简化版）

创建语句：

CREATE SYNONYM [同义词名称] FOR [链接服务器名称].[数据库].[架构].[表名]
GO

我的个人理解是，首先通过链接服务器创建远程链接，再通过链接服务器创建同义词到本地数据库，这样一来在本地数据库上就相当于创建了虚拟表（支持4种对象的创建：表、视图、函数、存储过程），远程的表就像在本地一样，所以同义词翻译成链接表或者链接对象似乎更为恰当。。

这样一来，操作远程数据库就非常方便了，不管是ACCESS、SQL、还是Oracle（估计其他数据库链接过来也是一样的道理，前提是需要有相应的访问接口）都可以使用最普通的T-SQL语句操作，如：
select * from 同义词名称
insert into 同义词名称(...) values(...)
delete 同义词名称 where...
（当然需要执行增加、删除、修改等操作，需要你相对应的链接服务器有相应的权限）

这样一来前面提到的2种访问链接数据库的方式通通都可以放弃，不过可惜的是如果是SQL2000的话，仍然只能使用OpenQuery来交互数据库。。。

本文链接

win2008 R2 64位系统下配置DCOM权限

2011-05-29T07:38:00Z

由於Dcomcnfg是一個32位和配置,在64系統下並不能被完全支持

在WIN2008 X64系統中,可以通過如下方式進入DCOM配置

運行:mmc -32

然後會彈出一個程序,工菜單中選擇File->Add/Remove Snap

添加Component Services,然後在Component Services下找到Excel後再進行配置,就和32位系統一樣的了;

其它一样的配置如下

2.对于风险源的导入功能。服务器要装上Excel,并进行一系列的权限设置,如下:
1:在服务器上安装office的Excel软件.
2:在"开始"->"运行"中输入dcomcnfg.exe启动"组件服务"
3:依次双击"组件服务"->"计算机"->"我的电脑"->"DCOM配置"
4:在"DCOM配置"中找到"Microsoft Excel 应用程序",在它上面点击右键,然后点击"属性",弹出"Microsoft Excel 应用程序属性"对话框
5:点击"标识"标签,选择"启动用户" （备注：如果选择"交互式用户",则你必需登录到系统,IIS 用户才有权限访问EXCEL COM)
6:点击"安全"标签,在"启动和激活权限"上点击"自定义",然后点击对应的"编辑"按钮,在弹出的"安全性"对话框中填加一个"NETWORK SERVICE"用户(注意要选择本计算机名),并给它赋予"本地启动"和"本地激活"权限.
7:依然是"安全"标签,在"访问权限"上点击"自定义",然后点击"编辑",在弹出的"安全性"对话框中也填加一个"NETWORK SERVICE"用户,然后赋予"本地访问"权限.

8:IIS里面的应用程序池,也要将标识设置为"NETWORK SERVICE"

9:将应用程序池里面网站对应的程序集的运行用户改为"NETWORK SERVICE"

这样,我们便配置好了相应的Excel的DCOM权限.
注意:我是在WIN2003上配置的,在2000上,是配置ASPNET用户

========================================

本文链接

[转]excel 操作类

2011-05-26T10:52:00Z

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Data;
using Microsoft.Office.Core;
using Microsoft.Office.Interop.Excel;

namespace ASS.Utility
{
    public class ExcelEdit
    {
        private string myFileName;

        public string MyFileName
        {
get { return myFileName; }
set { myFileName = value; }
        }
        Application myExcel;

        public Application MyExcel
        {
            get { return myExcel; }
            set { myExcel = value; }
        }
        Workbook myWorkBook;

        public Workbook MyWorkBook
        {
            get { return myWorkBook; }
            set { myWorkBook = value; }
        }

        /// <summary>
        /// 构造函数，不创建Excel工作薄
        /// </summary>
        public ExcelEdit() {

        }

        /// <summary>
        /// 创建Excel工作薄
        /// </summary>
        public void CreateExcel() {
MyExcel = new Application();
            MyWorkBook = MyExcel.Workbooks.Add(true);
        }

        /// <summary>
        /// 显示工作薄
        /// </summary>
        public void ShowExcel() {
            MyExcel.Visible = true;
        }

        /// <summary>
        /// 将数据集合写入Excel
        /// </summary>
        /// <param name="data">要写入的二维数组数据</param>
        /// <param name="startRow">Excel起始行</param>
/// <param name="startColumn">Excel起始列</param>
        public void WriteData(string[,] data,int startRow,int startColumn) {
            int rowCount = data.GetLength(0);
            int columnCount = data.GetLength(1);
            for (int i = 0; i < rowCount;i++ ) {
                for (int j = 0; j < columnCount; j++) {
                    MyExcel.Cells[startRow + i, startColumn + j] = "'" + data[i, j];
                }

            }
        }

        /// <summary>
        /// 将数据写入指定的单元格
        /// </summary>
        /// <param name="data">要写入的数据</param>
        /// <param name="row">行号</param>
        /// <param name="column">列号</param>
        public void WriteData(string data, int row, int column) {
            MyExcel.Cells[row, column] = data;
        }

/// <summary>
        /// 将DataTable对象写入Excel
        /// </summary>
        /// <param name="data">DataTable对象</param>
        /// <param name="startRow">Excel起始行</param>
        /// <param name="startColumn">Excel起始列</param>
        public void WriteData(System.Data.DataTable data, int startRow, int startColumn) {
            for (int i = 0; i < data.Rows.Count; i++) {
                for (int j = 0; j < data.Columns.Count; j++) {
                    MyExcel.Cells[startRow + i, startColumn + j] = "'" + data.Rows[i][j].ToString();
                }
            }
        }

        /// <summary>
        /// 读取指定单元格的数据
        /// </summary>
        /// <param name="rowNum">指定的行号</param>
        /// <param name="columnNum">指定的列号</param>
        /// <returns></returns>
        public string ReadData(int rowNum, int columnNum) {
            Range range= MyExcel.get_Range(MyExcel.Cells[rowNum,columnNum],MyExcel.Cells[rowNum,columnNum]);
            return range.Text.ToString();
        }

        /// <summary>
        /// 向Excel中插入图片
        /// </summary>
        /// <param name="picPath">图片的绝对路径</param>
        public void InsertPicture(string picPath) {
            Worksheet workSheet = MyExcel.ActiveSheet as Worksheet;
            workSheet.Shapes.AddPicture(picPath,MsoTriState.msoFalse,MsoTriState.msoCTrue,10,10,150,150);

}

        /// <summary>
        /// 向Excel中插入图片
        /// </summary>
        /// <param name="picPath">图片的路径</param>
        /// <param name="top">上边距</param>
        /// <param name="left">左边距</param>
        /// <param name="height">高度</param>
        /// <param name="width">宽度</param>
        public void InsertPicture(string picPath, float top, float left, float height, float width) {

Worksheet workSheet = MyExcel.ActiveSheet as Worksheet;
workSheet.Shapes.AddPicture(picPath, MsoTriState.msoFalse, MsoTriState.msoCTrue, left, top, width, height);
}

        /// <summary>
        /// 重命名工作表
        /// </summary>
        /// <param name="sheetNum">工作表序号，从左到右，从1开始</param>
        /// <param name="newName">新的工作表名</param>
        public void ReNameWorkSheet(int sheetNum, string newName) {
            Worksheet workSheet = MyExcel.Worksheets[sheetNum] as Worksheet;
            workSheet.Name = newName;
        }

/// <summary>
       /// 重名命工作表
       /// </summary>
       /// <param name="oldName">旧的工作表名</param>
       /// <param name="newName">新的工作表名</param>
        public void ReNameWorkSheet(string oldName, string newName)
        {
            Worksheet workSheet = MyExcel.Worksheets[oldName] as Worksheet;
            workSheet.Name = newName;
        }

/// <summary>
        /// 新建工作表
        /// </summary>
        /// <param name="sheetName">工作表名</param>
        public void CreateWorkSheet(string sheetName) {
            Worksheet newWorkSheet = MyExcel.Worksheets.Add(Type.Missing, Type.Missing, Type.Missing, Type.Missing) as Worksheet;
            newWorkSheet.Name = sheetName;

}

/// <summary>
        /// 激活工作表
        /// </summary>
        /// <param name="sheetNum">工作表序号</param>
        public void ActiveSheet(int sheetNum) {

Worksheet workSheet = MyExcel.Worksheets[sheetNum] as Worksheet;
workSheet.Activate();
}

/// <summary>
        /// 激活工作表
        /// </summary>
        /// <param name="sheetName">工作表名</param>
        public void ActiveSheet(string sheetName) {
            Worksheet workSheet = MyExcel.Worksheets[sheetName] as Worksheet;
            workSheet.Activate();
        }

/// <summary>
        /// 删除工作表
        /// </summary>
        /// <param name="sheetNum">工作表序号</param>
        public void DeleteWorkSheet(int sheetNum) {

(MyExcel.Worksheets[sheetNum] as Worksheet).Delete();
}

/// <summary>
        /// 删除工作表
        /// </summary>
        /// <param name="sheetName"></param>
        public void DeleteWorkSheet(string sheetName) {

(MyExcel.Worksheets[sheetName] as Worksheet).Delete();
}

/// <summary>
        /// 合并单元格
        /// </summary>
        /// <param name="startRow">开始行</param>
        /// <param name="startColumn">开始列</param>
        /// <param name="endRow">结束行</param>
        /// <param name="endColumn">结束列</param>
        public void UnitCells(int startRow, int startColumn, int endRow, int endColumn) {

Range range = MyExcel.get_Range(MyExcel.Cells[startRow, startColumn], MyExcel.Cells[endRow, endColumn]);
range.MergeCells = true;
}

/// <summary>
        /// 设置对齐方式
        /// </summary>
        /// <param name="startRow">开始行</param>
        /// <param name="startColumn">开始列</param>
        /// <param name="endRow">结束行</param>
        /// <param name="endColumn">结束列</param>
        /// <param name="hAlign">水平对齐</param>
        /// <param name="vAlign">垂直对齐</param>
        public void AlignmentCells(int startRow, int startColumn, int endRow, int endColumn, ExcelStyle.ExcelHAlign hAlign, ExcelStyle.ExcelVAlign vAlign) {
            Range range = MyExcel.get_Range(MyExcel.Cells[startRow, startColumn], MyExcel.Cells[endRow, endColumn]);
            range.VerticalAlignment = vAlign;
            range.HorizontalAlignment = hAlign;
        }

        /// <summary>
        /// 绘制指定单元格的边框
        /// </summary>
        /// <param name="startRow">起始行</param>
        /// <param name="startColumn">起始列</param>
        /// <param name="endRow">结束行</param>
        /// <param name="endColumn">结束列</param>
        /// <param name="isDrawTop">是否画上外框</param>
        /// <param name="isDrawBottom">是否画下外框</param>
        /// <param name="isDrawLeft">是否画左外框</param>
        /// <param name="isDrawRight">是否画右外框</param>
        /// <param name="isDrawHInside">是否画水平内框</param>
        /// <param name="isDrawVInside">是否画垂直内框</param>
        /// <param name="isDrawDown">是否画斜向下线</param>
        /// <param name="isDrawUp">是否画斜向上线</param>
        /// <param name="lineStyle">线类型</param>
        /// <param name="borderWeight">线粗细</param>
        /// <param name="color">线颜色</param>

public void DrawCellsFrame(int startRow, int startColumn, int endRow, int endColumn,
            bool isDrawTop, bool isDrawBottom, bool isDrawLeft, bool isDrawRight,
            bool isDrawHInside, bool isDrawVInside, bool isDrawDiagonalDown, bool isDrawDiagonalUp,
            ExcelStyle.LineStyle lineStyle, ExcelStyle.BorderWeight borderWeight, ExcelStyle.ColorIndex color)
        {
            //获取画边框的单元格
            Range range = MyExcel.get_Range(MyExcel.Cells[startRow, startColumn], MyExcel.Cells[endRow, endColumn]);

//清除所有边框
            range.Borders[XlBordersIndex.xlEdgeTop].LineStyle = ExcelStyle.LineStyle.无;
            range.Borders[XlBordersIndex.xlEdgeBottom].LineStyle = ExcelStyle.LineStyle.无;
            range.Borders[XlBordersIndex.xlEdgeLeft].LineStyle = ExcelStyle.LineStyle.无;
            range.Borders[XlBordersIndex.xlEdgeRight].LineStyle = ExcelStyle.LineStyle.无;
            range.Borders[XlBordersIndex.xlInsideHorizontal].LineStyle = ExcelStyle.LineStyle.无;
            range.Borders[XlBordersIndex.xlInsideVertical].LineStyle = ExcelStyle.LineStyle.无;
            range.Borders[XlBordersIndex.xlDiagonalDown].LineStyle = ExcelStyle.LineStyle.无;
            range.Borders[XlBordersIndex.xlDiagonalUp].LineStyle = ExcelStyle.LineStyle.无;

//以下是按参数画边框
            if (isDrawTop)
            {
                range.Borders[XlBordersIndex.xlEdgeTop].LineStyle = lineStyle;
                range.Borders[XlBordersIndex.xlEdgeTop].Weight = borderWeight;
                range.Borders[XlBordersIndex.xlEdgeTop].ColorIndex = color;
            }

if (isDrawBottom)
            {
                range.Borders[XlBordersIndex.xlEdgeBottom].LineStyle = lineStyle;
                range.Borders[XlBordersIndex.xlEdgeBottom].Weight = borderWeight;
                range.Borders[XlBordersIndex.xlEdgeBottom].ColorIndex = color;
            }

if (isDrawLeft)
            {
                range.Borders[XlBordersIndex.xlEdgeLeft].LineStyle = lineStyle;
                range.Borders[XlBordersIndex.xlEdgeLeft].Weight = borderWeight;
                range.Borders[XlBordersIndex.xlEdgeLeft].ColorIndex = color;
            }

if (isDrawRight)
            {
                range.Borders[XlBordersIndex.xlEdgeRight].LineStyle = lineStyle;
                range.Borders[XlBordersIndex.xlEdgeRight].Weight = borderWeight;
                range.Borders[XlBordersIndex.xlEdgeRight].ColorIndex = color;
            }

if (isDrawVInside)
            {
                range.Borders[XlBordersIndex.xlInsideVertical].LineStyle = lineStyle;
                range.Borders[XlBordersIndex.xlInsideVertical].Weight = borderWeight;
                range.Borders[XlBordersIndex.xlInsideVertical].ColorIndex = color;
            }

if (isDrawHInside)
            {
                range.Borders[XlBordersIndex.xlInsideHorizontal].LineStyle = lineStyle;
                range.Borders[XlBordersIndex.xlInsideHorizontal].Weight = borderWeight;
                range.Borders[XlBordersIndex.xlInsideHorizontal].ColorIndex = color;
            }

if (isDrawDiagonalDown)
            {
                range.Borders[XlBordersIndex.xlDiagonalDown].LineStyle = lineStyle;
                range.Borders[XlBordersIndex.xlDiagonalDown].Weight = borderWeight;
                range.Borders[XlBordersIndex.xlDiagonalDown].ColorIndex = color;
            }

if (isDrawDiagonalUp)
            {
                range.Borders[XlBordersIndex.xlDiagonalUp].LineStyle = lineStyle;
                range.Borders[XlBordersIndex.xlDiagonalUp].Weight = borderWeight;
                range.Borders[XlBordersIndex.xlDiagonalUp].ColorIndex = color;
            }

}

/// <summary>
        /// 设置单元格背景色及填充方式
        /// </summary>
        /// <param name="startRow">起始行</param>
        /// <param name="startColumn">起始列</param>
         /// <param name="endRow">结束行</param>
        /// <param name="endColumn">结束列</param>
        /// <param name="color">颜色索引</param>
        public void CellsBackColor(int startRow, int startColumn, int endRow, int endColumn, ExcelStyle.ColorIndex color)
        {
            Range range = MyExcel.get_Range(MyExcel.Cells[startRow, startColumn], MyExcel.Cells[endRow, endColumn]);
            range.Interior.ColorIndex = color;
            range.Interior.Pattern = ExcelStyle.Pattern.Solid;
        }

/// <summary>
        ///设置单元格背景色及填充方式
        /// </summary>
        /// <param name="startRow">开始行</param>
        /// <param name="startColumn">开始列</param>
        /// <param name="endRow">结束行</param>
        /// <param name="endColumn">结束列</param>
        /// <param name="color">颜色索引</param>
        /// <param name="pattern">填充方式</param>
        public void CellsBackColor(int startRow,int startColumn,int endRow,int endColumn,ExcelStyle.ColorIndex color,ExcelStyle.Pattern pattern){
            Range range = MyExcel.get_Range(MyExcel.Cells[startRow, startColumn], MyExcel.Cells[endRow, endColumn]);
            range.Interior.ColorIndex = color;
            range.Interior.Pattern = pattern;
        }

/// <summary>
        /// 设置行高
        /// </summary>
        /// <param name="startRow">开始行</param>
        /// <param name="endRow">结束行</param>
        /// <param name="height">行高</param>
        public void SetRowHeight(int startRow, int endRow, float height) {
            Worksheet workSheet = MyExcel.ActiveSheet as Worksheet;
            Range range = workSheet.Rows[startRow.ToString() + ":" + endRow.ToString(), System.Type.Missing] as Range;
            range.RowHeight = height;
        }

/// <summary>
        /// 设置列宽
        /// </summary>
        /// <param name="startColumn">开始列</param>
        /// <param name="endColumn">结束列</param>
        /// <param name="width">宽度</param>
        public void SetColumnWidth(string startColumn, string endColumn, float width) {
            Worksheet workSheet = MyExcel.ActiveSheet as Worksheet;
            Range range = workSheet.Columns[startColumn.ToString() + ":" + endColumn.ToString(), System.Type.Missing] as Range;
            range.ColumnWidth = width;
        }

/// <summary>
        /// 自动调整行高
        /// </summary>
        /// <param name="rowNum">行号</param>
        public void RowAutoFit(int rowNum) {

Worksheet workSheet = MyExcel.ActiveSheet as Worksheet;
            Range range = workSheet.Rows[rowNum.ToString() + ":" + rowNum.ToString(), System.Type.Missing] as Range ;
            range.EntireColumn.AutoFit();
        }

/// <summary>
        /// 设置列宽
        /// </summary>
        /// <param name="startColumn">起始列</param>
        /// <param name="endColumn">结束列</param>
        /// <param name="width">宽度</param>
        public void SetColumnWidth(int startColumn, int endColumn, float width) {

            string strStartColumn = GetColumnName(startColumn);
            string strEndColumn = GetColumnName(endColumn);

Worksheet workSheet = MyExcel.ActiveSheet as Worksheet;
            Range range = workSheet.Columns[strStartColumn + ":" + strEndColumn, System.Type.Missing] as Range;
            range.ColumnWidth = width;

        }

/// <summary>
        /// 设置字体颜色
        /// </summary>
        /// <param name="startRow">起始行</param>
        /// <param name="startColumn">起始列</param>
        /// <param name="endRow">结束行</param>
        /// <param name="endColumn">结束列</param>
        /// <param name="color">颜色索引</param>
        public void SetFontColor(int startRow, int startColumn, int endRow, int endColumn, ExcelStyle.ColorIndex color)
        {
            Range range = MyExcel.get_Range(MyExcel.Cells[startRow,startColumn],MyExcel.Cells[endRow,endColumn]);
            range.Font.ColorIndex = color;
        }

/// <summary>
        /// 设置字体样式
        /// </summary>
        /// <param name="startRow">起始行</param>
        /// <param name="startColumn">起始列</param>
        /// <param name="endRow">结束行</param>
        /// <param name="endColumn">结束列</param>
        /// <param name="isBold">是否加粗</param>
        /// <param name="isItalic">是否斜体</param>
        /// <param name="underline">下划线类型</param>
        public void SetFontStyle(int startRow, int startColumn, int endRow, int endColumn, bool isBold, bool isItalic, ExcelStyle.UnderlineStyle underline)
        {
            Range range = MyExcel.get_Range(MyExcel.Cells[startRow, startColumn], MyExcel.Cells[endRow, endColumn]);
            range.Font.Bold = isBold;
            range.Font.Italic = isItalic;
            range.Font.Underline = underline;
        }

/// <summary>
        /// 设置字体和大小
        /// </summary>
        /// <param name="startRow">开始行</param>
        /// <param name="startColumn">开始列</param>
        /// <param name="endRow">结束行</param>
        /// <param name="endColumn">结束列</param>
        /// <param name="fontName">字体名称</param>
        /// <param name="fontSize">字体大小</param>
        public void SetFontNameSize(int startRow, int startColumn, int endRow, int endColumn,string fontName,int fontSize)
        {
            Range range = MyExcel.get_Range(MyExcel.Cells[startRow, startColumn], MyExcel.Cells[endRow, endColumn]);
            range.Font.Name = fontName;
            range.Font.Size = fontSize;

        }

/// <summary>
        /// 打开存在的Excel文件
        /// </summary>
        /// <param name="fileName">文件名</param>
        public void Open(string fileName) {
            MyExcel = new Application();
            MyWorkBook = MyExcel.Workbooks.Add(fileName);
            MyFileName = fileName;
        }

/// <summary>
        /// 保存Excel
        /// </summary>
        /// <returns></returns>
        public bool Save() {

if (MyFileName == "")
            {
                return false;
            }
            else {

try
                {
                    MyWorkBook.Save();
                    return true;
                }
                catch (Exception ex) {

return false;
                }
            }
        }
        private string GetColumnName(int number)
        {
            int h, l;
            h = number / 26;
            l = number % 26;
            if (l == 0)
            {
                h -= 1;
                l = 26;
            }
            string s = GetLetter(h) + GetLetter(l);
            return s;
        }
        private string GetLetter(int number)
        {
            switch (number)
            {
                case 1:
                    return "A";
                case 2:
                    return "B";
                case 3:
                    return "C";
                case 4:
                    return "D";
                case 5:
                    return "E";
                case 6:
                    return "F";
                case 7:
                    return "G";
                case 8:
                    return "H";
                case 9:
                    return "I";
                case 10:
                    return "J";
                case 11:
                    return "K";
                case 12:
                    return "L";
                case 13:
                    return "M";
                case 14:
                    return "N";
                case 15:
                    return "O";
                case 16:
                    return "P";
                case 17:
                    return "Q";
                case 18:
                    return "R";
                case 19:
                    return "S";
                case 20:
                    return "T";
                case 21:
                    return "U";
                case 22:
                    return "V";
                case 23:
                    return "W";
                case 24:
                    return "X";
                case 25:
                    return "Y";
                case 26:
                    return "Z";
                default:
                    return "";
            }
        }

}
}

本文链接

在excel中,将长宽高这样的格式列,拆分成3列

2011-05-11T07:18:00Z

在excel中,将长*宽*高这样的格式列,拆分成3列

=MID(D6,1,FIND("*",D6)-1)长
=MID($D6,FIND("*",D6)+1,FIND("*",D6,FIND("*",D6)+1)-FIND("*",D6)-1)宽
=MID($D6,FIND("*",D6,FIND("*",D6)+1)+1,LEN(D6))高

其中D6为你原来长*宽*高这样的格式列

毛净重Kg

19/16

26/23

将毛净重拆开

=MID(F4,1,FIND("/",F4)-1)

=MID(F4,FIND("/",F4)+1,LEN(F4))

本文链接

将没有产品图片的产品设置为不在前台显示SQL实现

2011-05-11T03:24:00Z

--select * from Product where ProCode='DWIHEE00108'

--declare @result int
--exec xp_fileexist 'C:\test\testsdfs.txt',@result output

--select @result

declare @result int,@proid uniqueidentifier,@proimgurl1 nvarchar(100)

declare myCursor cursor for
    select proid,proimgurl1 from product

open myCursor
fetch myCursor into @proid,@proimgurl1

while @@FETCH_STATUS=0
begin
set @proimgurl1='C:/Project/website/DowellinWebsite'+@proimgurl1
exec xp_fileexist @proimgurl1,@result output
if (@result=1)
    update Product set IsShow=1 where ProId=@proid
else
    update Product set IsShow=0 where ProId=@proid
fetch myCursor into @proid,@proimgurl1
end
close myCursor
deallocate myCursor

本文链接

[转]在Reporting Services报表中引用FTP站点上的图片

2011-04-23T14:29:00Z

遇到一个客户，希望在Reporting Services的报表中引用FTP站点上的图片，但是访问这个FTP站点需要用户名和密码！

好不容易把这个问题解决，以下是我的解决步骤。

1. 添加一段自定义报表以获取图片:

Public Shared Function GetImageFromFTPServer(ByVal imageURL As String) As Byte()

Dim request As System.Net.WebClient = New System.Net.WebClient()

request.Credentials = New System.Net.NetworkCredential("FTP-UserName", "FTP-Password", "FTP-UserDomain")

Try

Return request.DownloadData(imageURL)

Catch ex As Exception

Return Nothing

End Try

End Function

注意：示例中的用户名，密码，和域名是硬编码的，实际操作中最好是放在别处，调用这段代码的时候再以参数的形式传递进来。

2. 添加“图像”控件到报表中。“图像”控件的图像源有三种，分别是“外部”，“嵌入”和“数据库”。由于“外部”和“嵌入”这两个数据源只接受字符串参数，所以在这里要图像源要选择“数据库”，“数据库”图像源允许你直接以Byte数组的形式提供图片数据（其实就是SQL Server和Access中的Image类型）。“数据库”图像源要求一定要绑定某个数据集上，所以必需创建一个数据集，这个数据集只是用于绑定，不见得一定要提供数据。我写了一个查询来创建这个数据集：

SELECT 'http://www.cnblogs.com/seerlin/admin/ftp://ftpserver/Image.gif' AS PATH

然后在“使用此字段”的表达式中输入:

=Code.GetImageFromFTPServer(First(Fields!PATH.Value, "DataSet1"))

可能有的人会想，或许可以在数据集中添加一个计算列，然后给个名字

=Code.GetImageFromFTPServer(Fields!PATH.Value)

但是实际上计算列这个办法行不通，暂时不太清楚为什么这样，只知道这么写不行。

3.由于代码访问安全性的限制，System.Net命名空间到这里还不能使用，此时预览报表的话会生成一片空白，所以要配置一下BIDS和报表服务器。

a.配置报表服务器，打开这个文件<Install Drive>:\Program Files\Microsoft SQL Server\MSRS10.<Instance Name>\Reporting Services\ReportServer\rsreportserver.config

b.有一个<GodeGroup>，class属性是UnionCodeGroup，name属性是Report_Expressions_Default_Permissions，把它的PermissionSetName属性改为FullTrust

c. 对于BIDS的配置，则对这个文件作同样的操作即可<Install Drive>:\Program Files\Microsoft Visual Studio 9.0\Common7\IDE\PrivateAssemblies\RSPreviewPolicy.config

本文链接

mscrm js webservic 常用功能

2011-04-02T06:49:00Z

本文链接

mscrm4.0 判断当前用户角色_示例

2011-03-21T10:05:00Z

alert(UserHasRole("System Administrator"));

function UserHasRole(roleName)
{
    //get Current User Roles, oXml is an object
    var oXml = GetCurrentUserRoles();
    if(oXml != null)
    {
        //select the node text
        var roles = oXml.selectNodes("//BusinessEntity/q1:name");
        if(roles != null)
        {
            for( i = 0; i < roles.length; i++)
            {
                if(roles[i].text == roleName)
                {
                    //return true if user has this role
                    return true;
                }
            }
        }
    }

    //otherwise return false
    return false;
}

function GetCurrentUserRoles()
{
    var xml = "" +
    "<?xml version=""1.0"" encoding=""utf-8""?>" +
    "<soap:Envelope xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"" xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"">" +
    GenerateAuthenticationHeader() +
    " <RetrieveMultiple xmlns=""http://schemas.microsoft.com/crm/2007/WebServices"">" +
    " <query xmlns:q1=""http://schemas.microsoft.com/crm/2006/Query"" xsi:type=""q1:QueryExpression"">" +
    " <q1:EntityName>role</q1:EntityName>" +
    " <q1:ColumnSet xsi:type=""q1:ColumnSet"">" +
    " <q1:Attributes>" +
    " <q1:Attribute>name</q1:Attribute>" +
    " </q1:Attributes>" +
    " </q1:ColumnSet>" +
    " <q1:Distinct>false</q1:Distinct>" +
    " <q1:LinkEntities>" +
    " <q1:LinkEntity>" +
    " <q1:LinkFromAttributeName>roleid</q1:LinkFromAttributeName>" +
    " <q1:LinkFromEntityName>role</q1:LinkFromEntityName>" +
    " <q1:LinkToEntityName>systemuserroles</q1:LinkToEntityName>" +
    " <q1:LinkToAttributeName>roleid</q1:LinkToAttributeName>" +
    " <q1:JoinOperator>Inner</q1:JoinOperator>" +
    " <q1:LinkEntities>" +
    " <q1:LinkEntity>" +
    " <q1:LinkFromAttributeName>systemuserid</q1:LinkFromAttributeName>" +
    " <q1:LinkFromEntityName>systemuserroles</q1:LinkFromEntityName>" +
    " <q1:LinkToEntityName>systemuser</q1:LinkToEntityName>" +
    " <q1:LinkToAttributeName>systemuserid</q1:LinkToAttributeName>" +
    " <q1:JoinOperator>Inner</q1:JoinOperator>" +
    " <q1:LinkCriteria>" +
    " <q1:FilterOperator>And</q1:FilterOperator>" +
    " <q1:Conditions>" +
    " <q1:Condition>" +
    " <q1:AttributeName>systemuserid</q1:AttributeName>" +
    " <q1:Operator>EqualUserId</q1:Operator>" +
    " </q1:Condition>" +
    " </q1:Conditions>" +
    " </q1:LinkCriteria>" +
    " </q1:LinkEntity>" +
    " </q1:LinkEntities>" +
    " </q1:LinkEntity>" +
    " </q1:LinkEntities>" +
    " </query>" +
    " </RetrieveMultiple>" +
    " </soap:Body>" +
    "</soap:Envelope>" +
    "";

    var xmlHttpRequest = new ActiveXObject("Msxml2.XMLHTTP");
    xmlHttpRequest.Open("POST", "/mscrmservices/2007/CrmService.asmx", false);
    xmlHttpRequest.setRequestHeader("SOAPAction"," http://schemas.microsoft.com/crm/2007/WebServices/RetrieveMultiple");
    xmlHttpRequest.setRequestHeader("Content-Type", "text/xml; charset=utf-8");
    xmlHttpRequest.setRequestHeader("Content-Length", xml.length);
    xmlHttpRequest.send(xml);
    var resultXml = xmlHttpRequest.responseXML;
    return(resultXml);
}

本文链接

博客园_缘起缘灭网梦

[转]SQL2008链接服务器数据同步

asp.net 在IE8 导出excel时的问题

[转]mssql链接服务器

win2008 R2 64位系统下配置DCOM权限

[转]excel 操作类

在excel中,将 长*宽*高 这样的格式列,拆分成3列

将没有产品图片的产品设置为不在前台显示SQL实现

[转]在Reporting Services报表中引用FTP站点上的图片

mscrm js webservic 常用功能

mscrm4.0 判断当前用户角色_示例

在excel中,将长宽高这样的格式列,拆分成3列