博客园_学习备忘

C#数据导出到Excel.

2010-05-20T08:10:00Z

C#导出到EXCEL
1.首先声明，这些方法也都是本人搜集的资料，然后为已所用，程序中不足之处，还请高手指点. 这些方法都没有关闭Excel进程。
2.网上有好多关于用SQL语句导入导出的例子，这里不再重复写了。
方法1:调用com组件,导出access数据到Excel,就是直接调用access的导出功能,此方法速度超级快
using Access;
Access.ApplicationClass oAccess = new Access.ApplicationClass();
oAccess.Visible = false;
try
{ //ACCESS9:
oAccess.OpenCurrentDatabase("d:\\wcf.mdb",false,"");
//导出到excel
oAccess.DoCmd.TransferSpreadsheet(Access.AcDataTransferType.acExport,Acce ss.AcSpreadSheetType.acSpreadsheetTypeExcel9,"工作表名","d:\\wcf.xls",true,null,null);
//导入txt
//oAccess.DoCmd.TransferText(Access.AcTextTransferType.acExportDelim,"","Enterprise","d:\\wcf.txt",true,"",0);
oAccess.CloseCurrentDatabase();
oAccess.DoCmd.Quit(Access.AcQuitOption.acQuitSaveNone);
System.Runtime.InteropServices.Marshal.ReleaseComObject (oAccess);
oAccess = null;
MessageBox.Show("导入成功");
}
catch(Exception ex)
{
MessageBox.Show(ex.ToString());
}
finally
{
GC.Collect();
}
方法2：此方法速度也是超级快，只不过导出的格式非标准的Excel格式，默认工作表名与文件名相同
string FileName="d:\\abc.xls";
System.Data.DataTable dt=new System.Data.DataTable();
FileStream objFileStream;
StreamWriter objStreamWriter;
string strLine="";
objFileStream = new FileStream(FileName,FileMode.OpenOrCreate,FileAccess.Write);
objStreamWriter = new StreamWriter(objFileStream,System.Text.Encoding.Unicode);
for(int i=0;i<dt.Columns.Count;i++)
{
strLine=strLine+dt.Columns[i].ColumnName.ToString()+Convert.ToChar(9);
}
objStreamWriter.WriteLine(strLine);
strLine="";
for(int i=0;i<dt.Rows.Count;i++)
{
strLine=strLine+(i+1)+Convert.ToChar(9);
for(int j=1;j<dt.Columns.Count;j++)
{
strLine=strLine+dt.Rows[i][j].ToString()+Convert.ToChar(9);
}
objStreamWriter.WriteLine(strLine);
strLine="";
}
objStreamWriter.Close();
objFileStream.Close();
方法3:用Ado.net 此方法速度较以上两个显得慢了一些，数据量越大越明显
int >string ;
string FileName="d:\\abc.xls";
System.Data.DataTable dt=new System.Data.DataTable();
long totalCount=dt.Rows.Count;
long rowRead=0;
float percent=0;
OleDbParameter[] parm=new OleDbParameter[dt.Columns.Count];
string connString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + FileName +";Extended Properties=Excel 8.0;";
OleDbConnection objConn = new OleDbConnection(connString);
OleDbCommand objCmd = new OleDbCommand();
objCmd.Connection = objConn;
objConn.Open();
//建立表结构
objCmd.CommandText = @"CREATE TABLE Sheet1(序号 Integer,名称 varchar)";
objCmd.ExecuteNonQuery();
//建立插入动作的Command
objCmd.CommandText = "INSERT INTO Sheet1("+Id+","+Name+")";
parm[0]=new OleDbParameter("@Id", OleDbType.Integer);
objCmd.Parameters.Add(parm[0]);
parm[1]=new OleDbParameter("@Company", OleDbType.VarChar);
objCmd.Parameters.Add(parm[1]);
//遍历DataTable将数据插入新建的Excel文件中
for(int i=0;i<dt.Rows.Count;i++)
{
parm[0].Value=i+1;
for(int j=1;j<parm.Length;j++)
{
parm[j].Value =dt.Rows[i][j];
}
objCmd.ExecuteNonQuery();
rowRead++;
percent=((float)(100rowRead))/totalCount;
//this.FM.CaptionText.Text = "正在导出数据，已导出[" + percent.ToString("0.00") + "%]...";
if(i==dt.Rows.Count-1)
//this.FM.CaptionText.Text = "请稍后......";
System.Windows.Forms .Application.DoEvents();
}
objConn.Close();
//this.FM.CaptionText.Text = "";
方法4：此方法调用com组件，速度都慢于以上3个方法
using Excel;
System.Data.DataTable dt=new System.Data.DataTable();
string FileName="d:\\abc.xls";
long totalCount=dt.Rows.Count;
long rowRead=0;
float percent=0;
Excel.Application xlApp=null;
xlApp=new Excel.Application();
Excel.Workbooks workbooks=xlApp.Workbooks;
Excel.Workbook workbook=workbooks.Add(Excel.XlWBATemplate.xlWBATWorksheet);
Excel.Worksheet worksheet=(Excel.Worksheet)workbook.Worksheets[1];
//取得sheet1
Excel.Range range;
//写入字段
for(int i=0;i<dt.Columns.Count;i++)
{
worksheet.Cells[1,i+1]=dt.Columns[i].ColumnName;
range=(Excel.Range)worksheet.Cells[1,i+1];
}
for(int r=0;r<dt.Rows.Count;r++)
{
worksheet.Cells[r+2,1]=r+1;
for(int i=0;i<dt.Columns.Count;i++)
{
//worksheet.Cells[r+2,i+1]=dt.Rows[r][i];
if(i+1!=dt.Columns.Count)
worksheet.Cells[r+2,i+2]=dt.Rows[r][i+1];
}
rowRead++;
percent=((float)(100rowRead))/totalCount;
//this.FM.CaptionText.Text = "正在导出数据，已导出[" + percent.ToString("0.00") + "%]...";
System.Windows.Forms .Application.DoEvents();
}
range=worksheet.get_Range(worksheet.Cells[2,1],worksheet.Cells[dt.Rows.Count+2,dt.Columns.Count]);
workbook.Saved =true;
workbook.SaveCopyAs(FileName);
//this.FM.CaptionText.Text = "";
方法5：利用剪贴板 ,有人说此方法很快，但是我用时，这种方法最慢，请高手指点.
System.Data.DataTable dt=new System.Data.DataTable();
string ";
object oMissing = System.Reflection.Missing.Value;
Excel.ApplicationClass xlApp = new Excel.ApplicationClass();
try
{
xlApp.Visible = false;
xlApp.DisplayAlerts = false;
Excel.Workbooks oBooks = xlApp.Workbooks;
Excel._Workbook xlWorkbook = null;
xlWorkbook = oBooks.Open(filePath,oMissing,oMissing,oMissing,oMissing,oMissing,oMissing,
oMissing,oMissing,oMissing,oMissing,oMissing,oMissing,oMissing,oMissing);
Excel.Worksheet xlWorksheet;
// 添加入一个新的Sheet页。
xlWorksheet = (Excel.Worksheet)xlWorkbook.Worksheets.Add(oMissing,oMissing,1,oMissing);
// 以TableName作为新加的Sheet页名。
xlWorksheet.Name ="企业名录";
// 取出这个DataTable中的所有值,暂存于stringBuffer中。
string stringBuffer = "";
for( int j=0; j<dt.Rows.Count; j++ )
{
for( int k=0; k<dt.Columns.Count; k++ )
{
stringBuffer += dt.Rows[j][k].ToString();
if( k < dt.Columns.Count - 1 )
stringBuffer += "\t";
}
stringBuffer += "\n";
}
// 利用系统剪切板
System.Windows.Forms.Clipboard.SetDataObject("");
// 将stringBuffer放入剪切板。
System.Windows.Forms.Clipboard.SetDataObject(stringBuffer);
// 选中这个sheet页中的第一个单元格
((Excel.Range)xlWorksheet.Cells[1,1]).Select();
// 粘贴！
xlWorksheet.Paste(oMissing,oMissing);
// 清空系统剪切板。
System.Windows.Forms.Clipboard.SetDataObject("");
// 保存并关闭这个工作簿。
xlWorkbook.Close( Excel.XlSaveAction.xlSaveChanges, oMissing, oMissing );
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlWorkbook);
xlWorkbook = null;
本文链接

RFC_READ_TABLE

2010-05-19T07:53:00Z

先解释一下RFC_READ_TABLE的参数：
importing:
QUERY_TABLE：读取的表
DELIMITER：字段之间的分隔符（当选择多个字段时）
NO_DATA：输入'X'时，不向传出表DATA输出数据
ROWSKIPS：输出数据的第一条数据的行号（从0开始计）
ROWCOUNT：从ROWSKIPS开始，一共输出的数据行数（0代表所有数据）
Table:
OPTIONS：表查询条件，比如对MARA表来说，可以写MATNR = 'ABCD'。留空代表选择所有数据。
FIELDS：输出的表字段。留空代表输出所有字段。
DATA：输入的数据记录

其中第一个参数QUERY_TABLE应该是必输项，否则这次调用就无意义（不知道要选那个表啊！），函数返回TABLE_NOT_AVAILABLE错误。

调用字串中第一个参数是空字串。这应该是错误的原因。

FIELDS参数实际允许空

本文链接

quickreport 诡异的打印问题

2010-05-10T08:15:00Z

今天遇到一个quickreport的很诡异的打印问题,打印成pdf.xps都可以成功,打印.tif时输入文件名后却没有打印出图像,用实际的打印机也是在输入打印密码后就没反应了.无意中发现报表无法切换纵横向.重新将页面选成标准A4纸后,切换纵横向后居然解决问题.具体原因未知.有空再去深究.暂时把解决办法记下来备忘

本文链接

quickreport 打印问题

2010-05-10T08:10:00Z

今天早上业务部门反映一个用quickreport的报表打印不出来,经测试,出现的现像是用pdf和xps虚拟打印机可以,用实际的打印机和office 的.tif到输入密码或输入文件名后就没反映了,开始以为是句柄传输的问题,debug了半天也没有搞定,后来无意发现在页面设置的时候切换横向和纵向不成功,于是修改成标准A4纸,然后切换横向和纵向后居然打印成功 .究竟是什么原因实在没有搞明白,不过问题处理方式倒是管用.在此备忘一下.有空再去

本文链接

保证把你笑死啊！（紧供娱乐）

2010-04-14T12:17:00Z

保证把你笑死啊！（紧供娱乐）

老公:   现在几点？
  老婆：  十点。
  老公：整吗？
  老婆：  太早了吧，别人都没有睡觉呢!
  老公：我是问十点整吗？
  老婆：十一点再整吧。
  老公：你妈的,我问你是不是1 0点整。
  老婆：你妈的，1 1点在整，你一天不搞我你不得劲是不是？
  老公：我只是在问，现在是1 0点钟整么?
  老婆：  整整整，现在就整！！！！！

一天，  一位穿白衣裙子的美女在路上逛街时，  身上挂着的相机无意间掉到了地上，   刚好后面一位帅小伙看
见，  帅小伙捡起相机就往美女跑去，  边跑边喊，前面那位穿白衣裙子的小姐：你相机  “你像鸡”  你相机  “你像鸡”  美女听到后面有人喊自己像鸡，  火冒三丈，  转身时帅小伙已走到身前、  啪啪…  就给了帅小伙两巴掌，破口骂到：  你还像鸭，  路人也分分指责帅小伙没口德，  帅小伙觉得很委屈，  掉头就跑，  这时美女看到他手中拿的相机才明白怎么回事，  连声大喊：  我相机  “我像鸡”  我相机  “我像鸡”  顿时路人无不目瞪口呆。

一位女子征婚，开出的交友条件有两点
  1.要帅
  2.要有车
  电脑去帮她搜寻的结果~~~~~~~~~~~~~~~~~象棋

这位女子，不服搜出的结果又输入
1.要有漂亮的房子
2.要有很多钱
电脑去帮她再次搜寻的结果~~~~~~银行

此女子仍然不失望，继续输入条件
1要长得酷
2又要有安全感
结果搜出的结果是~~~~~~~~~~~~~~~~
~~~~~~~~奥特曼

此女子仍然不失望，还继续输入条件
1.要帅
2.要有车
3.要有漂亮的房子
4.要有很多钱
5要长得酷
6又要有安全感
电脑去帮她再次搜寻的结果~~~~~~~奥特曼在银行里下象棋

一男入厕，刚把门关上就听隔壁问：“你来了？”
　　他说：“是啊。”
　　可心里想，这隔壁是谁啊？我认识他吗？奇怪！
　　这时隔壁又问：“你来干吗啊？”
　　他生气的说：“拉屎啊！来这能干吗？！”
　　隔壁又问：“那你什么时候走啊？”
　　他想这人是有神经病！懊恼的说：“拉完就走！！”
　　这时隔壁又问：“那一会你来我这里一下吧，好吗？”
　　此人心里一惊：“靠！原来是同性恋！”
　　他大骂道：“你他妈的去死吧，变态！”
　　隔壁又说：“恩，先挂了吧，一会再给你打过去，我旁边来了个傻Ｂ！我说一句他接一句！！

甲老师在批改英语作文，忽然大发雷霆：“我从来没看过这么烂的英语作文”
乙老师见状问：“写的是什么啊？”
甲老师：“写一个王子和公主的故事。”
“不错啊”乙说。
“他竟然在开头写王子问公主‘can  you  speak  chinese?'
公主回答‘yes',
接下来的全部都是中文

夏天活捉到蚊子该怎麽办呢？
  1.当然要抚养他
  2.送他上学
  3.给他买房子
  4.帮他娶媳妇
  5.给他看孩子
   不然你还能怎麽办呢？
   毕竟它身上流的是你的血

v教授问：烂掉的萝卜和怀孕的女人有什么相同点？一学生妙答：都是虫子惹的祸。仅得60分。另一学生竟得满分，其答案为：都是因为拔晚了。

1.儿子学习不好，被妈妈痛骂，挨骂后，儿子用哀怨的眼神看着爸爸说：你为什么要娶她？爸爸也用哀怨的眼神说：还不是因为你！

2.一男子要跳楼,  刚赶回来的妻子大喊道:“亲爱的别冲动, 我们的路还长着呢!” 男子听后,  毫不犹豫嗖地跳了下去. 站在旁边的谈判专家说:“ 这位太太, 你真不应该这样威胁他。”

3.一懒猫疯狂地追求一老鼠,  终于结婚, 婚后猫对老鼠百般苛护,  老鼠很快变胖, 老鼠很感动:'  亲爱的为什么对我这么好呀!' 猫嘿嘿笑道:' 等你再胖一点就知道了.

4.朋友们一起去爬山,  到山顶, 一女生面对秀丽山河高喊:  祖国啊! 我的母亲!  一暗恋她的男生赶紧跟着大喊: 祖国啊! 我的丈母娘!

5.父亲：你都这样大了，该找一个老婆了。儿子：是呀，但茫茫人海，我找谁的老婆呢?
6.有一个人有一头神猪.  他不想要了，就想把猪甩掉，送到外面猪又回来！有一次他把猪送到很远的地方，后来他给妻子打电话说：猪回来了吗？妻子说：回来了！他说：叫猪来接我, 老子迷路了.

有一个神经病，不知从哪里弄到了一把手枪，他走在一条小黑色胡同里。突然遇上一个年轻人，神经病2 话不说将其安在地上用枪支着他的头！问道：1+1=几？年轻人吓坏了！沉思了许久.回答：等于2```？神经病毫不犹豫的开枪杀了他！然后把枪拽在怀里~冰冷的说了一句：你知道得太多了

上联：假名假姓假地址
下联：骗吃骗喝骗感情
横批：愿者上钩

上联：风在刮，雨在下，我在等你回电话
下联：为你生，为你死，为你守候一辈子
横批：发错人了

上联：爱国爱家爱师妹
下联：防火防盗防师兄
横批：恋爱自由

上联：看背影急煞千军万马
下联：转过头吓退百万雄师
横批：我的妈呀!

上联：说你行你就行不行也行
下联：说不行就不行行也不行
横批：不服不行

上联：忆往昔，红米饭，南瓜汤，老婆一个，小孩一帮
下联：看今朝，白米饭，王八汤，小孩一个，老婆一帮
横批：与时俱进

上联：为你痴为你累为你受尽所有罪
下联：为你死为你狂为你咣咣撞大墙
横批：为爱疯狂

上联：爱与被爱都艰难
下联：有情有缘要时间
横批：情义无价

上联：爱已停牌，情也斩仓，缘分滑到跌停板
下联：思正牛市，想无熊市，感情无法投长线
横批：赶紧补仓

上联：男生，女生，穷书生，生生不息
下联：初恋，热恋，婚外恋，恋恋不舍
横批：生无可恋

上联：我爱的人名花有主
下联：爱我的人惨不忍睹
横批：命苦

上联：情已欠费爱已停机缘分不在服务区
下联：思无应答想也占线感情不能再充电
横批：心若移动如何联通

●愿进来的朋友都误入金山掉进钱海踩着快乐惹上幸福每天都笑口常开笑死活该单身朋友情人节最好再撞上艳遇的快车！呵呵O(∩_∩)O~
------------------------------------------

香港回归十周年的庆典上,胡锦涛握住刘德华的手说:我认识你
刘:十分激动
胡:你是张学友
刘:热泪盈眶
胡:你的那首菊花台我很喜欢
刘:谢谢毛主席
5
一农民赶牛车进城被警察拦下，理由是没有车牌。农民愤怒找来一木板写了一牌挂上，警察当场晕倒，只见牌上写着：牛B—74110

农夫要杀公鸡却逮不着，于是抓起母鸡对公鸡说：再不下来让你当光棍儿！公鸡：你他妈以为我傻呀，我下去她就成寡妇了。。。

不要迷恋哥，哥只是传说；
不要恶搞姐，姐让你吐血；
不要牵挂妹，妹只是两行泪；
不要小看弟，弟可是杀虫剂；
不要羡慕爸，爸只是神话；
不要忽略妈，妈当年一朵花！
石头记告诉我们，凡事真心爱的最后都散了，凡事混搭的最后都团圆了！
人家有的是背景，而我有的只是背影～>_<～
树不要脸，必死无疑；人不要脸，天下无敌！
路见不平一生吼，吼完继续往前走！
钻石恒久远，一颗就破产！
什么是幸福？幸福就是猫吃鱼，狗吃肉，奥特曼打小怪兽！
名花虽有主，我来松松土！
孤单是一个人的狂欢，狂欢是一群人的孤单！
我左青龙，右白虎，肩膀纹个米老鼠！
虽然我长得不是很帅，但小时候也有人夸我左鼻孔长得很偶像派！
再牛的肖邦，也弹不出老子的悲伤！
思想有多远，你就给我滚多远！
执子之手，拖去喂狗！
看了神雕侠侣，知道了年龄不是问题；
看了断背山，知道性别不是问题；
看了金刚，才发现物种也不是问题；
想起了人鬼情未了，才真正懂得…原来死活都不是问题！(^o^)

我、那么爱你，
你、爱理不理。
我、对你放电，
你、装没看见。
你、喝着红牛，
我、口水直流。
我、抽一根烟，
你、叫我靠边。
我、喝一口酒，
你、扭头就走。
我、请你吃饭，
你、比谁都快。
我、牵你的手，
你、浑身发抖。
我、给你接吻，
你、死都不肯。
你、无情无意，
我、决定放弃。
我、刚要跳楼，
你、才回过头。
你、回心转意，
我、刚好落地。
你、哭得像鬼，
我、死的后悔。
大海啊。尽是水！
天空啊。尽是云！
蜈蚣啊。尽是腿！
地狱啊。尽是鬼！
辣椒啊。尽辣嘴。
朋友啊，我做鬼也不会放过你。
有你们这些朋友啊，我永不后悔！

本文链接

完全解决VS2008通过Internet连接VSS2005

2010-04-14T08:05:00Z

今天是2009年的第一天，在这里祝园子里的朋友在新的一年里工作顺利，万事如意，财源广进，牛年技术牛哄哄。
最近在负责一个项目的开发，刚开始没有什么经验，连源代码如何管理都不知道，在网上找了很多源代码管理工具ClearCase、CVS、SubVersion等，但是没有一个成功的，郁闷呀！
后来还是想到了VS2005，毕竟VSS2005和VS2008还是近亲呢，但是以前只用过局域网设置VSS2005，还没有用过Internet连接VSS2005，一下子激情又来了。
通过近一个星期的反复设置（没有任何人指导），终于（完全）解决了用VS2008能过Internet连接VSS2005，现在把我近一段时间的经验总结出来供大家参考，也可以说把它做为新年的礼物送给园子里的朋友，再次祝大家新年快乐！
关于VS2008通过Internet连接VSS2005的基础设置，我在这里就不再多说了，大家可以在网上搜索一下，会有很多千篇一律的文章，或者大家可以直接参考：http://www.web3.cn/Content,2006,6,18,151.aspx
在这里我主要是想总结一下，在这基础设置过程中可能遇到的问题及解决方法：
1. 针对问题：完成后打开数据库（因为需要通过INTERNET远程访问VSS，所以打开数据库时不能使用类似于D:\VSS之类的目录名，而应是\\机器名\VSS数据库所在的共享名,例如：\\MyServer\vss，要求数据库；），然后，再进入server->configure菜单时总是报错,报错信息是:the werver configuration settings apply only for local database.to configgure the server for this database you will need to run visual sourcesafe admin program on the machine hosting the database. "
解决方法：是在设置类似D:\VSS之类的目录共享时，把共享的权限设置为完全控制就可以了。
2. 另外在设置Web服务器下的Vss共享目录时应该注意一个细节问题（如图），否刚总是出错无法进行下去。
解决方法：在这一步最好是通过“Browse…”按钮从网上邻居上选择刚才共享的Vss目录，虽然最后结果都是（假设）“\\Rsj\vss“，如果你要是手动设置“\\Rsj\vss”可能就会出错（我在这点就郁闷了好长时间）。
3. 如何你已经设置完成VSS2005并测试成功后，你可能就会在VS2008连接VSS的过程中遇到下面的问题。
4. 另外还要打开服务器上IIS中服务扩展中的WebDav服务。
5. 问题：Visual SourceSafe Internet plug-in could not connect to the specified database
Secure communication using SSL needs to be enabled for this database to use your SourceSafe logon name. Otherwise the database administrator will need to create a SourceSafe user matching your network user name and allow using network names for automatic user log in
解决方法：不要忘了在设置VS2008的“插件设置”时，单击“高级”去掉“Always use SSL to connect to the server”选择
6. 用VS2008连接上了VSS2005，但是总是选不中项目文件，一选项目文件找打开时就又回到了我的电脑文件，这个问题是VSS2005针对VS2008的一个bug，只要下载VSS2005补丁安装就可以了，补丁下载地址：http://download.microsoft.com/download/7/1/f/71fdb 660-4e69-471a-ad58-d984b45cc140/VS80-KB943847-X86-I NTL.exe
7. 一切都正常后，你可能还会遇到这样的问题：隔一段时间后发现VSS2005居然连不上了，重启VSS服务器（Win2003）后，一切又正常了，检查发现是VSS的共享目录的共享功能自动取消了，这是Win2003自身的bug，只要更新或打上补丁就可以了，补丁名称为WindowsServer2003-KB921883-x86-CHS.exe，你可以到网上搜索下载。
以上是本人在实际实践过程遇到的问题，现在总结下来供大家参考，也可以少浪费一点宝贵的时间（本人已经浪费了很多了，幸亏没有白浪费），当然可能还有很多问题没有总结出来，因为问题太多，工作又比较忙，一直没有抽出时间总结，只有今天过年休假才有点时间匆匆总结一下，以后如果想起来还会再补充上来，当然大家也可以把你遇到的问题也补上来供大家参考。
http://www.cnblogs.com/DotNet1227/

本文链接

在ASP.NET利用System.Data.OracleClient访问Oracle数据库的方法

2010-04-12T14:35:00Z

本文简要介绍了使用ASP.NET访问Oracle数据库的方法。首先，介绍了组件的安装；其次，简单说明了System.Data.OracleClient中包含的核心类；最后，通过一个实例讲解了具体的使用方法。

引言

Microsoft .NET Framework Data Provider for Oracle(以下简称为.NET for Oracle)是一个.NET Framework的组件。这个组件为我们使用.NET访问Oracle数据库提供了极大的方便。那些使用.NET和Oracle的开发人员，相信会乐的手舞足蹈，因为他们再也不必使用那个并不十分“专业="的OLEDB来访问Oracle数据库了。这个组件的设计非常类似.NET中内置的Microsoft .NET Framework Data Provider for SQL Server和OLEDB。如果读者非常熟悉这两个内置的组件，那么相信您学习这个组件也是轻车熟路的。

本文针对的读者主要是那些考虑使用.NET技术访问Oracle数据库的程序员而编写，需要有一定的C#语言、ADO.NET技术和Oracle数据库基础知识。文中结合ASP.NET技术给出了相关示例以及具体的注释。当然，这并不意味着.NET for Oracle组件只能为编写ASP.NET程序提供服务，同样它还可以为使用.NET技术编写的Windows程序提供方便。

本文将简要介绍ASP.NET for Oracle的系统需求和安装以及核心类，之后重点详解使用此组件访问Oracle数据库的方法。其中包括.NET for Oracle对于各种Oracle数据库中的特殊数据类型的访问、各种核心类使用方法的介绍并且在文章的最后给出了示例等等。

系统需求和安装

在安装.NET for Oracle之前，必须首先安装.NET Framework version 1.0。同时，还要确定安装了数据访问组件（MDAC 2.6及其以上版本，推荐版本是2.7）。既然是要访问Oracle数据库的数据，那么还需要安装Oracle 8i Release 3 (8.1.7) Client及其以上版本。目前Oracle9i已经发布，作者本人安装的是Oracle 9i，本文中所有的程序，都是在Oracle9i数据库环境下编写和调试完成的。

组件的安装非常方便，直接运行oracle_net.msi。在安装过程中无需任何设置，一路点击“NEXT="完成安装即可。默认安装将在C:\Program Files\ Microsoft.NET目录下建立一个名为OracleClient.Net的文件夹，其中包含以下六个文件，具体的注释如下表：

注意：Mtxoci8.dll文件并未安装在默认文件夹中，而是安装在系统目录中，例如：c:\Windows\System32目录中。

对于开发人员，其中至关重要的是System.Data.OracleClient.dll文件。这是.NET for Oracle组件的核心文件。使用时，开发人员可以通过安装oracle_net.msi来使用.NET for Oracle组件，这时系统会将此组件作为一个系统默认的组件来使用，就好像是我们所熟悉的System.Data.SqlClient和System.Data.OleDb组件一样。但是，需要注意的一点是：当开发人员完成了程序之后分发给用户使用时，出于对于软件易用性的考虑，我们是不希望当用户使用此软件之前，还要如同开发人员一样安装oracle_net.msi。这时开发人员可以在发布之前，将System.Data.OracleClient.dll文件复制到软件的bin目录下。这样用户就可无需安装oracle_net.msi而正常的使用软件所提供的功能了。（这种方法限于开发的程序不涉及分布式事务）

核心类介绍

.NET for Oracle组件中用于组织类和其他类型的名字空间是System.Data.OracleClient。在此名字空间中，主要包含四个核心类，它们分别是：OracleConnection、OracleCommand、OracleDataReader、OracleDataAdapter。如果开发人员很了解ADO.NET技术，那么对于这四个类的使用将是耳熟能详的。这些内容非常简单，其具体使用方法几乎和SqlConnection、SqlCommand、SqlDataReader、SqlDataAdapter是一模一样的。这里就不再详细说明，读者将在后文中通过示例了解使用这些类的有关情况，这里只给出下表以供读者简要了解。

举例说明

下面是一个使用.NET for Oracle组件操纵Oracle数据库的例子。在写程序之前，先要在Oracle数据库中建立一个表，并且加入一行数据。使用下面的语句。

建立一个名为OracleTypesTable的表
"create table OracleTypesTable (MyVarchar2 varchar2(3000),MyNumber number(28,4)
Primary key ,MyDate date,MyRaw RAW(255))";
插入一行数据
"insert into OracleTypesTable values ('test',4,to_date('2000-01-11
12:54:01','yyyy-mm-dd hh24:mi:ss'),'0001020304')";
下面的程序就是要通过.NET for Oracle组件来访问Oracle数据库，并且显示出这行数据。在程序中请注意前文中所说明的类，并且联想.NET中关于数据处理类的使用方法。

1. using System;
2.using System.Web;
3.using System.Web.UI;
4.using System.Web.UI.HtmlControls;
5.using System.Web.UI.WebControls;
6.using System.Data;
7.using System.Data.OracleClient;

8.public class pic2:Page {
9. public Label message;
10. public void Page_Load(Object sender,EventArgs e)
11. {
//设置连接字符串
12. string connstring="Data Source=eims;user=zbmis;password=zbmis;";
//实例化OracleConnection对象
13. OracleConnection conn=new OracleConnection(connstring);

14. try
15. {
16. conn.Open();
//实例化OracleCommand对象
17. OracleCommand cmd=conn.CreateCommand();

18. cmd.CommandText="select * from zbmis.OracleTypesTable";
19. OracleDataReader oracledatareader1=cmd.ExecuteReader();
//读取数据
20. while (oracledatareader1.Read()) {
//读取并显示第一行第一列的数据
21. OracleString oraclestring1=oracledatareader1.GetOracleString(0);
22. Response.Write("OracleString " +oraclestring1.ToString());

//读取并显示第一行第二列的数据
23. OracleNumber oraclenumber1 =oracledatareader1.GetOracleNumber(1);
24. Response.Write("OracleNumber "+oraclenumber1.ToString());

//读取并显示第一行第三列的数据
25. OracleDateTime oracledatetime1=oracledatareader1.GetOracleDateTime(2);
26. Response.Write("OracleDateTime " +oracledatetime1.ToString());

//读取并显示第一行第四列的数据
27. OracleBinary oraclebinary1=oracledatareader1.GetOracleBinary(3);
28. if(oraclebinary1.IsNull==false)
29. {
30. foreach(byte b in oraclebinary1.Value)
31. {
32. Response.Write("byte " +b.ToString());
33. }
34. }
35. }
//释放资源
36. oracledatareader1.Close();
37. }
38. catch(Exception ee)
39. {
//异常处理
40. message.Text=ee.Message;
41. }
42. finally
43. {
//关闭连接
44. conn.Close();
45. }
46. }
47.}
如果您对于.NET中数据操作的内容很熟悉，那么相信上面的程序是完全看得懂的。所以在这里分析上面代码意义不是很大。

请那些既使用.NET又使用Oracle的读者记住：.NET for Oracle组件的设计非常类似.NET中内置的Data Provider for SQL Server和OLEDB

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/gztoby/archive/2004/08/13/74266.aspx

本文链接

使用Oracle ODP.NET 11g的.NET程序发布方法

2010-04-12T14:25:00Z

ODP.NET 11g是Oracle发布的供.NET程序访问Oracle数据库的ADO.NET组件，比微软自带的Oracle组件性能好，更可以访问UDT(User Defined Type)类型，Procedure，REF等等高级Oracle特性。

　　.NET 1.1的客户端需要的发布文件如下：

　　◆Oracle.DataAccess.dll (odt111odp.netin1.x)

　　◆OraOps11.dll （odt111in）

　　.NET 2.0需要发布：

　　◆Oracle.DataAccess.dll (odt111odp.netin2.0)

　　◆OraOps11w.dll （odt111in）

　　上面的客户端均需要OCI基本包支持：

　　◆oci.dll

　　◆oraociei11.dll (也可以用更小的oraociicus11.dll代替)

　　◆orannzsbb11.dll

　　为了在客户端测试方便，还可以加上SQL*Plus包，包括两个文件：

　　◆sqlplus.exe

　　◆orasqlplusic11.dll

　　发布sqlplus包可以使用sqlplus "user_name/password@//192.168.1.31:1521/ORCL"在客户端测试Oracle的状态。

　　根据上面原则，最小的ODP.NET Oracle客户端发布文件包括5个文件，压缩后大小为8MB：

　　◆oci.dll

　　◆oraociicus11.dll

　　◆orannzsbb11.dll

　　◆Oracle.DataAccess.dll

　　◆OraOps11.dll

本文链接

C#连接Oracle数据库的简单应用

2010-04-12T14:20:00Z

一、使用OracleClient组件连接Oracle

.Net框架的System.Data.OracleClient.dll组件（ADO.Net组件），为连接和使用Oracle数据库提供了很大的方便。

1、使用客户端网络服务名连接Oracle

基于业务逻辑与数据库实体的分层需要，一般要求在不同于Oracle数据库主机的客户端机器连接和使用Oracle数据库。这种情况要么是通过C/S应用程序的客户端访问数据库的情况；要么是在B/S应用程序中，在WEB服务器端远程连接Oracle数据库服务器。

通过客户端网络服务名远程连接Oracle，要求在客户端机器中安装Oracle客户端工具（安装类型可以不必选择“管理员”模式，而只需要安装运行时支持即可，为应用程序提供基本的网络服务配置工具等）。

建立连接的语句比较简单，关键点为data source的设置。这里的data source不像SqlServer连接字串中指的是数据库名称，而是指客户端网络服务名（相关内容请参考前面有关客户端安装的文章）。对于本文的Oracle安装来说，data source对应着E:\Oracle_Client\oracle\ora92\network\admin\tnsnames.ora配置文件中的网络服务名（出于方便试验的原因，数据库与独立的客户端工具分别安装在了同一台机器的不同目录）。在具体实施连接时，将根据data source的值去该客户网络服务配置文件中查找对应项，以获取数据库服务器主机地址、端口、全局数据库名等连接信息。

建立连接的主要代码如下：

......

using System.Data.OracleClient;

......

//这里的“remotedb”对应于“Oracle客户端的安装与远程连接配置”一文中配置的客户端网络服务名

OracleConnection conn=

new OracleConnection("data source=remotedb;User Id=scott;Password=scott;");
conn.Open();

......

2、本地连接和使用Oracle

本地使用Oracle是指在安装Oracle数据库的主机中连接和使用Oracle数据库。从安全性和负载均衡的角度考虑，这种方式是不可取的。这里仅作为实验使用。

本地连接的代码与远程连接实际上没有什么分别，只不过其data source指向服务器端的客户网络服务名。对于本文的数据库安装，它指向E:\Oracle_Server\oracle\ora92\network\admin\tnsnames.ora文件中所定义的网络服务名（有关内容请参考“Oracle客户端的安装与远程连接配置”一文）。

对于这种本地连接方式，在服务器端不能存在独立安装的客户端工具，否则data source只会去匹配独立客户端的tnsnames.ora文件，即使找不到对应的网络服务名，也不会再去匹配服务器端的服务名。这不知是.Net组件的设计错误，还是故意为之，以鼓励远程连接和使用Oracle。

二、使用OleDB组件连接和访问Oracle数据库

OleDB组件是通过Oracle OleDB驱动程序（OraOLEDB.dll）连接和访问Oracle数据库，使用OleDB驱动的前提也是要在客户端安装运行时环境。可以采用自定义的客户端安装方式，安装包括OraOLEDB.dll等在内的必须的文件，可以不必安装包括配置客户网络服务等的客户端工具。在这种情况下，OleDB的连接字串及简单访问数据库的代码如下所示：

......

using System.Data.OleDb;

......

//这里的Data Source直接被赋值为类似tnsnames.ora文件中网络服务名定义的内容，不再需要客户端

//的配置文件tnsnames.ora(OracleClient也可以这样处理）

OleDbConnection conn=
new OleDbConnection("Provider=OraOLEDB.Oracle.1;Server=localhost;

Data Source=(DESCRIPTION =(ADDRESS_LIST =(ADDRESS = (PROTOCOL = TCP)

(HOST = localhost)(PORT = 1521)))(CONNECT_DATA =(SERVICE_NAME = mydb.bawei)));

             User ID=scott;Password=scott;");
    conn.Open();
    OleDbCommand comm=new OleDbCommand("select * from scott.emp",conn);
    OleDbDataReader dr=comm.ExecuteReader();

   Console.WriteLine("姓名      职位");
    while(dr.Read())
    {
          Console.WriteLine(dr.GetString(1)+"   "+dr.GetString(2));

}
    Console.ReadLine();
    dr.Close();
    conn.Close();

......

使用OleDB组件可以获得比OracleClient更高的效率和性能，因为OleDB是比ADO.NET更底层的组件，ADO.NET也要通过OleDB获取数据。

三、一个使用Oracle存储过程的简单登录验证程序

1、创建用户表

作为实验用表，用户表admin仅包含用户名和密码两个字段。创建表的SQL语句如下：

CREATE TABLE SCOTT.ADMIN ("NAME" VARCHAR2(20) NOT NULL,

"PASSWORD" VARCHAR2(20) NOT NULL) TABLESPACE "EXAMPLE"

2、创建验证用户登录的存储过程

CREATE OR REPLACE PROCEDURE "SCOTT"."P_LOGIN" (v_Name varchar2,

           v_Password varchar2,b_Passed out char) as
      n_Count number;
      begin
        select count(*) into n_Count from admin where name=v_Name and password=v_Password;
        if n_Count > 0 then
           b_Passed:='1';
        else
           b_Passed:='0';
        end if;
      end;
    3、在Sql Plus等sql工具中使用PL/SQL测试存储过程是否可用：

   set serveroutput on;
    declare
      v_Name varchar2(20);
      v_password varchar(20);
     b_Passed char(1);
    begin
      v_Name:='mxh';
      v_Password:='mxh';
      p_Login(v_Name,v_Password,b_Passed);
      if b_Passed ='1' then
        DBMS_OUTPUT.PUT_LINE('SUCCESS');
      end if;
   end;

4、创建一个登录窗口，实验C#对存储过程的调用：

（1）编写数据访问类，用于访问和操作数据库：

//DataAccess.cs

   using System;
    using System.Data;
    using System.Data.OracleClient;

   namespace OraLoginProcedure
    {
      public class DataAccess
       {
          private string connStr="data source=yourdb;User Id=scott;Password=scott;";
          private OracleConnection conn=null;

         public DataAccess()
          {
          }

         public DataAccess(string strConnection)
          {
              this.connStr=strConnection;
          }

         public OracleConnection getConnection()
          {
             try
             {

               if(conn==null)
                   conn=new OracleConnection(connStr);
                if(conn.State==ConnectionState.Open)
                   conn.Open();
                return conn;
             }
             catch(OracleException e)
             {
                throw e;
            }
           }

          public void closeConnection()
           {
             if(conn.State==ConnectionState.Open)
                 conn.Close();
           }

//执行存储过程

          public void RunProcedure(string storedProcName,OracleParameter[] parameters)
           {
              OracleCommand cmd=new OracleCommand(storedProcName,getConnection());
              cmd.CommandType=CommandType.StoredProcedure;
              foreach(OracleParameter parameter in parameters)
              {
                 cmd.Parameters.Add(parameter);
              }
              cmd.ExecuteNonQuery();//执行存储过程
              closeConnection();
           }

//执行登录验证（在实际应用中应该把这种执行业务逻辑的代码与数据操作基础代码分离，以

//实现软件的清晰分层、增强代码的可复用性）

          public bool Login(string username,string password)
           {
               OracleParameter[] parameters={
                     new OracleParameter("v_Name",OracleType.VarChar,20),
                     new OracleParameter("v_Password",OracleType.VarChar,20),
                     new OracleParameter("b_Passed",OracleType.Char,1)
              };
               parameters[0].Value=username;
               parameters[1].Value=password;
               parameters[0].Direction=ParameterDirection.Input;
               parameters[1].Direction=ParameterDirection.Input;
              parameters[2].Direction=ParameterDirection.Output;
               try
               {
                  RunProcedure("P_LOGIN",parameters);
                  if(parameters[2].Value.ToString() == "1")
                     return true;
                  else
                     return false;
              }
               catch(Exception e)
               {
                  throw e;
               }
            }
         }
      }

（2）编写登录验证的界面程序：

登录界面比较简单，也未考虑对输入数据的合法性验证。界面如下图所示：

//Form1.cs

......

using System.Data;

   namespace OraLoginProcedure
    {
       public class Login : System.Windows.Forms.Form
       {
          private System.Windows.Forms.Button button1;//登录按钮

private System.Windows.Forms.TextBox textBox1;//用户名输入框

         private System.Windows.Forms.TextBox textBox2;//密码输入框
          private System.Windows.Forms.Label label1;
          private System.Windows.Forms.Label label2;

......

         public Login()
          {
              InitializeComponent();

}

......

         /// <summary>
          /// 应用程序的主入口点。
          /// </summary>
          [STAThread]
          static void Main()
          {
             Application.Run(new Login());
          }

         private void button1_Click(object sender, System.EventArgs e)
          {
             try
             {
                string username=textBox1.Text.Trim();
                string password=textBox2.Text.Trim();
                this.Close();//关闭界面后就读不到其中的控件输入了
                DataAccess da=new DataAccess();
                if(da.Login(username,password))
                   MessageBox.Show("Hello "+username);
                else
                   MessageBox.Show("Login failed");
                Application.Exit();
              }
              catch(Exception ex)
              {
                 this.Close();
                 MessageBox.Show(ex.ToString());
                 Application.Exit();
              }
           }
        }
    }

本文链接

TStringList 常用方法与属性&DelimitedText空格问题

2010-04-12T07:51:00Z

TStringList 常用方法与属性&DelimitedText空格问题
//TStringList 常用方法与属性:
var
List: TStringList;
i: Integer;
begin
List := TStringList.Create;
List.Add('Strings1');           {添加}
List.Add('Strings2');
List.Exchange(0,1);             {置换}
List.Insert(0,'Strings3');      {插入}
i := List.IndexOf('Strings1'); {第一次出现的位置}
List.Sort;                      {排序}
List.Sorted := True;   {指定排序}
List.Count;                     {总数}
List.Text;                      {文本集合}
List.Delete(0);                 {删除, 0是第一个数据}
List.LoadFromFile('c:\tmp.txt');{打开}
List.SaveToFile('c:\tmp.txt'); {保存}
List.Clear;                     {清空}
List.Free;                      {释放}
end;

//读入字符串
var
List: TStringList;
begin
List := TStringList.Create;
List.CommaText := 'aaa,bbb,ccc,ddd';
//相当于: List.Text := 'aaa' + #13#10 + 'bbb' + #13#10' + 'ccc' + '#13#10' + 'ddd';

ShowMessage(IntToStr(List.Count)); //4
ShowMessage(List[0]); //aaa

List.Free;
end;

//置换分隔符
var
List: TStringList;
begin
List := TStringList.Create;
List.Delimiter := '|';
List.DelimitedText := 'aaa|bbb|ccc|ddd';

ShowMessage(IntToStr(List.Count)); //4
ShowMessage(List[0]); //aaa

List.Free;
end;

//类似的哈希表操作法
var
List: TStringList;
begin
List := TStringList.Create;

List.Add('aaa=111');
List.Add('bbb=222');
List.Add('ccc=333');
List.Add('ddd=444');

ShowMessage(List.Names[1]); //bbb
ShowMessage(List.ValueFromIndex[1]); //222
ShowMessage(List.Values['bbb']); //222

//ValueFromIndex 可以赋值:
List.ValueFromIndex[1] := '2';
ShowMessage(List[1]); //bbb=2

//可以通过 Values 赋值:
List.Values['bbb'] := '22';
ShowMessage(List[1]); //bbb=22

List.Free;
end;

//避免重复值
var
List: TStringList;
begin
List := TStringList.Create;

List.Add('aaa');

List.Sorted := True; //需要先指定排序
List.Duplicates := dupIgnore; //如有重复值则放弃

List.Add('aaa');

ShowMessage(List.Text); //aaa

//Duplicates 有3个可选值:
//dupIgnore: 放弃;
//dupAccept: 结束;
//dupError: 提示错误.

List.Free;
end;

//排序与倒排序
{排序函数}
function DescCompareStrings(List: TStringList; Index1, Index2: Integer): Integer;
begin
Result := -AnsiCompareText(List[Index1], List[Index2]);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
List: TStringList;
begin
List := TStringList.Create;

List.Add('bbb');
List.Add('ccc');
List.Add('aaa');

//未排序
ShowMessage(List.Text); //bbb ccc aaa

//排序
List.Sort;
ShowMessage(List.Text); //aaa bbb ccc

//倒排序
List.CustomSort(DescCompareStrings); //调用排序函数
ShowMessage(List.Text); //ccc bbb aaa

//假如:
List.Sorted := True;
List.Add('999');
List.Add('000');
List.Add('zzz');
ShowMessage(List.Text); //000 999 aaa bbb ccc zzz
end;

DelimitedText空格

DelimitedText 空格也默认为分割符的原因很简单:
Borland的程序员把这个属性对应的write方法中的一行代码多加了一个空格。

2种方法解决这个问题。

空格问题的解决方法之一:
先StringReplace用一个特殊字符替代空格，然后StringReplace回来
ss:='aa|bb c| c';
ss:= StringReplace(ss,' ','#',[rfReplaceAll]);
s:= TStringList.Create;
s.Delimiter:= '|';
s.DelimitedText:= ss;
for i:= 0 to s.Count - 1 do
begin
s[i]:= StringReplace(s[i],'#',' ',[rfReplaceAll]);
memo1.Lines.Add(s[i]);
end;

空格问题的解决方法之二:

找到 {DelphiInstDir}\source\Win32\rtl\common\Classes.pas 文件，知道SetDelimitedText函数。如下所示：

注：{DelphiInstDir}为Delphi安装目录

procedure TStrings.SetDelimitedText(const Value: string);
var
P, P1: PChar;
S: string;
begin
BeginUpdate;
try
Clear;
P := PChar(Value);
while P^ in [#1..' '] do
{$IFDEF MSWINDOWS}
P := CharNext(P);
{$ELSE}
Inc(P);
{$ENDIF}
while P^ <> #0 do
begin
if P^ = QuoteChar then
S := AnsiExtractQuotedStr(P, QuoteChar)
else
begin
P1 := P;
// while (P^ > ' ') and (P^ <> Delimiter) do //源代码
while (P^ > '') and (P^ <> Delimiter) do //修改后的代码

为方便携带，可将Classes.pas 文件重新编译到你的工程文件中即可。步骤：工程-添加到工程-Classes.pas

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/xiaguamanshu/archive/2010/04/11/5472695.aspx

本文链接