说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

在VB中直接用ODBC API访问数据库

HTML文档下载 WORD文档下载 PDF文档下载
在VB中直接用ODBC API访问数据库


中国航空信息中心 吴 斌

  从WINDOWS 95开始,微软为我们提供了一个好用的文件搜索器。使用这个搜索器,我们可以方便快捷的查找到符合条件的文件。但有时我们在程序设计中也需要这一功能,能否在自己的程序中实现呢?答案当然是肯定的。下面我们就来着手设计一个VB程序中的文件搜索器。

  首先,进入VB中,建立一个新的表单。在表单上建立一个驱动器列表框(DriveList),一个目录列表框(FolderList),一个检查框(SubCheck),一个ListView控件(FileList),两个文本框(FileName,FileSize)和两个按钮(cmdSearch,cmdExit)。需要注意的是ListView 控件是 Mscomctl.ocx 文件中一组 ActiveX 控件的一部分。若要在应用程序中使用 ListView 控件,必须将 Mscomctl.ocx 文件添加到工程中。选择ListView控件,点击鼠标右键,在弹出菜单中选择“属性”。在属性窗口的“列首”页中设置将要显示的列,连续按动“插入列”5次。排列好各控件的位置,然后加入以下代码:

Option Explicit
Dim FileSys As Scripting.FileSystemObject

Private Sub CmdExit_Click()
End
End Sub

Private Sub DriveList_Change()
FolderList.Path = DriveList
End Sub

Private Sub Form_Load()
Dim I As Integer
Set FileSys = New Scripting.FileSystemObject
FolderList.Path = Left(DriveList.Drive, 2) & "\"
With FileList.ColumnHeaders.Item(1)
.Alignment = lvwColumnLeft
.Text = "文件名"
.Width = 2000
End With
With FileList.ColumnHeaders.Item(2)
.Alignment = lvwColumnRight
.Text = "大小(KB)"
.Width = 1500
End With
With FileList.ColumnHeaders.Item(3)
.Alignment = lvwColumnLeft
.Text = "类型"
.Width = 1500
End With
With FileList.ColumnHeaders.Item(4)
.Alignment = lvwColumnLeft
.Text = "路径"
.Width = 2000
End With
With FileList.ColumnHeaders.Item(5)
.Alignment = lvwColumnLeft
.Text = "修改时间"
.Width = 2000
End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set FileSys = Nothing
End Sub

Private Sub cmdSearch_Click()
Dim SFolderStart As Scripting.Folder
Set SFolderStart = FileSys.GetFolder(FolderList.Path)
FileList.ListItems.Clear
AddFiles SFolderStart
If FileList.ListItems.Count = 0 Then MsgBox _
"没找到任何符合条件的文件!",vbOKOnly + vbInformation, "提示信息"
End Sub

Private Sub AddFiles(SFolderSearch As Scripting.Folder)
Dim SFolder As Scripting.Folder
Dim SFile As Scripting.File
Dim sngFileSize As Single
Dim lngSize As Long
Dim Itm As ListItem
If SubCheck.Value = 1 Then
If SFolderSearch.SubFolders.Count Then
For Each SFolder In SFolderSearch.SubFolders
AddFiles SFolder
Next SFolder
End If
End If
sngFileSize = FileSize * 1000
For Each SFile In SFolderSearch.Files
With SFile
If .Size >= sngFileSize And IIf(FileName.Text < > "", _
InStr(.Name, FileName.Text) > 0, True) Then
Set Itm = FileList.ListItems.Add(Text:=.Name)
lngSize = .Size / 1000
With Itm
.SubItems(1) = Format(lngSize, "#,###")
.SubItems(2) = SFile.Type
.SubItems(3) = SFile.ParentFolder
.SubItems(4) = SFile.DateLastModified
End With
End If
End With
Next SFile
Set Itm = Nothing
Set SFolder = Nothing
End Sub
  运行后,选择相应目录,再在FileName文本框中输入要查找的文件名或文件名的一部分,然后再在FileSize文本框中输入文件的大小,按下搜索按钮即可搜索到相应文件。当然,这只是个功能较为简单的文件搜索器,有兴趣的读者可以使用Scripting.FileSystemObject对象的属性为其添加一些更为有用的功能。

  本例程序在Visual Basic 4.0、Windows 95环境下调试通过。



让沟通更便捷 ConnectYard宣布推出全新的Web API 在Hadoop上运行SQL:程序员需知晓的13种数据工具 怎样用好Eucalyptus? AWS攻势变猛,Rackspace主动降价CDN与云存储 惠普将于下季度推出低功耗的Moonshot服务器 webOS复活!LG收购webOS用于智能电视 那些因为HTML5而将消亡的产品 初窥iWatch用户界面:开创基于时间的全新体验 如何编写出拥抱变化的代码? 20个优秀的前端框架 以AWS和vCloud为标杆看四大开源平台的定位 桌面集成开发环境五年内必将“死亡”? 助影人圆梦奥斯卡 8mm相机应用其实很平庸 苹果应用审查团队叫停Cookie追踪技术 时势造英雄:中国早期O2O创业故事 iOS开发与Android开发的四大不同 “消极抵抗”AWS OpsWork?RightScale首次宣布转售并支持GCE 2012年VC都把钱投给了哪些大数据初创公司? 耐用性将成苹果iWatch最大挑战 Sphinx:首款全硬件加速HTML5游戏引擎发布 PayPal创始人Levchin又创办了一家移动支付公司Affirm Zuck、Bill Gates、Jack Dorsey上银幕激励孩子编程 十款最新开源的开发者工具/应用(组图) Django 1.5发布,Python 3开始进入主流? [爆料]英特尔:将Hadoop“固化”到Xeon中 姗姗来迟:微软终于发布Windows 7 IE10正式版 谷歌推Google+登录系统 与Facebook争夺用户信息 微软在CodePlex上开源C++ REST SDK 代号Casablanca 论OpenAPI的起源与历史 LinkedIn开源低延时变化数据捕获系统Databus 微软发布全新WP应用 随时查看App崩溃信息 Google搜索从入门到精通(散分) 由于工作需要,将要转到Linux平台,请问那位知道有什么好的SQL Client在Linux下? 由于工作需要,将要转到Linux平台,请问那位知道有什么好的SQL Client在Linux下? 你是怎么过的?CSDN无高人?:( 找asp.net入门经典!一定是C#写的!!!在线等! 菜鸟的关于DataGrid的问题 资源管理器中选中的多个文件怎样传给我的程序 什么是“三层数据库”和“嵌入式软件系统”? 什么是“三层数据库”和“嵌入式软件系统”? 类似"hello world"的简单问题,求教 免费ASP空间申请,支持ACCESS 事件的终止? 数据追加求教:谢谢您!!!! 请问InputBox在framework 类库里面有没有代替的阿? 为什么我写到文件中的字符总长度比我实际应该要写的多? 如何使dbctrlgrid多选,并使鼠标右击相当于鼠标左击 关于静态IP地址,急!!! 如何将tomcat做为windows的一项服务启动? 请问各位大虾,哪有paradox(INPRISE 公司产品)数据库(*.DB)的资料? 非法操作的问题 请问各位大虾,哪有paradox(INPRISE 公司产品)数据库(*.DB)的资料? 各位大虾救命啊!请问怎么在一个DIALOG中使用RICHEDITVIEW,谢谢大家了 ACCESS的删除问题 我有“处女”情结,可.............. 菜问题,,马上给分sendto问题 while和for的区别 安装的问题 我喜欢上公司的JJ怎么办????? 谁能帮我反编译?急 1.7gmsdn如何改成3张碟刻出来 启动慢? 有什么方法实现点击"提交"按钮后,弹出一个框显示表单里的数据,"确定"后再提交,"取消"后不提交? 请教vb 字符串问题 急!明天要啊!(帮忙啊!)分在另一贴给! 请问如何创建一个组控件,然后又可以动态调用?请进!:) 用Jbuilder开发,怎样配置才能开发j2me? 关于HOOK和键盘屏蔽的问题??? 如何在自己的网页上嵌入google的页面翻译功能 有关2k的内存问题 阴谋家已被清除!大家尽兴的庆祝呀! 问一下 C++基础的弱智(20分钟内结贴) 高手请看:实形变量在不同的过程中调用问题?(大家都要遇到的问题,来着有分!) 还是没解决呀!!1 350元左右的MP3播放器谁好阿?你给推荐一下? 由于工作需要,将要转到Linux平台,请问那位知道有什么好的SQL Client在Linux下? 昨天做成功了有限集手写汉字识别的程序,高兴,散分!!! SOS。。。一个很基础的问题 。。 系统设计和软件设计的说明书问题 [请问]两个JavaScript问题 找个化学专家!教我一下化学知识 有点小钱想投资,朋友推荐了网贷平台利融网,但不太清楚年化利率是什么意思, 求解该题第三小问 铜能与浓硫酸反应而不能和稀硫酸反应 是什么原理 这一事实能说明反应物的性质影响化学反应速率吗 在英文中,diagonal road 是一种什么样的路?对角路?不明白这是什么东西…… 第三题第三小问怎么算? 什么是多元弱酸? 大肠杆菌某一多肽基因的编码链的序列是:5′ACAATGTATGGTAGTTCATTATCCCGGGCGCAAATAACAAACCCGGGTTTC3′⑴写出该基因的无意义链的序列以及它编码的mRNA的序列.⑵预测它能编码多少个氨基酸. 按题目列式计算解答. 医院在Jiefang Road的英语 为什么核酸中含有稀有碱基或稀有核苷?有何生物学意义? 题目↓(要列式计算)给幼儿园大班40个小朋友分苹果,每人2个就剩一些,每人3个就不够分,剩下的和不够的同样多,共有多少个苹果? word中 如何做文字围绕圆内走?word中 不能用艺术字! 每个蛋白质都有一、二、三级结构么?酶促反应中决定酶专一性的是那个部分酶促反应中决定酶反应性质的是那个部分tRNA的柄部在蛋白质生物合成时的作用 我的英语考试题 我对下答案 谢谢1.When are you going to hainan? I‘m going there----------june A With B O n C at D in 2.-------------? I have a sore throat. A What are you doing ? B 0.1mol碳约含有____个碳原子 2mol氧气约含有____个氧分子,____个氧原子 1mol硫酸约含有___个硫酸分子,___个氢原子___个硫原子,__个氧原子 0.5mol氢气约含有___个氢原子.___MOL氢原子 0.2mol氢氧化钡含有_ 初中物理第15,求解释 英语考试题的答案一、找出画线部分的读音不同于其他的升一项,将标号写在括号内.( )1、bread 2.head 3.ready 4.teacher( ) 1.look 2.room 3.book 4.good ( ) 1.yellow 2.window 3.cow 4.know( )1.white 2.where 3.what 4.who( word打出一段文字呈一个圆形就是在一个圆形的自选图形上打字,但要求充满整个圆而不是一个方形.(不要说用文本框一行行地调喔)不是说每个字有个圈,是一段文字呈一个圆形我的意思不是 初中物理15种研究方法 英语考试题目,大家帮忙给我选下答案第1题题目:The best students are ______ special scholarships. 可选答案: 1.rewarded 2.awarded 3.compensated 4.refused 第2题 题目类型: 单选题 题目:It ______ that the j word中怎样把文字均匀排放在360度的圆上 .生物氧化主要通过有机物质 反应实现的,生物氧化产生的H2O是通过 形成的. 在线英语考试题1,What makes a person a scientist?Does he have ways or tools of learning that are different from those of others?The answer is "no".It is not the tools a scientist uses but how he uses these tools that makes him a scientist.You w 葡萄的产量一亩大约是多少 机械能,这一题怎么写,为什么?第15题 求正确答案,这是英语考试题~Nearlyfive million people see Grand Canyon (大峡谷) each year.Most ofthem see it from their cars at overlooks along the South Rim.The South Rim isthe easiest to reach in the park..TheSouth Rim is open 24 hours 陕西一亩葡萄的产量是多少呢 这是什么原因?冬天手冷时,用嘴向手上“哈气”,即缓慢地吹 气,手感到暖和,而用劲向手上吹气,手不但不会暖和,反而会更冷.这是什么原因? 图中()号图形是1号长方形放大后的图形,它是按():()的比放大的. 要求是AAA+AA+A+A=BBBc 大中小的“中”的英文单词是什么? 什么是氧族元素? Cross the road啥意思 氟化氢铵对人体的危害浓度 氧族元素1.实验室制取SO2为什么只用中等浓度的H2SO4,不用浓H2SO4或稀H2SO4呢?2.为什么SO2不能使酸碱指示剂褪色? cross the road的中文意思 为什么人会变傻 什么叫氧族元素 cross the road的意思 氟化氢铵的化学性质及如何与三氯氢硅反应,与皮肤接触有哪些危害?当使用氟化氢铵溶液擦洗三氯氢硅时应注意哪些问题?氟化氢铵分解后的水溶液有哪些性质?三氯氢硅是附着在物体表面 关于氧族元素的问题下列事实能说明元素R一定是氧族元素的是A R为非金属元素,其氧化物对应水化物的化学式H2RO3B R的单质与H2生成H2RC R的单质可与Al反映生成Al2R3D R的氢化物的水溶液显酸性 dont cross the 全部症状:比如记忆力不好 集中力不好是代表变傻了吗 还有想太多会变傻吗 换个环境会变傻吗 太无聊会变傻吗 吃无限极的增健会变傻吗 我都觉得自己头天天晕晕的 想得太多了 我怕自己 氧族元素的题2 工业上从含硒的废料中提取硒的方法之一是用H2SO4和NaNO3处理废料,获得亚硒酸和少量硒酸,加入盐酸共热,硒酸被转化为亚硒酸:2HCl+H2SeO4=H2SeO3+Cl2↑+H2O再将SO2通入亚硒酸的溶液 英语的比较级规律是什么?不规则的有哪些类? cross the road中文是什么? 生物化学问题..关于蛋白质折叠..知道的帮个忙吖~~~感激!不定项选择,麻烦详细解释一下可以么~谢!下列关于蛋白质折叠的描述正确的是( ).A 可以使蛋白质序列上某些处于离散位置的氨基酸 化工系统工程的有关问题1、系统合成的主要任务是什么?2、系统合成的主要工作步骤有哪些?3、系统合成方法有哪些?4、精馏序列的合成问题包括哪些?5、某工艺物流,其流率为200 kg/s,换热后升 Ni(CO)4 为什么不是dsp2杂化?CO不是强配体吗?而Ni的价电子轨道挤一挤的话就会有1个空的d轨道了,那为什么Ni(CO)4不是dsp2而是sp3呢? Cu2+的杂化轨道的方式到底是dsp2还是sp3d2?求轨道表达式或电子排布式——这个必须有(关键问题)书上写dsp2的形成是3d轨道激发到4p上,那么该电子易失去,成Cu3+,这肯定不对,于是书上说晶体场 工业制得的纯碱可能含有少量的氯化钠,现取含有少量的氯化钠杂质的纯碱药品5g与足量的稀盐酸完全反应,放出1.76g气体.请计算这种纯碱样品中碳酸钠的质量分数. 请教高中物理光学问题为什么筷子插到水中时,人所看到的筷子会变粗 s电子绕核旋转,其轨道为一圆圈,p电子是走8字形判断题 并给出理由 浓硫酸和铜的化学方程式 请教一道高中物理光学题如图,MN是竖直放置的长L=0.5m的平面镜,观察者在A处观察,有一小球从某处自由下落,小球下落的轨迹与平面镜相距d=0.25m,观察者能在镜中看到小球像的时间△t=0.2s.已知观 关于氟化氢铵的出口氟化氢铵 是不是破坏臭氧层物质?出口这个需要向商务部申请专门的出口许可证么? 求指教!我在看一个汽车清洗剂的配方 算来算去 因为摩尔质量 我算不出来。求指教 配方如下:组分 m/kg聚丙烯酰胺(粉状) 25-90十二烷基苯磺酸钠 2-5脂肪醇聚氧乙烯醚 1-5十二万基硫酸钠 20- 谁能给我解释下责任的含义,你自己理解的责任与爱的关系,责任与快乐的关系等不要复制的,要你自己理解的 什么物质可以在氟化氢铵中长期存放!我们公司需要在氟化氢铵溶液中放置超声波装置,但是氟化氢铵溶液的腐蚀性太大,很短的时间内超声波就坏了,想问一下有什么好的处理方法吗?超声波是 美国与新西兰恢复联合军演国务院批复绍兴撤销绍兴县设柯桥区 撤Google加产数万副谷歌眼镜 20世行报告称全球营商环境改善翘臀又嘟嘴 壮汉翻拍“性感照”遭吐槽日本进入“胖女时代”或因对瘦人审美疲12岁黑客入侵加拿大政府网站 辩称仅11年来最强风暴袭英国 海陆空交通大英首相:媒体爆料美监听丑闻是“资敌”美国在欧反导基地开建 防范伊朗导弹引美国会计划彻查全部情报监控项目中国海军“杀手锏”亮相引外媒关注欧洲多国遭强飓风袭击 已共致13人遇巴格达为当地孤儿举办联欢活动【组图】利比亚发生5000万美元劫案迈克尔杰克逊私人医生刑满出狱 欲再获阿根廷政府开始局部放松外汇管制外媒:中国重视周边外交令日美警惕美被曝监听西班牙电话6000万宗引发越南民众聚集政府大楼前抗议挖沙公司破韩江原道前方哨所一士官遭枪击身亡 或投资市场中的成功者特质!选吉利博瑞1.8T尊贵白 邻居说:大“增设地方节假日”看起来很美好,落实[治国理政地方谈]把绘就的蓝图建成协石家庄永昌周日首战,你想知道的信息全从点滴做起,“感恩作业”还需内化于心“正大光明乞讨”站不住脚,谨防乞讨变【治国理政地方谈】以“开放发展”诠释解绑家长 石家庄主城区小学推免费托管搜题软件莫给教育“帮倒忙”,理性使用雷锋精神与社会文明进步【长城时评】全国人大代表陈舟表示中国国防费开支增原油沥青大涨后续走势还会下跌吗,空单为什么你的花呗额度不断下降?原因可能Dior不仅吸引来了宋茜、王珞丹,还这些企业将被淘汰!180万人要重新择3.5分析下周原油和铜及走势女汉子平价购买七座SUV-汉兰达 情【两会进行时】一行三会要合并,易纲怎如何白手起家挣到一百万?北上广深的房价已成功与国际接轨,然而
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘