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

在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环境下调试通过。



Jamo创始人揭底AWS,棱镜阴影下的云行业态势 成本、创新、可靠:游戏公司FunPlus选择AWS的三大理由 全透明、可折叠,平板电脑概念机是这样的 插件大集合!开源包管理器Alcatraz迎来Xcode 5更新 Q语言:新型的数据定义语言 非响应式手机网站页面的优化 高薪必备:Hadoop求职者的6大攻略 微软或将于四月发布“返璞归真”的Windows 8.1 Update 1 《近匠》第14期:LiveCode——全民开发工具 美团梁堰波:用SQL-on-Hadoop构建互联网数据仓库与商务智能系统 程序员游戏Style:亚特兰大极客使用机器学习玩转Flappy Bird Gleasy CTO薛珂:成立3年,企业用户2万+,移动办公蕴藏较大发展机遇 Unity Awards展区“点亮”Unity亚洲开发者大会 DevBox:最实用的移动开发辅助工具包 【技术博客推荐】创客程序员设计实现最小物联网系统 MySQL还是NoSQL:开源盛世下的数据库该如何选择 利用Hadoop Streaming处理二进制格式文件 如果没有强大的API,那么还是与OpenStack兼容吧 企业社交工具为何走向衰退? 封闭还是开放?雅虎禁止用户使用Facebook、谷歌ID登录和使用其服务 【OSTC讲师专访】罗聪翼:付出和回报在开源世界成正比 近匠:“词Ci”——全栈“女神”如何诠释倾城之美 国内首届引擎黑客松Cocos2d-x Hackathon即将开赛! 抛弃CloudStack,GoDaddy加入OpenStack PaaS平台之争:Cloud Foundry是赢家吗? 投资超140亿美元,涨幅达30%,数据密集型应用将占领第三平台 汽车开放平台:看看通用汽车是怎么做API的 Gamebase将推全新跨平台3D游戏引擎Reach3dx 借助API Telegram能否成为第二个WhatsApp 机器学习也感性:90后软妹纸的编程之路 为安防与视频监控而生 西数紫盘首发 鼠标在视图和用非模式对话框交互绘图 在.login中怎么设置汉字的位数? oracle9i的安装文件都有什么?望高之!急! 如何用window.open弹出一个屏幕居中的窗口? 大侠们,在线求word200文件密码破解,急!!!!!!!!!!! ccnet(苦海放歌) tdl982324(石井坚) ( ) wanghr100(灰豆宝宝.net) possible_Y(◎)(◎)←(这是眼镜,不要想歪了)请接分 ccnet(苦海放歌)yaoxuefeng(锋雨者)brainf(后街)请接分 配置节的type的第二个参数的含义 报表问题。 最近在找个网站管理系统,各位能否给个建议 windows2000的奇怪问题 关于如何自定义组件问题 有关windows 98自动重起问题。 ListBox问题 VFP8.0中的数组问题,高手和用过的人来看看! 数据库的移植问题? 重新开机时常常变成"大图标",怎样设置使WIN2K所有磁盘(c,d,e盘)上的所有文件夹和文件以"列表"显示,就是让"查看"->"列表"固定? oracle9i的安装文件都有什么?望高之!急! 哪位有没有SCJP培训的录音或其他教学的好东西阿 MSComm控件在设计时运行没问题,但打包后装到别的机子老是出现“没有注册类”,求救? delphi 做的数据库应用程序如何移植?? copysign怎么用啊? 如何将一个网页的所有链接均自动加为绝对链接? 技术与数学的问题 本人写了一个设置纸张方向和大小的函数,其中MyDevMode.dmPaperSize = psize '若vbPRPSA3 设置纸大小为A3,但在VB对象库中找不A2张对应值 tomcat4.1.24中的sevlet问题 我下载了linux的iso文件,可怎么安装啊!! 我想问一下,有关于计数器的相关的信息? 救急:是否可以在两个页面(两个单独打开得ie浏览器页面)传递参数,如何实现啊? JDBC相关的两个问题 Oracle8.1.6怎样连接SQL SERVER2000 ?(在线等待) inserted表问题 急!!!关于FileSystemObject问题,在线等 dll 编译问题 请教 请教关于iterator与container? 谁有mixerAPI的中文资料,如(mixerGetLineInfo)我需要弄懂原理(不需要MSDN) 请问“怎么样才能修改以有的flash文件”,拜托,在线等待 如何使相同的子窗口显示一个? ?请教高手有关Align的问题。 高手帮我谢谢注释~~高分相赠~~~~谢谢高手~~~~ 各位大牛们,小弟想请教大家对FlowMIS这个平台有多少了解,用此平台进行二次开发(企业信息系统)好不好。 SQL SERVER2000 怎样连接Oracle8.1.6(在线等待) C语言程序设计 如何在英文字符集的客户端访问服务器为中文的数据库? 那4M是不是让诺基亚给偷了?! 如何调用ResetPrinter函数设置默认打印机 listview使用的问题 delphi的打包问题 请大家推荐一个短信网关 调查:当你身边响起神圣的国歌时,你会不会不由自主站起来,手放到胸前,跟着节奏一起唱起来?(有感而发) 请问如何调用.chm的帮助文件? 都说吃四条腿的(牛羊猪)不如吃两条腿的(鸡鸭),两条腿的不如一条腿的(菌菇类),一条腿的不如没有腿的(鱼),那虾算哪一类? 这些年来,人们的日子越来越红火,真是_________.(歇后语) 望梅止渴主要内容 初中数学概括,越详细越好. 谚语“是金子总会发光”相近的故事是( )A.灰姑娘b.白雪公主c.丑小鸭D.海的女儿 表示“扔”的词语?暗暗暗暗暗暗暗暗 霍乱毒素B亚单位的主要用途? 底座是三根柱子的建筑 抛的词语是什么 核仁在核糖体亚单位前体组装中的作用是什么? 水刀切割机可以切木材吗,能切多厚,精度多少,刀路多宽.水刀切割机价格 核糖体大小亚基为什么要分离 越难越好 我才申请的 把分都给你 桃花的雄蕊有什么特点急求、、、、、 原核细胞的核糖体两个亚基分别是多大? 1.求证:对于给定的等边三角形,三角形内任意一点到三边的距离和为定值2.在∠B的两边上分别取点A,C,过A作AD⊥BC于D,过C作CE⊥AB于E,若AB≥BC,CE≥AB,那么∠B等于多少度?3.直线AB,CD交与点O,OE平分 两小儿辩斗对你有啥启发?孔子不能决也 说明啥? 与初中有关的所有物理公式(越详细越好) 霍乱肠毒素的组成中,表达肠毒素的作用成分 是A亚单位还是A1呢? 欧姆定律的应用题,越详细越好..1、(2007•宁波)如图,电源电压保持不变,表①、②、③是电流表或电压表,滑动变阻器R2的滑片P在中点,闭合开关S,三只电表均有示数.当滑片P向左移动时, 单细胞生物有没有线粒体? 朱自清在写《春》时,多处用了比喻,如写桃花、杏花、梨花,说它们“红的像火,粉的像霞,白的像雪;写…朱自清在写《春》时,多处用了比喻,如写桃花、杏花、梨花,说它们“红的像火,粉的像 适用简易程序有哪些条件? 好的,但是我想先看一下电视节目.的英语怎么说求大神 根基造句 界门纲目科属种的门有哪些门脊索动物门之类的, 早期城市的基本特征有..六个 朱自清在写《春》时,多处用了比喻,写桃花,杏花,梨花时 the only way i could do this was. 这里省去的是什么单词the only way i could do this was.这里省去的是什么单词作什么语先行词被什么词在从句中代替填术语 求问城市与广大农村相比,具有哪些基本特征? “火”还表示桃花——,“霞”还表示杏花——,“雪”还表示梨花——. 《独立宣言》,《人权宣言》,《权利法案》的启示. 为什么说密集性是城市基本特征之一 桃花,杏花,梨花都开了,红的像火,粉的像霞,白的像雪.这句话吧()比作(),说明花儿() ONE SHOT什么意思 Helicopters have only been worked on by man since 1940.怎么翻译这句话,主要是only 我不解 朱自清中的《春》为什么只写“桃花、杏花、梨花”,而不写“荷花或菊花”?如果你是老师,你怎样回答这个问题? 对丁克家族的看法?我是80年后的一代,父母辈的人的观念是:结婚就应该生孩子,这是种幸福.可是我不认为是这样.也许是价值观不同吧.我认为生孩子是项弊大于利的投资.想到生孩子,我就联想 A man has been arrested____the murder of the teenager.A in connection withB to connect 青蛙为什么长两条腿?而蝌蚪都有四条腿.. 这两个小孩哪个说的有道理?意思是什么!简介一点!好的话+100分!别长篇大论! Hardware changes might not have been detected 初一时钟问题 对丁克家族应持有什么态度 英语原型填空 send 还是 sendsPeople in western countries ____ e-cards to each other at Christmas.这里改用 send 还是第三人称 sends.这里的people 貌似是作单数的吧,今天老师说的时候我没听清楚. 没有四条腿的椅子叫什么?就是没有四条腿,可以在东北炕上用的.可以后依的. 核糖体大小亚基在合成蛋白质前是分开的还是在一起的 NADP+怎么念 椅子为什么四条腿? spare part怎么读 Do you expect _to be any possibility that he will be elected chairman?A .it B.there 2.The information on the Internet gets around much more rapidly than _in the newspaper.A.it B.that3.I intended to compare notes with a friend,but unfortunately _cound 杏花、桃花、梨花开花时间 凳子为什么是四条腿? android 手机spare part 里面有挂载/系统有只读和读写到底有什么用—什么区别—选择的话选择哪个呢? 描写桃花,杏花和梨花的句子描写桃花,杏花和梨花的句子,不要诗句,要段落 江苏省有没有动物卫生监督服装海南、上海都有 12month and 1% spare 这实在出口产品保修期的一种说法,我只是不明白的1%spare 我的理想 作文 写关于素描的 县级动物卫生监督检查站一个月能开多少钱 Spare part of flue gas 印度今日追梦火星 否认与中国竞争白宫微博有“水军”专为奥巴马“解围”英国政府禁止内阁会议及其它敏感部门使斯诺登求美“宽大处理”被拒 在俄与德朝鲜证实海军官兵殉职美机场枪案嫌犯为“独狼”中国小伙MBA毕业 波士顿街头卖烤肉全国反“四风”开整7大问题 叫停公款武康女店主发现儿子走丢忘报警16岁少年带着理发用剪刀抢劫不成去自90后女子看老公送很多红心给别人醋意嘉兴男子家因排污管堵塞被污水淹 9户女子给骗子汇钱逼停出租车 的哥及时中杭州国际人才交流与合作大会明天开幕 多项违纪 孙杨被处停赛、停训、暂停一浙江杭州等地连续雾霾 “最美马拉松”“海龟”与“土鳖”结合 浙江发展关键金华房地产投资增速连续七个月居全省首张高丽在上海浙江调研:东部地区要带头杭州欲从钱塘江引风进城吹走灰霾“国家记忆”美国档案馆二战缅印战场影普洱173名稀有血型献血者加入献血者阿里巴巴集团任命金建杭为总裁互联网“恋上”汽车 谁是谁的“唐僧肉五旬妇女被困横梁下 67小时后获救沪13家房产中介联合抵制搜房网昆明市医疗队进入光明村一幅“藏宝图”串玩10大乐园传递爱 感谢您绅宝飞行秀昆明站“比翼双飞”中海地产昨6.9亿元底价拿地红云街道云南信息报第十二届全国重点网络媒体河北行准备工俄罗斯在边境集结两万大军 北约担心俄医院对伤员展开心理干预中国联通驰援鲁甸灾区宝骏730免费使用7天家有七口来报名90后执着典范 执着追求艺术路多个省外院校三本录取线不输二本线“爱心鸟”王兰兰赶赴鲁甸开展心理帮扶童言无忌长期反复静脉输液或造成静脉血栓
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘