love

         这些天，一件事情把我折磨的几近崩溃，所有的计划都泡汤了，一个月就在极度不安中度过，不知道这样的生活何时是个尽头。上天呀，给我力量，给我运气吧，我这是受的哪门子罪呀
        本身这个月我辞职是想回家歇一段时间的，因为我精神上太累了，谁知道又被她搅得一团糟。
        二姐胳膊上长了个纤维瘤，本身家里每个人都买的有医保，我想让她回家治疗，于是我把我回家的火车票给了她，我留在西安，本想可以好好休息一段时间了，谁知道她又把我搅得寝室难安，没有学习，也没休息，搞得更加疲惫。本身回家的目的就是要用医保，谁知道她就把病情鉴定上的名字给搞错，还口口声声说是人家这也不报，那也不报，又是最后就是报也就报那一两百块，我说不管怎样你就试试那个报销流程到底是怎么整的，最后她才又说名字不符的事情，简直都快把我气炸了。
       后来我想着不报销就不报销，在家里要得比在外面便宜些，就让她在家里最好的医院做了算了，结果她说医生说让等到礼拜一，这可是等，仰着脸等到了礼拜一去了，医生又说先住两天院才可以排上号，说白了就是不能让他们的病床空着，我说那也可以，两天才多少钱吗，不住也可以，把钱交了，结果她就在那里和医生染，最后那医生实在生气就把给她开的入院证明给撕了，她很生气又去其它医院问情况，原因就是想找个便宜的地方做了，她说她觉得问题不大，我想如果是这样，干脆我给你打针麻药，拿把菜刀给弄了算了，我不收你一分钱，再说了钱的问题我根本没让你考虑，谁让你管了，回家马上一个月了，就这个屁事还没搞定，气得我头晕的受不了，家里也没一个管事的人。这些心都白操了。那么大的人了，啥时间能让父母放心呀，怎么就那么自私自利的，搞得父母和兄弟姐妹没一个能安宁的。
     昨天让她买火车票，又没买，耗到今天还说邮局不卖了，到火车站也买不上票，那你总待在家里就是办法吗，就有人把票给你送到家里来吗？我几乎要崩溃了，这样的日子再过下去，我看我还不如回家种地去，现在整得一身病

    不知道人的命是不是真的是天注定的,难道我的命真的就是那么苦,这些天我总觉得他变了很多,变得我有点不认识了,如果说他进步我,我当然高兴,可是象他那样的人竟然说一些坏人说的话,不能说说这些话的人是坏人,可至少坏人都说这些话,所以我很担心,最多的是难过,我知道象他这样的人最容易变坏,我不能这么敏感,可是我太爱他,我受不了他有一点不好,只希望他能越来越优秀.
     最为女人,我觉得在我心目中他现在居第一位,甚至超出了父母,他怎么能忽略我的感受,而说一些难听的话,他说我是他的马子,知道我听完这句话后,我心里想的最多的是什么吗?也是他一去广东我就非常担心,我担心他在那边学坏,因为这个我不知道操了多少心,可是,我却发现在他的心里我并不是那么重要,我不敢肯定他是不是做过对不起我的事情,但我至少感觉他去过那些地方或者看过一些不三不四的东西,听着他用的那些词语,我的心都被掏了出来,可他没有丝毫的感觉,还口口声声和我说他要进步......
         不知道我俩的结局是不是个悲剧,最起码我知道我会很心痛,也许一辈子都好不起来.真不知道男人整天都在想什么,看来我对他还是了解不够,不过,不管怎样,我都不会强求,他愿怎样就怎样,如果我真的管不了,我只能在心里替他祈祷,但愿他能有所成就,但一定不能让他学坏.
       上天呀,别再让我有这么多的痛苦了,我真的受不了了,活这二十多年,没有一天是太平的,真希望自己天天快乐

    这段时间心里好烦，计划全乱了。
    我实在受不了这样的生活，我辞职了，其一是因为工作实在是无聊，但它起码提供我的一日三餐；其二是我实在不想在西安待了，看见她我都烦得要命，怕在这里再待下去我会发疯的。我辞职了，本来想回家住一段时间，可是偏偏家里又让我捎东西，我在想办法帮家人买，可是弄了几天都没有眉目，整得我好烦什么都不想管了，本来想好好歇歇，可现在却整得我好累，我真不知道这个家的烂事什么时间是个完，我实在受不了了，我心神疲惫，真的再不想回家了，可我告诉了高中的几个好朋友，我不能总失信于她们，最终我买了回家的火车票，可正当我收拾好东西准备回家的这天，她就又出了问题，我想想现在我也不上班了，哪儿有那么多钱给她治病，于是临时决定让她回了，我也只能留在西安，因为这里的网线，笔路线都帮她弄好了，她不在这里又不能交着钱不用，再说了，她不在这里我可以学些东西，也不至于那么烦。可我这心里就是不舒服，为什么你一个做姐的什么事情都让妹妹来替你思考，有时间我气的受不了的时候我真的好想死掉，我觉得我的精神再承受不了这样的压力。
          其它还可以原谅，为什么你有病不看，难道连这点事都处理不了，我真不知道你是否知道我内心的感受，我觉得自己太累了。家里让帮忙捎东西，你在家里闲着都不帮忙，你太自私了，真不知道别人说你是妹我是姐时你内心的感受，我觉得是心痛，真不知道这样的生活何时是个尽头。
         不管你吧你是我姐，管你吧，我实在没那么大的力气，也没那本事。总不能事事都还让别人替你思考，你已经不是一个孩子，父母都已经老了，你想过没有，接下来该怎么办，他们万一有个三长两短的，你不觉得愧疚吗，你怎么就那么毒？还把自己当小孩，三十多岁了，是该独立了，我好着急，好无奈。
        本来这次辞职是想回家看看，然后去广州，学习一个月，然后再在那里找份工作，可现在看来只能在西安找了，我这辈子离不开西安了，好烦，烦的要命。每次的计划都被你打乱，你非要让我和你一样到了三十岁也一事无成？过完年我要考研，可你迟迟不找工作，一直把我拖到现在，对于今年的考研有点晚，再说经济条件也不允许，不得已我还是要上班，我真不知道我会不会疯掉
        真想对着天空大喊“我受不了了”，可是我却不能，不管自己的心里再怎么苦，都只能咽到肚子里，对于别人还要天天面带微笑，有时我真怀疑这是我吗？是吗，我还能受得了吗，我还能撑多长时间，我现在最都的想法就是离开这个家，不再想这个家里任何事情，可是我却做不到，我不能这样做，父母该怎么办？我一直在坚持，坚持，但愿半年之内情况有所转变，否则我真不知道该怎么面对这一切

//Access //Access->TXT procedure TForm1.Button1Click(Sender: TObject); begin   sSql := 'select * into [Text;Database=f:\].aaa.txt from demo';   with AccessConnection do     begin       Connected := True;       Execute(sSql);     end; end; //Access->DBF procedure TForm1.Button3Click(Sender: TObject); begin   sSql := 'select * into aaa in ''f:\'' ''dbase 5.0;'' from demo';   with AccessConnection do     begin       Connected := True;       Execute(sSql);     end; end; //Access->Excel //注意:前一个aaa为Excel文件中的aaa页,后一个aaa为Access文件demo.mdb中的一个 表名 procedure TForm1.Button9Click(Sender: TObject); begin   sSql :=     'select * into aaa from aaa in ''E:\Delphilx\ADOSQL\PH\demo.mdb''';   with ExcelConnection do     begin       Connected := True;       Execute(sSql);     end; end; //Access->Access procedure TForm1.Button4Click(Sender: TObject); begin   sSql := 'select * into aaa from demo in ''E:\Delphilx\ADOSQL\PH\demo.mdb''';   with AccessConnection do     begin       Connected := True;       Execute(sSql);     end; end; //TXT->Access procedure TForm1.Button2Click(Sender: TObject); begin   sSql := 'select * into uform from [Text;Database=f:\].form.txt';   with AccessConnection do     begin       Connected := True;       Execute(sSql);     end; end; //DBF->Access procedure TForm1.Button5Click(Sender: TObject); begin   sSql := 'select * into aaa from aaa in ''f:\'' ''dbase 5.0;''';   with AccessConnection do     begin       Connected := True;       Execute(sSql);     end; end; //Excel->Access //[aaa$]->Excel文件aaa.xls中的aaa页 procedure TForm1.Button10Click(Sender: TObject); begin   sSql :=     'select * into bbb from [excel 8.0;database=f:\aaa.xls].[aaa$]';   with AccessConnection do     begin       Connected := True;       Execute(sSql);     end; end; //================================================================= //Oracle //Oracle->Access procedure TForm1.Button6Click(Sender: TObject); begin   sSql :=     'select * into ouform from ouform in [ODBC][ODBC;Driver={Microsoft ODBC for Oracle};UID=bklskf;PWD=bklskf;SERVER=bkls;]';   with AccessConnection do     begin       Connected := True;       Execute(sSql);     end; end; //Oracle->TXT procedure TForm1.Button7Click(Sender: TObject); begin   sSql := 'select VGH,VXM,VMM into lsygb.txt from (select * from lsygb in [ODBC][ODBC;Driver={Microsoft ODBC for Oracle};UID=BKLS;PWD=BKLS;SERVER=BKLS;])'; //  sSql := //    'select * into form.txt from ouform in [ODBC][ODBC;Driver={Microsoft ODBC for Oracle};UID=bklskf;PWD=bklskf;SERVER=bkls;]';   with TxtConnection do     begin       Close;       Connected := True;       Execute(sSql);     end; end; //Oracle->Excel procedure TForm1.Button8Click(Sender: TObject); begin   sSql :=     'select * into aaa from lsygb in [ODBC][ODBC;Driver={Microsoft ODBC for Oracle};UID=bkls;PWD=bkls;SERVER=bkls;]';   with ExcelConnection do     begin       Connected := True;       Execute(sSql);     end; end; //Oracle->DBF procedure TForm1.Button11Click(Sender: TObject); begin   sSql :=     'select * into aaa from lsygb in [ODBC][ODBC;Driver={Microsoft ODBC for Oracle};UID=bkls;PWD=bkls;SERVER=bkls;]';   with DBFConnection do     begin       Connected := True;       Execute(sSql);     end; end; //TXT->Oracle //Oracle数据库注意要将表名大写!不然创建出来的表可以看到表名但无法打开 procedure TForm1.Button12Click(Sender: TObject); begin   sSql := 'select * into PH_TXT in [ODBC][ODBC;Driver={Microsoft ODBC for Oracle};UID=bkls;PWD=bkls;SERVER=bkls;] from ph_txt.txt';   with TxtConnection do     begin       Close;       Connected := True;       Execute(sSql);     end; end; //DBF->Oracle procedure TForm1.Button13Click(Sender: TObject); begin   sSql :=     'select * into PH_DBF in [ODBC][ODBC;Driver={Microsoft ODBC for Oracle};UID=bkls;PWD=bkls;SERVER=bkls;] from aaa';   with DBFConnection do     begin       Connected := True;       Execute(sSql);     end; end; //Access->Oracle procedure TForm1.Button14Click(Sender: TObject); begin   sSql :=     'select * into PH_ACCESS in [ODBC][ODBC;Driver={Microsoft ODBC for Oracle};UID=bkls;PWD=bkls;SERVER=bkls;] from aaa';   with AccessConnection do     begin       Connected := True;       Execute(sSql);     end; end; //Excel->Oracle procedure TForm1.Button15Click(Sender: TObject); begin //  'select * into MLB in [ODBC][ODBC;Driver={Microsoft ODBC for Oracle};UID=BKLS;PWD=BKLS;Server=BKLS;] from MLB' //Provider=Microsoft.Jet.OLEDB.4.0;Data Source=f:\aaa.xls;Extended Properties=Excel 8.0;Persist Security Info=False   sSql :=     'select * into PH_EXCEL in [ODBC][ODBC;Driver={Microsoft ODBC for Oracle};UID=bkls;PWD=bkls;SERVER=bkls;] from aaa';   with ExcelConnection do     begin       Connected := True;       Execute(sSql);     end; end; procedure TForm1.Button16Click(Sender: TObject); begin   sSql := 'select * into qxb in ''f:\'' ''dbase 5.0;'' from lsqxb.txt';   with TXTConnection do     begin //      Close; //      ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source=f:\temp;Extended Properties="text;HDR=YES;FMT=Delimited";Persist Security Info=True';       Connected := True;       Execute(sSql);     end; end; 2004-1-14 21:17:00    查看评语»»»

        昨晚大哭了一场，心中想的最多的是别人，我自己都不知道什么时候是替自己想，总是别人当先，其实我自己也觉得很累，不想再管那些闲事，可是又没有其它办法。
         昨晚一下班我就赶回家做饭，我知道她在家，可我从没指望她能帮我什么，她也就从没主动帮我什么，偶尔让她做些什么，她总说她又不是我的保姆，我想她心理不太正常，从不和她计较，我早早把饭做好，可打她的电话她一直都不接，电话是我买给她的，我气得只想当时找到她把电话摔个稀烂，可我忍住了，等她到了家，我说饭在桌子上，她气冲冲地说“不吃”，我说怎么不接电话，她把眼皮一耷拉说“没听见”，那样子好象是我欠着她一样，我整天累死累活供着你，还要把你当爷伺候，再想想父母前两天在电话上的指示，我真不知道怎么向他们交代，这样下去会是怎样一种悲剧，她那种人把你气得是一句话都不想说，于是我到屋里大哭了一场，哭出心中长期的压抑，哭出父母给我施加压力的不满，哭出这样一个三十岁姐姐的不懂事和不争气，就是想大声地哭，心中有说不出的委屈和无奈，累是我精神和肉体的最好定义，有时我在想我究竟还可以撑多少时间，有一天我会不会直接被气成植物人或痴呆，那时候她会象我现在这样对她来对待我吗？我一直把自己哭得没有力气，哭的双眼红肿，哭得胃疼肚胀，只想自己哭后还能微笑着对待生活，不想死撑着象上次一样进医院，几乎几个院子的人都听到了，可我没有办法，这是我唯一释放压力的方式。
         说句实在话，她身为姐姐，根本没尽到义务和责任，她在这里吃喝花销都是我出，我没计较，因为我想的最多的是想让她出人投地，真正有一翻作为，想让她吃好，玩好，心情好，把自己打扮的漂漂亮亮的，找个好工作，再找个好老公，可是她并不是这样想的，整天睡到中午，不修边幅，不打扮，自己心情不好整的全家不安，自私自利，还说花我多少钱以后还我，说实在的我从没指望过，我只想她能尽快找到工作，有自己的小天地，我不想影响到她，更不想她影响到我，只希望她能尽快脱离我，我不求回报，只求她每天幸福快乐，只希望她能理解我的良苦用心，三十岁的人了思维还停留到十几岁，总以为别人的话都是害她的，那也得自己长脑子想想，我实在受不了，昨晚她竟然还说是我不让她早起跑步的，亏她说得出口，我不记得我说过这样的话，即使我说过，那你自己怎么不思考呢，自己没长大脑，我清楚地记得我说过不下五次让你早起做点儿事情，可都说了两三个月了，你有什么行动，这是30岁的姐姐对28岁的妹妹所说的话呀，我想想我真想撞墙死了。人呀，如果到了这步，什么对错都不分了，我想别人最多的都是无奈。

 

                                      

SQL语句导入导出大全

/*******  导出到excel
EXEC master..xp_cmdshell 'bcp SettleDB.dbo.shanghu out c:\temp1.xls -c -q -S"GNETDATA/GNETDATA" -U"sa" -P""'

/***********  导入Excel
SELECT *
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
  'Data Source="c:\test.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions

/*动态文件名
declare @fn varchar(20),@s varchar(1000)
set @fn = 'c:\test.xls'
set @s ='''Microsoft.Jet.OLEDB.4.0'',
''Data Source="'+@fn+'";User ID=Admin;Password=;Extended properties=Excel 5.0'''
set @s = 'SELECT * FROM OpenDataSource ('+@s+')...sheet1$'
exec(@s)
*/

SELECT cast(cast(科目编号 as numeric(10,2)) as nvarchar(255))+'　' 转换后的别名
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
  'Data Source="c:\test.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions

/********************** EXCEL导到远程SQL
insert OPENDATASOURCE(
         'SQLOLEDB',
         'Data Source=远程ip;User ID=sa;Password=密码'
         ).库名.dbo.表名 (列名1,列名2)
SELECT 列名1,列名2
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
  'Data Source="c:\test.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions

/** 导入文本文件
EXEC master..xp_cmdshell 'bcp dbname..tablename in c:\DT.txt -c -Sservername -Usa -Ppassword'

/** 导出文本文件
EXEC master..xp_cmdshell 'bcp dbname..tablename out c:\DT.txt -c -Sservername -Usa -Ppassword'
或
EXEC master..xp_cmdshell 'bcp "Select * from dbname..tablename" queryout c:\DT.txt -c -Sservername -Usa -Ppassword'

导出到TXT文本，用逗号分开
exec master..xp_cmdshell 'bcp "库名..表名" out "d:\tt.txt" -c -t ,-U sa -P password'

BULK INSERT 库名..表名
FROM 'c:\test.txt'
WITH (
    FIELDTERMINATOR = ';',
    ROWTERMINATOR = '\n'
)

--/* dBase IV文件
select * from
OPENROWSET('MICROSOFT.JET.OLEDB.4.0'
,'dBase IV;HDR=NO;IMEX=2;DATABASE=C:\','select * from [客户资料4.dbf]')
--*/

--/* dBase III文件
select * from
OPENROWSET('MICROSOFT.JET.OLEDB.4.0'
,'dBase III;HDR=NO;IMEX=2;DATABASE=C:\','select * from [客户资料3.dbf]')
--*/

--/* FoxPro 数据库
select * from openrowset('MSDASQL',
'Driver=Microsoft Visual FoxPro Driver;SourceType=DBF;SourceDB=c:\',
'select * from [aa.DBF]')
--*/

/**************导入DBF文件****************/
select * from openrowset('MSDASQL',
'Driver=Microsoft Visual FoxPro Driver;
SourceDB=e:\VFP98\data;
SourceType=DBF',
'select * from customer where country != "USA" order by country')
go
/***************** 导出到DBF ***************/
如果要导出数据到已经生成结构(即现存的)FOXPRO表中,可以直接用下面的SQL语句

insert into openrowset('MSDASQL',
'Driver=Microsoft Visual FoxPro Driver;SourceType=DBF;SourceDB=c:\',
'select * from [aa.DBF]')
select * from 表

说明:
SourceDB=c:\  指定foxpro表所在的文件夹
aa.DBF        指定foxpro表的文件名.

/*************导出到Access********************/
insert into openrowset('Microsoft.Jet.OLEDB.4.0',
   'x:\A.mdb';'admin';'',A表) select * from 数据库名..B表

/*************导入Access********************/
insert into B表 selet * from openrowset('Microsoft.Jet.OLEDB.4.0',
   'x:\A.mdb';'admin';'',A表)

文件名为参数
declare @fname varchar(20)
set @fname = 'd:\test.mdb'
exec('SELECT a.* FROM opendatasource(''Microsoft.Jet.OLEDB.4.0'',
    '''+@fname+''';''admin'';'''', topics) as a ')

SELECT *
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
  'Data Source="f:\northwind.mdb";Jet OLEDB:Database Password=123;User ID=Admin;Password=;')...产品

*********************  导入 xml　文件

DECLARE @idoc int
DECLARE @doc varchar(1000)
--sample XML document．BR>  SET @doc ='
< root>
  < Customer cid= "C1" name="Janine" city="Issaquah">
      < Order oid="O1" date="1/20/1996" amount="3.5" />
      < Order oid="O2" date="4/30/1997" amount="13.4"> Customer was very satisfied
      < /Order>
   < /Customer>
   < Customer cid="C2" name="Ursula" city="Oelde" >
      < Order oid="O3" date="7/14/1999" amount="100" note="Wrap it blue
             white red">
            < Urgency> Important< /Urgency>
            Happy Customer.
      < /Order>
      < Order oid="O4" date="1/20/1996" amount="10000"/>
   < /Customer>
< /root>
'
-- Create an internal representation of the XML document．
EXEC sp_xml_preparedocument．nbsp@idoc OUTPUT, @doc

-- Execute a SELECT statement using OPENXML rowset provider.
SELECT *
FROM OPENXML (@idoc, '/root/Customer/Order', 1)
      WITH (oid     char(5),
            amount  float,
            comment ntext 'text()')
EXEC sp_xml_removedocument．nbsp@idoc

???????

/**********************Excel导到Txt****************************************/
想用
select * into opendatasource(...) from opendatasource(...)
实现将一个Excel文件内容导入到一个文本文件

假设Excel中有两列，第一列为姓名，第二列为很行帐号(16位)
且银行帐号导出到文本文件后分两部分，前8位和后8位分开。

邹健：
如果要用你上面的语句插入的话,文本文件必须存在,而且有一行:姓名,银行账号1,银行账号2
然后就可以用下面的语句进行插入
注意文件名和目录根据你的实际情况进行修改.

insert into
opendatasource('MICROSOFT.JET.OLEDB.4.0'
,'Text;HDR=Yes;DATABASE=C:\'
)...[aa#txt]
--,aa#txt)
--*/
select 姓名,银行账号1=left(银行账号,8),银行账号2=right(银行账号,8)
from
opendatasource('MICROSOFT.JET.OLEDB.4.0'
,'Excel 5.0;HDR=YES;IMEX=2;DATABASE=c:\a.xls'
--,Sheet1$)
)...[Sheet1$]

如果你想直接插入并生成文本文件,就要用bcp

declare @sql varchar(8000),@tbname varchar(50)

--首先将excel表内容导入到一个全局临时表
select @tbname='[##temp'+cast(newid() as varchar(40))+']'
,@sql='select 姓名,银行账号1=left(银行账号,8),银行账号2=right(银行账号,8)
into '+@tbname+' from
opendatasource(''MICROSOFT.JET.OLEDB.4.0''
,''Excel 5.0;HDR=YES;IMEX=2;DATABASE=c:\a.xls''
)...[Sheet1$]'
exec(@sql)

--然后用bcp从全局临时表导出到文本文件
set @sql='bcp "'+@tbname+'" out "c:\aa.txt" /S"(local)" /P"" /c'
exec master..xp_cmdshell @sql

--删除临时表
exec('drop table '+@tbname)

/********************导整个数据库*********************************************/

用bcp实现的存储过程

/*
实现数据导入/导出的存储过程
         根据不同的参数,可以实现导入/导出整个数据库/单个表
调用示例:
--导出调用示例
----导出单个表
exec file2table 'zj','','','xzkh_sa..地区资料','c:\zj.txt',1
----导出整个数据库
exec file2table 'zj','','','xzkh_sa','C:\docman',1

--导入调用示例
----导入单个表
exec file2table 'zj','','','xzkh_sa..地区资料','c:\zj.txt',0
----导入整个数据库
exec file2table 'zj','','','xzkh_sa','C:\docman',0

*/
if exists(select 1 from sysobjects where name='File2Table' and objectproperty(id,'IsProcedure')=1)
drop procedure File2Table
go
create procedure File2Table
@servername varchar(200)  --服务器名
,@username varchar(200)   --用户名,如果用NT验证方式,则为空''
,@password varchar(200)   --密码
,@tbname varchar(500)   --数据库.dbo.表名,如果不指定:.dbo.表名,则导出数据库的所有用户表
,@filename varchar(1000)  --导入/导出路径/文件名,如果@tbname参数指明是导出整个数据库,则这个参数是文件存放路径,文件名自动用表名.txt
,@isout bit      --1为导出,0为导入
as
declare @sql varchar(8000)

if @tbname like '%.%.%' --如果指定了表名,则直接导出单个表
begin
set @sql='bcp '+@tbname
  +case when @isout=1 then ' out ' else ' in ' end
  +' "'+@filename+'" /w'
  +' /S '+@servername
  +case when isnull(@username,'')='' then '' else ' /U '+@username end
  +' /P '+isnull(@password,'')
exec master..xp_cmdshell @sql
end
else
begin --导出整个数据库,定义游标,取出所有的用户表
declare @m_tbname varchar(250)
if right(@filename,1)< > '\' set @filename=@filename+'\'

set @m_tbname='declare #tb cursor for select name from '+@tbname+'..sysobjects where xtype=''U'''
exec(@m_tbname)
open #tb
fetch next from #tb into @m_tbname
while @@fetch_status=0
begin
  set @sql='bcp '+@tbname+'..'+@m_tbname
   +case when @isout=1 then ' out ' else ' in ' end
   +' "'+@filename+@m_tbname+'.txt " /w'
   +' /S '+@servername
   +case when isnull(@username,'')='' then '' else ' /U '+@username end
   +' /P '+isnull(@password,'')
  exec master..xp_cmdshell @sql
  fetch next from #tb into @m_tbname
end
close #tb
deallocate #tb
end
go

/************* Oracle **************/
EXEC sp_addlinkedserver 'OracleSvr',
   'Oracle 7.3',
   'MSDAORA',
   'ORCLDB'
GO

delete from openquery(mailser,'select *  from yulin')

select *  from openquery(mailser,'select *  from yulin')

update openquery(mailser,'select * from  yulin where id=15')set disorder=555,catago=888

insert into openquery(mailser,'select disorder,catago from  yulin')values(333,777)

补充：

对于用bcp导出,是没有字段名的.

用openrowset导出,需要事先建好表.

用openrowset导入,除ACCESS及EXCEL外,均不支持非本机数据导入

/*
功能 :  Access To DBF
ADOConnection2 =&gt; Access
*/
sql = "SELECT * INTO jyjh in \"c:\\temp\"[dbase 5.0;] FROM jyjh";
ADOConnection2-&gt;Execute(sql);

c:\temp\aaa.dbf to Access,
ADOConnection 指向Access
语句是  select * into bbb from aaa in 'c:\temp' 'dbase 5.0;'

在Form上放一个ADOConnection,连结指向目标Access库
比如txt文件在c:\temp\aaaa.txt
就执行
ADOConnection.Connected := True;
ADOConnection.Execute('Select * Into abcd From [Text;Database=c:\temp].aaaa.txt');

将Oracle导入到文本文件
连接串
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\temp;Extended Properties="text;HDR=YES;";Persist Security Info=False
SQL语句
SELECT * into aaa.txt  FROM Tab1 IN [ODBC]
[ODBC;Driver={Microsoft ODBC for Oracle};UID=oracle;PWD=oracle;SERVER=yourdata;]

将Oracle导入到Access
连接串
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\temp\db1.mdb;Persist Security Info=False
SQL语句
SELECT * into tablename  FROM Tab1 IN [ODBC]
[ODBC;Driver={Microsoft ODBC for Oracle};UID=oracle;PWD=oracle;SERVER=yourdata;]

DBase 5.0
DBASE IV
FoxPro 3.0
Paradox 7.X
Excel 8.0
text;HDR=YES;FMT=Delimited

SELECT * into aaa
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\temp\";User ID=Admin;Password=;Extended properties=Text')...[bb#txt]

Excel联接ADO串
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\temp\a.xls;Extended
Properties="Excel 8.0;HDR=Yes;";Persist Security Info=False
Extended Properties参数属性这样写 Excel 5.0;HDR=YES;IMEX=1
IMEX=1就是指混合型转换为文本
SQLServer从Excel取数
SELECT *
FROM OpenDataSource('Microsoft.Jet.OLEDB.4.0','Data Source="C:\temp\b.xls";Extended Properties="Excel 5.0;HDR=Yes;";Persist Security Info=False')...sheet1$

将SQLServer导入到文本文件
连接串
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\temp;Extended Properties="text;HDR=YES;";Persist Security Info=False
SQL语句
SELECT * into aaa.txt  FROM Tab1 IN [ODBC]
[ODBC;Driver=SQL Server;UID=sa;PWD=;Server=127.0.0.1;DataBase=Demo;]
要改变分隔符，可以修改
Schema.ini文件。该文件中指明分割符，如：
    [yourfile.txt]
    ...
    Format=Delimited(|)
更详细的例子可以参考：微软的Knowledge Base的文章："Q149090 CC: How to Use Schema.ini for Accessing Text Data"和微软的Knowledge Base的文章："Q187670 OWT Use RDO and ODBC Text Driver to Open a Delimited Text"。

txt导入SQLServer
select * from OpenRowset('MSDASQL', 'Driver={Microsoft Text Driver (*.txt; *.csv)};
DefaultDir=c:\temp;','select * from aaaa.txt')

sql server导出到access
ADOConnection 指向Access
SELECT * into table  FROM Tab1 IN [ODBC]
[ODBC;Driver=SQL Server;UID=sa;PWD=;Server=127.0.0.1;DataBase=Demo;]

sql server导出到excel
ADOConnection 指向excel, 用Jet4.0 ,Extended properties设为Excel 8.0
SELECT * into table  FROM Tab1 IN [ODBC]
[ODBC;Driver=SQL Server;UID=sa;PWD=;Server=127.0.0.1;DataBase=Demo;]

insert into gds_order select * from gds_order
in [ODBC][ODBC;dsn=jbcmis;User Name=informix;password=informix;]

用SQLServer连接DBF
在SQLServer中执行
SELECT * into bmk
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
  'Data Source="e:\share";User ID=Admin;Password=;Extended properties=dBase 5.0')...bmk
这样就可以把e:\share中的bmk.dbf表导入到Sqlserver中，

Access 到 Access
select * into aaa from aaa in 'c::\temp\b.mdb'
用ADOConnection.Execute执行

对foxpro 6.0采取odbc,建立一个数据源
insert into t_d(申请日期,发票序号,序号,日期,发票号,发票种类,发货单id,申请单编号,片区,部门,销售员,客户代码,客户单位,开票名称,客户邮编,客户地址,客户电话,客户税号,客户开户行,客户帐号,开票单位,邮编,地址,电话,税号,开户行,帐号,编号,品名,规格,单位,单价,数量,金额,不含税单价,不含税金额,税额,底价,税率,税率1,红票金额,红票号,发票收件人,收件人地址,收件人电话,收件人邮编,备注,打印标志,制单,复核,审核,标志1,标志,管理模式,警示标志,结算单价,结算标准,扣率,冲减金额,回款金额,少回款,回款差额,欠款金额,欠款数量,来款单序号,主管部门,退票标志,退票日期,发货日期,申请号)
SELECT 申请日期,发票序号,序号,日期,发票号,发票种类,发货单id,申请单编号,片区,部门,销售员,客户代码,客户单位,开票名称,客户邮编,客户地址,客户电话,客户税号,客户开户

        刚才给家里打了个电话，把结婚的想法告诉他了，我说不准备办什么仪式，把结婚证领了算了，等有钱的时候想办再办，他说可以......不管我说什么家里人都说可以，突然觉得心里有种酸楚，觉得自己为这个家承担了这么大的责任，结果换来的还是净身出户，而且家里人对我的态度让我觉得很难承受，也许他们觉得我什么事都要自己来扛
         对于这个家和家中的人，除了母亲，我已经付出了我的所有，我现在真的好想逃，好想到一个没有人烟的地方过一个人的清净生活。
         不知道我这样做是对是错，至少在我看来，我这样做是对得起自己的良心，他家里没钱，我也不想让他家人破费，最后自己再还贷款，还落个他家人为我张罗婚事。我觉得自己这辈子太苦，至少这20多年过得都是苦日子，心操碎了，力出尽了，可没得到任何肯定

        在昨晚和朋友领导及朋友的谈话中，忽然发现，朋友是可以的，最起码谈话比我强，他能把我看做不值一文的东西说成是技术核心。
      在工作上，我发现他总能滔滔不绝，但在实际生活中我们的沟通太少，而且和朋友的沟通也太少了

    这段时间朋友一直想让我进他们公司，结果我一直是搞JAVA的，对.net了解不多，于是朋友就让我快速学习，可刚看了两天，还没看到实质性的东西，昨晚朋友就突然把我引见给了他们黄总，我觉得很唐突，真不知道和他谈些什么，再加上我现在所处的公司是他们公司一个产业部，所以更不敢放开说，个人来说有太多的顾虑，技术方面也不是什么高手，虽然对JAVA也算精通，但苦于表达能力太差，人太实在，所以一直就处于被动状态，估计他们领导对我很不满意

          这些天我经常去朋友公司学习，期间总听到他们同事有趣的对话，记得他们公司一个员工说另外一个女员工有点弱，那个员工说，我弱吗？哎，没办法，谁让我有人疼有人爱，什么事都不用操心呢。
           听到他一个同事说要在公司附近租房子，另外一个同事就开始炫耀，说她买了房（远离市区），要不把她家的小阁楼腾一间给她住，然后那个租房的说，好啊，那你要给我报销来回路费......
       其实说话真的是一门学问，好羡慕会说话的人，我本身就不是太会说话，结果到了一个小公司后，待了两年，可以说现在基本丧失语言功能了，说话颠三倒四的。我觉得我的工作环境真的是需要改变了，要不然我会疯的