首页 | 新闻资讯 | 软件应用 | 图形图像 | 网络应用 | 硬件学堂 | 程序开发 | 安全中心 | 素材下载 | 作者专区 | 学院论坛
精选专题 | 精美壁纸 | 专家答疑 | Flash剧场 | Photoshop | 名词解释 | 梦幻桌面 | PS高手进阶 | QQ区 | 图书 | 黑客教材
Flash教程| 卡通制作 | AutoCAD | 3DMax实例 | PS视频教程| 网页制作 | CorelDRAW| Firework | 滤镜与实例 | 全部视频教程
当前位置:eNet硅谷动力 > 学院频道 > VB

在VB6中用 Select 语句检索记录
2004-02-12 23:07 来源:eNet论坛
    
加入收藏  设为首页

  本文向你介绍如何不用借助Access,直接在程序中创建一个数据库,然后从标准的ASCII文本文件中读取数据到数据库中。原文是微软知识库中的一篇文章,但当时是针对VB3写的,所以其中的代码有点过时。例如现在DAO中已没有Table对象,代之以Recordset对象。下面是修改后的代码,在VB6中调试通过。

  首先在工程中添加对Microsoft DAO 3.51 Library引用。

  在窗体中添加三个命令按钮和两个MSFlexGrid.

  按照下表设置和控件的属性:

  控件 属性 值

  Command1 Caption "建立文本文件并显示在网格中"

  Command2 Caption "传输入数据并新建一个数据库"

  Command3 Caption "显示新数据库中的数据"

  Grid1 Cols 5

  Grid1 Rows 35

  Grid2 Cols 5

  Grid2 Rows 35

  将下面的代码添加到窗体的声明部分

  Dim nums(30) As Long

  Dim names(30) As String * 20

  Dim addresses(30) As String * 25

  Dim ss_nums(30) As String * 12

  Const DB_LONG = 4

  Const DB_TEXT = 10

  Const DB_LANG_GENERAL = ";LANGID=0x0809;CP=1252;COUNTRY=0"

  将下面的代码添加到窗体的Load事件中

  Sub Form_Load ()

  Show

  grid1.ColWidth(1) = 1000 'For Emp ID

  grid1.ColWidth(2) = 2000 'For Emp Name

  grid1.ColWidth(3) = 3000 'For Emp Addr

  grid1.ColWidth(4) = 2000 'For Emp SSN

  grid1.Col = 1

  grid1.Row = 0

  grid1.Text = "Emp ID" 'Header for Emp ID from text file

  grid1.Col = 2

  grid1.Row = 0

  grid1.Text = "Emp Name" 'Header for Emp Name from text file

  grid1.Col = 3

  grid1.Row = 0

  grid1.Text = "Emp Addr" 'Header for Emp Addr from text file

  grid1.Col = 4

  grid1.Row = 0

  grid1.Text = "Emp SSN" 'Header for Emp SSN from text file

  grid2.ColWidth(1) = 1000 'For Emp ID

  grid2.ColWidth(2) = 2000 'For Emp Name

  grid2.ColWidth(3) = 3000 'For Emp Addr

  grid2.ColWidth(4) = 2000 'For Emp SSN

  grid2.Col = 1

  grid2.Row = 0

  grid2.Text = "Employee ID" 'Header for Emp ID from DB

  grid2.Col = 2

  grid2.Row = 0

  grid2.Text = "Employee Name" 'Header for Emp Name from DB

  grid2.Col = 3

  grid2.Row = 0

  grid2.Text = "Employee Addr" 'Header for Emp ID from DB

  grid2.Col = 4

  grid2.Row = 0

  grid2.Text = "Employee SSN" 'Header for Emp Name from DB

  End Sub

  (未完)
[1] [2]下一页
关键字:  
您对这篇文章的看法是:    喜欢 反感 支持 反对 加油 鄙视 学习 打击 佩服 漂亮 路过 发表评论
视频教程】 【专题汇总】 【不懂就问我关闭窗口

性能更优越 教您了解Office 2010
Cisco路由器配置的详细分析
清理和关闭多余的Win 7系统服务
Photoshop把美女照片转成墨迹效果
线缆连接不当 引网络访问频繁出错
 本栏目最新文章
·编写电话拨号程序时一点小技巧
·VB开发应用软件之写在动手之前
·用VB实现“木马”式隐形运行程序
·怎样实现在VB窗体中有Html页面
·用VB编程实现图像的熠熠生辉效果
 精彩回放
· PS给艺术雕塑打造炫光特效
· PS把美女打造成恐怖女僵尸
· PS打造时尚的美女折叠照片
· PS打造车模炫丽的海报特效
· PS打造美女飘逸柔软的长发
· 清理和关闭多余的Win7服务
· 越南混血美女瑶瑶诱惑写真
· Cisco 路由器配置详细分析
 今日软件下载
杀毒软件免费随便用
瑞星全功能安全软件2009 基于“云安全”策略和“智能主动防御”技术开发.
www.rising.com.cn
 往日推荐
·广州车展:人气车模排行榜
·青春洋溢:“海藻”私密写真
·Photoshop 最简易磨皮方法

论坛精华
·photoshop完美扣图教 
·PhotoShop实例精选电 
·Photoshop入门教程快 
·打包笔刷 附图的~~ 
·文字处理的20几种方 
·史上最强最多 photo 
热点推荐
打造潮湿文字
PS阿凡达海报
动画制作宝典
Flash制作小游戏
热点关注
·邓丽欣不雅照超越艳照门
·PHP+MYSQL视频教程
·史上最强悍AutoCAD视频教程
·隐私?三招让硬盘无处泄密
·让你5天学通Flash
·最新最牛Windows 7视频教程
·8美女当街“脱光”求嫁
·张馨予激情写真挑战裸露极限
·Vray高级实例应用视频教程
Fireworks CS4 从入门到精通视频教程
往日推荐
练成C++高手
鹏哥C#教程
ASP项目实战
PS发黄老照片
焦点关注
有道关注