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

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



苹果已证实收购Topsy或将涉足社交领域 触摸未来:Tactus微流体技术2014年来袭 Windows的未来:一个核心 多个版本 Github项目中使用率最高的Java/Ruby/JS库 2013中国大数据技术大会盛大开幕 从黑色星期五找到的六个规则 帮助网站转化 移动开发者的自学宝典:十大在线编程学习网站 MIT新技术:远程触摸和操纵实物 创新人机交互 中国移动研究院业务支撑研究所所长孙少陵:大数据实时处理技术发展趋势及中国移动实践和展望 “第一届中国大数据技术创新与创业大赛”主办方发言及创新分赛颁奖 中国移动研究院业务支撑研究所所长孙少陵:大会及与会嘉宾介绍 中国工程院院士、大数据专家委员会主任李国杰:能挖掘出价值的数据就是好数据 阿里飞天平台总架构师唐洪:飞天开放平台 百度大数据首席架构师林仕鼎:新计算时代 金山发布全系列IaaS平台 Google无人驾驶汽车与机器人组合,秒杀无人机 Google欲推新Chrome应用:适用于Android、iOS平台 comScore:美国市场苹果手机独占鳌头 Android和iOS双寡头垄断 一周消息树:新技术实现远程触摸和操纵实物 创新人机交互 研发周报:帮助网站转换的六大黑色星期五规则 【开源专访】JFinal作者詹波:以极简方式实现Web项目的极速开发 2013中国智能交通与大数据技术峰会:迎接交通大数据新时代 大数据应用技术(上):加速创新,重塑世界 英特尔百度携手推出首个跨平台应用商店 12月9日:计算机软件第一夫人Grace Hopper出生 触摸屏将成笔记本标配 电脑行业或将迎来又一春 触摸4G,你必须要知道的那些事儿 TIOBE 2013年12月编程语言排行榜:Transact-SQL冲刺年度语言 敏捷开发的6个实战经验 【图文】走近华为企业业务与支撑万人技术团队的云数据中心 《习惯联盟》陈晓冬:与京东云合作让我们没有后顾之忧 请赐教 如何建立mts與com,dcom,com+通信,其中每種方式有何不同之處? 有个有关j2ee应用服务器的问题,很困惑!(急,一定给分!) 学习c和c++学要学习汇编吗????? 我先试一 下 关于得到文件的名字? 用5行代码就让系统重起的帖子怎么找不着了?谁告诉我?加分了!! 素女经 如何修改SQL数据库表中的数据 在对话框里输出文字?不要控件!!不要static 控件 一个关于打印的怪问题! 如何将数据库通过JDBC接收并将字段关键字连成一棵树(每一分支最多64节点) 救急!!!!!!!小妹我遇到一点问题! 今年就业形势“大好”! ******* 马上就给分,所以给的少了点,大家别介意 ******** 大家给点意见 请关注一个初学者的问题?我学sql但是不知未来的发展趋势!? 图形数据窗口(line 星)点太大,如何缩小 救急!!!!小妹我遇到一点问题! 用bcb制作动态网页 数据窗口 Graph 类型 line 样式 如何学c语言? Delphi中如何获的其它应用程序中的内容? 显示颜色变成只有16色和2色? DWORD 参数传递的问题。 那里有播放AVI文件的程序?谢谢! 参数传递问题!!大侠帮帮我 请帮我修改一下源代码(delphi)请帮忙改一下,让它打印了不往里(数据库)存。 BIOS设置,用电脑是不是可以当闹钟呢? 五笔输入法忽然不能用了 救就我,为什么Frame的客户区变小了?关于切分窗口 怎样查找某一个目录下一个表是否存在? 请问有用过李阳疯狂英语的朋友吗?请说说到底怎么样? 我想向各位大侠请教一个问题? 如何屏蔽TEXTBOX的回车响应? 关于《各位学习编程的目的是什么》的总结 m_pusrrcdset->m_pDatabase->ExecuteSQL("")为什么不行?老是ASSERT错误 请问我刚入bcb的大门,有什么好的参考书可以看看吗? 有没有人知道计算机等级考试四级怎么查分啊? 如何将几个数组的信息写成一个.txt文本文件 笔试题请教? 请教一个小问题! 好难呀好难呀!!!!! 今天狠了狠心买了一本<>,花了我十分之一的工资!心疼啊!散点分! 请问有谁知道如何在C#中使用DirectX? 我在Picturebox中用Picture1.print打了200行数据,可我只能看到前20行 pb数据窗口中的列名在win2000 server里为什么显示不了中文? God save me,help...... tcl手机所使用的是那种操作系统,能否告知小弟,重分相谢! 异常中的问题 根据字义组词全( ) 向远处看( )举:向上托( ) 望:意料( )推选( ) 探看( )看( ) 好办( )见:看法( ) 易:交换( )会面( ) 和气( ) 仓库运来一批粮食.其中小麦35吨,稻谷比小麦和黄豆的总数还多12吨.问:运来的黄豆比的稻谷少多少吨 在平面直角坐标系xOy中,反比例函数y=k/x的图像与y=3/x的图像关于x轴对称,又与直线y=ax=2交于点A(M,3)试确定a的值 根据字义组词语陷:1、掉进(),2、凹进(),3、陷害() 仓库运来一批粮食.其中小麦35吨,稻谷比小麦和黄豆的总数还多12吨.问:运来的黄豆比稻谷少多少吨 在平面直角坐标系xoy中,反比例函数Y=K/X的图象与Y=3/X的图象关于X轴对称,又与直线Y=AX+2交于点A(M,3)A值 显露:( )(根据字义组词)根据字义组词,并用透组词, 周口哪有收购粮食的?例如小麦、大豆、玉米之类?除了粮食仓库之外能不能提供联系方式啊? 已知直线y=(1-3k)x+2k-1.(1)k为何值时,直线在y轴上的截距为-2? 根据字义组词:算算:弄清是非算:计划,筹划.要明确一点!用算组词! 在平面直角坐标系中,已知点(1-2a,a-2)在第三象限,且a为整数,求a的值.请写出具体过程, 已知直线y=(1-3k)x+2k-1.(1)k为何值时,直线在y轴上的截距为2?(2)k为何值时,直线与x轴交于(¾,0)(3)k为何值时,y随x的增大而增大 根据字义组词.稍稍喘息( )透穿过,通过( )到处都是( )漫随随便便( )断( )绝独一无二,没有可比的( ) 在平面直角坐标系中,点E(3k-9,1-k)在第三象限内,且点的坐标都为整数,求E点的坐标 已知直线y=(1-3k)x+2k-1 (1) k为何值时y是一条与x轴平行的直线 雏菊什么篱笆 已知点A(m,n),在平面直角坐标系中的第三象限,其坐标m,n满足3m+2n=k-9,2m+n=k-7.(1)、求整数K的值;(2)、当K为整数时,分解因式(a+b)³-k(a+b)=? 已知a^x=1/2,b^k=-1/3,求a^2k-3k的值 雏菊 篱笆.黄昏雏菊 篱笆.黄昏 村庄.阳光 大海.把下面句子填写完整使他们读起来充满诗情画意. 海洋对地球的天气有什么作用 大气对地球有哪些重要作用 (拟人句)雏菊____________________篱笆.黄昏( )村庄 海洋对环境的作用 空气层对地球有什么好处 雏菊紧靠篱笆生长.(改写拟人句) 海洋在调节全球气候的作用,谈谈目前的研究概况 实际应用的可能性等等 地球表面的空气层叫大气层,由于它也受到( )作用,且具有( ). 雏菊.篱笆 黄昏.村庄 阳光.大海填写完整 海洋如何调节全球气候越快越好 为什么地球的大气具有保温作用 按字义组词张:1、铺排、陈列(组褒义词成语) 2、看望好:1、喜欢(组褒义词成语) 2、友爱各:1、逐个(组褒义词成语) 2、各个不同熟:1、成熟 2、习惯、常见、清楚要快,又快又好 在平面直角坐标系中,已知点p(1-3m,m-4)在第三象限,且m为整数,求m的值. 六年级第一学期语文课本第一课中的芒针是什么意思 我会根据字义组词章:歌曲诗文的段落() 条理() 章程()挽:拉() 哀悼死者()会几个,填几个 已知m,n为整数,且满足2m^2+n^2+3m+n-1=0,求m,n的值 地球的大气层有什么作用?如果没有大气层,地球将会怎样? 空气对环境有什么作用 已知点P(2M-1,-3M-1)在第三象限内,若M为整数,求点P的坐标 大气层的存在,使地球变得较适宜生命的出现和繁衍.大气层的作用中较重要的作用是保护作用,请列举大气层对地球的好处. 裸子植物是我国各地城镇常见的树种,对于___环境,___空气和减轻___污染等具有重要作用快 已知点【2M-13,16 -3M】在第三象限,整数M的值是? 大气层中起到吸收紫外线,保护地球生命作用的是哪种成分? 化学在未来的生活中会起到什么作用?比如在空气环境方面?食物方面? 微生物对环境的正面影响和负面影响 请问大气层对地球生物的好处或人类如何保护大气层? 雏菊的英文名称 根据字义组词:冷1,温度低()2,寂静,不热闹()3,暗中的,突然的() 人类对环境造成的正和负面影响? 韩国电影的英文介绍我们上课要用,越详细越好.(不仅仅是剧情)最好是有中文对照的, 在平面直角坐标系内,已知点(1-2a,a-2)在第三象限,且a为整数,求a的值. 生物都生活在有空气的环境中.这句话对吗? 雏菊的英语怎么拼? 净化环境和调节空气一样吗 在平面直角坐标系中,已知点A(-3,N)和点B(1-M,M-3),若点A与点B关于Y轴对称,则M= N= 雏菊英语怎么说 森林能净化空气,调节气候的现象是不是主要说明了环境对植物的影响/ 影响生物生活的环境因素分为两大类:一类是〔 〕,如阳光、空气等;另一类是〔 〕,是指影响生物生存的其他 已知集合A={a|2kπ 封闭环境的操作空间,空气有哪些有害物质? 在平面直角坐标系中,点A(-3,m)与点B(n,1)关于x轴对称,则m+n=
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn