博文
快速导出数据库为EXCEL文档(2006-03-24 22:19:00)
摘要：在网上的导出为 EXCEL文档的方法大概是这样的 Dim i As Integer, j As Integer Dim myexcel As New Excel.Application Dim mybook As New Excel.Workbook Dim mysheet As New Excel.Worksheet Set mybook = myexcel.Workbooks.Add '添加一个新的BOOK Set mysheet = mybook.Worksheets.Add '添加一个新的SHEET ' For i = 1 To myres.RecordCount ' For j = 1 To myres.Fields.Count ' mysheet.Cells(i, j) = myres.Fields.Item(j - 1).Value ' If (i * j) Mod 500 = 0 Then ' DoEvents ' End If ' Next j ' myres.MoveNext ' Next i myexcel.Visible = True mybook.SaveAs (m_ExcelName) '保存文件
这中方法没什么错误,但是如果数据量很大的话,麻烦就来了,出现程序长时间不响应 关键是循环,下给出我的代码 假设定义的记录名为myres Dim myexcel As New Excel.Application Dim mybook As New Excel.Workbook Dim mysheet As New Excel.Worksheet Set mybook = myexcel.Workbooks.Add '添加一个新的BOOK Set mysheet = mybook.Worksheets.Add '添加一个新的SHEET myexcel.visible=true mysheet.Cells.CopyFromRecordset myres mybook.SaveAs (m_ExcelName) '保存文件
利用这个代码可以大大的缩短导出时间,8000多个纪录用第一种方法大概需要2分多 而用第二种方法只大概要4秒,可以亲......
编程集锦(绝对值)(2006-03-24 22:17:00)
摘要：驱动器操作
Private Sub Dir1_Change()File1.Path = Dir1.PathEnd Sub
Private Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd Sub--------------------------------判断光驱/软驱中是否有磁盘Private Sub Drive1_Change()'当驱动器发生改变时使Dir1与其保持一致On Error GoTo IFerr '拦截错误Dir1.Path = Drive1.DriveExit SubIFerr: '如果磁盘错误 MsgBox "请确认驱动器是否准备好或者磁盘已经不可用!", _ vbOKOnly + vbExclamation Drive1.Drive = Dir1.Path '忽略驱动器改变 Exit SubEnd Sub----------------------------------------------------------打开URL：Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()ShellExecute hwnd, "open", "ht......
2个女生在线聊天记录(2006-03-24 21:53:00)
摘要：据说只为了八块钱！！！巨寒！！！ 2003-8-1 20:56:38 橘子 还钱 2003-8-1 20:56:54 真章鱼 什么钱？ 2003-8-1 20:57:12 橘子 买肉的钱 2003-8-1 20:57:55 真章鱼 生命的欢喜可以再影印一张吗？ 老去的热情可以再拉皮整形吗? 病中的真理可以再传真校对吗? 死掉的爱情可以再输入键出吗? 买肉的钱要还吗？ 2003-8-1 20:58:47 橘子 万里长城永不倒，肉钱一分不能少 2003-8-1 21:00:10 真章鱼 彩虹万里百花开，蝴蝶双双对对来，天荒地老心不变，肉钱…… 2003-8-1 21:01:01 真章鱼 夏桀王为妹喜把江山败，殷纣王为妲己黎民受灾，周幽王宠褒姒犬戎犯界 ，戏诸侯一笑烽火台，圣人之言传後代，仔细想再思裁，为姐之言该不该？ 2003-8-1 21:01:11 橘子 你知道秦始皇是怎么死的吗？欠我钱不还被我打死的 2003-8-1 21:01:57 真章鱼 你知道清朝怎么灭亡的吗？我欠的太多 2003-8-1 21:03:35 真章鱼 有一种爱 介於 神圣与罪恶之间 在星辰西移的 河口 众人犹在梦乡 我独自坐著 等人摆渡 2003-8-1 21:03:38 橘子 床前明月光，疑是地上霜，明天不还钱，横着回故乡 2003-8-1 21:04:34 真章鱼 寂寞深闺， 柔肠一寸愁千缕。 惜春春去， 几点催花雨。 倚遍栏干， 只是无情绪！ 人何处？ 连天衰草， 望断归来路。 又剩机票钱了 2003-8-1 21:07:35 橘子 低头浅酌酒似无，明月望断归乡路。 血流三千六百里，只为钱债未曾还。 2003-8-1 21:11:45 真章鱼 月明星稀，乌鹊南飞， 绕树三匝，何枝可依？ 钱不厌多，海不厌深。 2003-8-1 21:13:58 真章鱼 离离囊中钱，一岁一库容。 你也花不尽，春风吹又生 2003-8-1 21:14:35 橘子 天地之间有正气 你个混蛋没义气 有钱不还我生气 插你车胎放你气 2003-8-1 21:15:24 真章鱼 自惜身薄祜，夙*罹孤苦。 既无三徙教，不闻过庭语。 其穷如抽裂，自以思所怙。 虽怀一介志，是时其能与！ 守穷者贫*......
把我的收集贡献给大家(2006-03-24 21:24:00)
摘要：把我的收集贡献给大家：http://ftp.why100000.comhttp://ftp1.why100000.comhttp://ftp2.why100000.comhttp://why100000.com ......
50条关于"男欢女爱"经典剖析(2006-03-10 20:05:00)
摘要：恋爱没结果，你会不会沮丧？接不到男人的电话，你会不会抓狂？你是不是坚持不懈地把约会想象成婚姻前奏，认定跟你出双入对的他就是未来老公？姐妹们，这样爱是不是负担太重？干吗不轻松点，在恋爱里找乐，就像跟你唱对手戏的另一半——男人那样——他们世世代代都在这么干。
为爱钻牛角尖太辛苦，不妨换个角色来看待。下次他再惹到你，就能以其之道，还诸彼身。
1、 女人爱等男人的电话。男人不会守着电话等你打来。
别信他说什么手机没电，千万记住：如果想你了，就算没手机，他也会爬上屋顶嚷嚷，让你知道。
2、 女人一恋爱就忍不住往终身大事上联想。男人恋爱首先不是为了谈婚论嫁，而是为了从中获得乐趣，婚姻和恋爱对他完全是两码事。
3、 女人的爱因崇拜而生。男人的爱因性而生。
4、 女人往往终生只爱一种男人。男人的口味时时会变。
5、 女人得到爱情后反而不安，因为怕失去。男性得不到的时候才不安，因为渴望身体的征服。
6、 女人总想变着法地改造男人。男人最想改变的只有两件东西，自己宝贝的大小和与日本的关系，女人永远不在改变的考虑之列，要么全盘接受，要么分手。
7、 女人总是不断求证男人的爱情，追求托付终身的感觉。男人更在乎感官和理性的决定，一旦界定两人的关系，就懒得去反复考证这种关系的正确性，而仅仅满足于感官层次。
8、 女人担忧年华老去，绝对寿命长，有效生命短。男人相信他们在任何年龄都可以性感，绝对寿命短，有效生命长。
9、 女人相信：男人太多，好男人太少。男人相信：姑娘太多，时间太少。
10、 女人常常为尚未发生的事情担忧。男人除了担忧生育能力的消失，其他未发生事件一概无所谓。
11、 女人喜欢谈论感情。男人不喜欢，他们更愿意谈论足球或时政。
12、 女人对男人不满时，常会借题发挥，无限上纲。男人喜欢就事论事，绝不会因为你洗了两个小时的澡而联想到国家水资源紧张进而联想到自己被渴死的悲惨下场从而断定你有险恶用心。
13、 女人迷恋被追求的滋味。男人喜欢在感情中采取主动，中国的男女比例已经严重失衡，不用抢的，哪天才轮到自己？
14、 女人为情所困时，常会不断降低底线，委曲求全。男人会事先设定好底线，一旦触及，便毫不犹豫转身离开。
15、 女人担心......
让人哭笑不得的习惯性动(2006-03-10 19:51:00)
摘要：１．俺家水龙头是左右摇头开关，公司水龙头是上下点头开关。早上俺洗脸漱口加刷牙让俺家的水龙头左右摇了Ｎ次头。到公司后去洗手间洗手，当俺把水龙头转了１８０度也未见有水出来时，开始抱怨停水了物业怎么不提前通知一下。同事奇怪地说：“我刚才洗手还有水呢。”于是上前轻轻一抬水龙头——水出来了……
２．平时都是前台将打卡机调到正确位置，同事们来了只需将卡插进去即可。今天上班时，一同事外出，上班时外出是需要在打卡机上调位置的。习惯了，她想也未想就把卡直接插到打卡机里，出来一看，在上班栏里重新打了一个红色的时间。完了，这次有点说不清了，只得拉前台做证明。
３．公司到了批货，由于办公室留守的人少，所有人都动员了起来。俺们女士别的不行，货物搬进电梯帮忙按电梯按钮还是没问题的。公司在９层，整个一下午都在搬货，俺也从１层到９层往返了Ｎ次。下班回家，俺家在６层，一进电梯俺就让电梯工按了９层，等到了９层，俺才想起俺住６层。弄得电梯工把俺当成那啥了：“你是住这儿的吗，自个儿家住几层都不知道了？”
４．上下班高峰时间，电梯里通常人满为患，都挤得像饼干一样，真有点挤公交车的味道。有位大姐，可能老坐公交车，电梯到８层停了，里面有人要出去，跟这位大姐说：“对不起，借光一下！”大姐忙说：“别挤，我也下车！”
５．俺公司人多，开会的时候会议室的椅子不够用，每次俺都自觉地推着椅子进会议室。周一大小会不少，上午全体员工会议，下午部门会议，俺的椅子也随之进进出出了好几趟。开完会后，前台临时有事请了一会儿假，于是领导安排俺去替班。俺回屋推着椅子就往外走，同事Ｙ见了忙说：“让你替班，你推椅子干吗？”“唉，开了一天的会，推习惯了。”
６．俺平时骑车上班，为避免公交车上洗桑拿，整个夏天都坚持骑车。最近天冷了，俺决定改坐公交车了。第一天坐公交车上班，下班后，俺没和同事们一块走路去车站，而是习惯性地和他们告别后，径直走到地下停车场，在找遍整个停车场都没看到自己的爱车，急得就差打电话报警时，才猛然想起俺是坐车上班的。
７．俺知道拧紧瓶盖顺时针方向旋转；拧紧螺丝也是顺时针方向旋转；用老式铅笔刀削铅笔还是应该顺时针方向旋转铅笔。最近公司买了款新式转笔刀，巨省事，只需要把笔往孔里一插，转动把手，铅笔就会削得跟针尖一样细。俺把铅笔插进孔里，......
“欠揍”男人最新排行榜！(2006-03-10 19:48:00)
摘要：1、打女人的男人
这种男人乃是所有欠揍男人中最不可容忍的一种，且不说他是事业有成或是一无是处，本身使用暴力就是一种可耻的征服手段，若是把暴力用在柔弱的女子身上，简直就是就是应该遭到天谴。
惩罚方式：使其只跟动物及语言不明并且有暴力倾向的土人生活在一小岛上，让他知道没有温柔可人的女人在身边是一件多么可怕的事情，并在其痛哭流涕发誓痛改前非之后才让他回到文明世界。
2、吃软饭的男人
偶尔的经济窘迫可以忍受，因为时运不济而导致在事业上失败手头不宽裕也可以原谅，世事本来难料，人生路途也不可能一帆风顺。有些男子一辈子也没有成就，但起码认真努力过，就永远值得旁人尊重。
与之相对，有一种男人却让人像吞下大头苍蝇般憎恶，那是一些好逸恶劳，抱着一步登天想法，单纯为着金钱或是权势或是舒适的生活而出卖自己肉体的寄生虫，他们是一群没有灵魂的行尸走肉。
惩罚方式：让他们去西伯利亚的大森林里做苦役扛木头，做足够份量的工作才有饭吃，上好终身难忘的关于自我生存的一堂课。
3、鸡肠小肚的男人
我梦想中的男人应该是这样的，他可以不高大，不俊美，不善于表达，不懂幽默，甚至学识也可以不这么高深，但他一定要拥有宽阔的胸怀。
懂得宽容的男人，才是真正的男人。
生活中总是有一些这样的男子，锱铢必争，斤斤计较，心眼儿比针尖还大，善妒、狭隘、浅薄，跟他在一起要处处小心，担心自己无意中就会得罪他以后遭至报复。跟这样的男人在一起，真正的累。
惩罚方式：对其进行严格监控，对他生活中犯的每一点小错误都加以惩罚，从不小心打破杯子到接开水的时候有一滴水溅出外面，让他知道，每一小事都被计较是多么可怕的遭遇，从而知道自己的小心眼也是多么的让人不能容忍。
七嘴八舌：小气男人要得？要不得？
4、懦弱的男人
这里的懦弱不是指身体上的，而是指心灵上的。
一个真正的男人应该有坚强坚定的人格与思想，遇事能独挡一面，而不是只会叹气与哭泣，手足无措。
惩罚方式：只给他最基本的生存工具，放其到原始大森林里学习独立生活，相信不到一年，他会从心灵到肉体都成为坚强的男人。
主张：男人懦弱成就女人的绝情
5、自以为是，看不起女子的男人
自尊必......
“死脑筋”正是日本优势所在(2006-03-08 20:42:00)
摘要： “辛苦赚钱的是死脑筋”——如果被人这样说，不知道读者会做何感想。 日本的社会风气是，要想赚钱就得辛苦，老老实实、埋头苦干、历经磨难最终成就一番事业的人受人尊敬。而中国社会的风气就不一样了。说得极端一些，轻松挣大钱的人才是最优秀的、也是整个社会憧憬的偶像，而四处奔波忙碌、靠辛苦赚钱的人不会从社会中得到太高的评价。尽管中国社会的这种思潮也有其合理的成份，但笔者觉得如果一个社会不能给予埋头苦干者以较高的评价的话，就很难提高整个社会的竞争力。 ▼一人涉足房地产、一人埋头服装业 笔者的中国朋友中有两位服装厂老板。两人的发展历程形成鲜明的对照。两人都是九十年代开始在上海近郊做服装业起家，从海外接单加工服装、然后出口。二人凭借这一模式获得成功，事业也扩大到了一定规模。至此为止，两人的发展轨迹基本相同。 但接下来就不一样了。其中一位用通过服装业务赚来的资金投资房地产，然后再倒手赚更多的钱，同时涉足餐饮业。最初开的一家酒店大获成功，目前在上海市内也拥有多家大型酒店。许多政府官员和企业老板都是其饭店的客人，在上海实业界也算是一位名人。拥有好几辆进口车，居住在宽敞豪华的住宅里。 另一位在服装业打下一定基础之后，并没有扩大规模经营范围，而是致力于服装业的技术力量和策划能力的提高。他自己整天奔波于生产一线指导缝纫工。在努力提高技术、稳定员工队伍的同时，还与海外名牌服装进行业务联系，争取高附加值服装的订单。 目前他所接的订单主要以欧美著名品牌等高级服装为主。尽管业务多得都忙不过来、业绩也不断提高，但由于这些业务的难度都很大，缝纫工的培养和管理任务繁重，因此业务规模很难在短时间内迅速扩大。当然了，这位朋友也有相当的资产，不过由于平时一直呆在工厂里，所以穿着和生活都非常朴素，这位朋友很恬淡：“我觉得这样挺好”。 ▼你觉得哪一位更“优秀”？ 比较一下上述两位，你会认为哪一个更“优秀”？日本人喜欢的肯定是后者。不过在中国社会，对前者的评价应该更高。当然，对于那些经营专家来说，会有不同的看法，但至少大多数的普通的中国人的看法绝对是认为前者是“优秀人才”。 中国人之所以这么认为，我想主要有两方面的原因。一是效率论。不论是做生意还是上班工作，其根本就是赚钱，无所厚非。所以如果在赚钱的数量一样多的情况下，当然是投入的劳力越少越好。换一种说法，越是能够轻松赚大钱的人就越棒，而只有忙......
袖珍数据库连接方式查询手册(2006-02-17 04:34:00)
摘要：下面的资料是平时使用到的一些数据库连接方式，可能不太全，但是可以用来当做资料查询，希望能够帮上大家的忙。 下面将简单介绍一下几种ADO连接方式：ODBC DSN,ODBC DSN-Less, OLE DB Provider,和"MS Remote" Provider. I.DSN oConn.Open "DSN=AdvWorks; UID=Admin; PWD=;" 注意：从MDAC2.1开始就不能够在使用这样的方式了，就是只把DSN文件名放在ConnectString中。你必须同时使用DSN，UID，PWD标志。例如下面的方式在MDAC 2.1中将会出错：oConn.Open "AdvWorks" II.File DSN oConn.Open "FILEDSN=\somepath\mydb.dsn; UID=Admin; PWD=;" III.ODBC DSN-Less Connections a)ODBC Text Driver oConn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)}; Dbq=\somepath\;" & _ "Extensions=asc,csv,tab,txt; Persist Security Info=False" 注意：需要在SQL语句中指定使用到的文件名。例如： oRs.Open "Select * From customer.csv", oConn, adOpenStatic, adLockReadOnly, adCmdText b)ODBC Driver for Access i)普通安全模式： oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _ "Dbq=\somepath\mydb.mdb; Uid=Admin; Pwd=;" ii)如果使用了System database: oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _ "Dbq=\somepath\mydb.mdb; SystemDB=\somepath\mydb.mdw;", "adm......
提高VB访问数据库的效率(2006-02-17 04:28:00)
摘要： 1.尽量使用事务处理更新数据库 VB的事务处理包括以BeginTrans开始，以CommitTrans或Rollback结尾的多条数据库操作指令。事务处理除了能很好的保证数据库的完整性以外。同时能大大提高数据库批量更新的效率。这是因为如果数据库更新操作没有使用事务处理，则每次Update操作都会引起数据库写盘一次。使用事务处理后，更新只在内存缓冲区内进行，执行CommitTrans时才将所有修改一次写回到磁盘中。 使用事务处理要注意一下几点： (1)事务处理要有很完善的错误检查机制； (2)因为VB在事务处理结束前对数据库使用了页面锁，所以在多用户环境中,如果事务被挂起,则其他用户将无法访问上锁的数据。 2.尽量使用代码分解Select检索操作 使用Select进行数据库操作固然简单易用，但如果将一些检索操作分解为等价的手工检索代码，则对数据库的检索速度将大大加快。分解的基本方法是对检索关键字段进行索引，利用Seek方法定位后，根据索引的数据库已经排序的特点，进行遍历查找。对于遍历范围不是很宽时，这种方法能几十倍的提高数据库的访问速度。 例如：Select * from person where vol= '123' and birth= #11-02-73# 分解成下面的操作后，访问速度可大大提高： Table.Index= "vol" Table.Seek "=","123" if not table.nomatch then while not table.eof if table("vol")="123" then table.movelast else if table("Birth")= #11-02-73# then '找到记录 end if table.movenext wend end if 3.使用attach绑定数据库表 当使用ODBC连接MS SQL Server，Oracle和Sysbase之类的数据库服务器时，我们可以通过MS Acess的attach功能将服务器上的表绑定到MS Acess数据库中，因为MS Acess数据库能缓存数据库服务器上表的结构，当我们访问ODBC数据源时能提高系统的访问性能。 4.使用dbSQLPassThrough选项 连接M......