当前位置: 网学 > 编程文档 > VB > 正文

用Visual Basic开发数据库浏览器

来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 12/10/16
下载{$ArticleTitle}原创论文样式

  Microsoft Access是Visual Basic最常用的数据库,但Visual Basic没有提供类似Foxpro for Windows的BROWS命令的函数来浏览Access数据库。本程序提供了一种类似BROWS命令界面浏览Access数据库的方法,感兴趣的读者可以把这个程序改写为带参数(数据库名、表名、字段名、字段宽度等)的子程序,实现类似Foxpro for windows的BROWS 命令的功能,在自己的应用程序中调用。
首先,在窗口中定义一个网格(gridl)、一个列表框(list1)、一个普通对话框(dlg)、一个数据察觉项(datal)、两个命令按钮(command1和command2),排好位置。
程序执行时,按“打开”按钮打开一个对话框,选定数据库文件后程序在列表框中显示数据库包含的表名,单击列表框中的表名即可浏览该表。本程序可自动根据字段长度和字体大小设置浏览区的大小,以保证浏览区不会超出窗口。如果窗口满足不了浏览区,程序自动给浏览区加水平或竖直滚动条。附程序清单:
1 Sub Command1_Click() ’鼠标器点“打开”键
2 Dim, I As Integer,cunt As Integer
3 grid1.Visible=False
4 dlg.Filename=""
5 dlg.Filter="Access(*.MDB)|*.MDB"
6 dlg.FilterIndex=1
7 dlg.Action=1 ’打开对话框
8 If dlg.Filename=""Then ’如果未选定文件
9 GoTo canc
10 End If
11 datal.Connect=""
12 datal.DatabaseName=dlg.Filename
13 datal.RecordSource=""
14 datal.Refresh
15 browser.Caption="Access浏览器["+datal.DatabaseName+"]"
16 cunt=datal.Database.TableDefs.Count
17 listl.Clear
18 For I=0 To cunt-1 ’将表名加入到列表框
19 If Left(datal.Database.TableDefs(I).Name,4) <>"Msys"Then
20 listl.Additem datal.Database.TableDefs(I).Name
21 End If
22 Next I
23 label1.Visible=True
24 list1.Visible=True
25 list1.ListIndex=0
26 canc:
27 End Sub
28 Sub Command2_Click() ’鼠标器点“退出”键
29 End
30 End Sub
31 Sub Form_Load()
32 browser.Caption="Access浏览器"
33 grid1.Height=3200
34 grid1.Visibli=False
35 list1.Visible=False
36 label1.Visible=False
37 End Sub
38 Sub Listl_Click() ’鼠标器点列表框
39 Dim ct As Integer
40 data1.RecordSource=listl.Text
41 ct=data1.Database.TableDefs(list1.ListIndex).Fields.Count
42 grid1.Cols=ct
43 grid1.Row=0
44 For I=0 To ct-1 ’将表中各字段名加到网格第一行
45 grid1.Col=I
46 grid1.Text=data1.Database(data1.RecordSource),Fields(I).Name
47 Nexti
48 data1.Refresh
49 data1.Recordset.MoveLast
50 grid1.Rows=data1.Recordset.RecordCount+1
51 data1.Recordset.MoveFirst
52 grid1.Row=0
53 While Not data1.Recordset.EOF ’将数据读入网格各单元
54 grid1.Row=grid1.Row+1
55 Fori=0 To ct-1
56 grid1.Col=I
57 If Not Is Null(datal.Recordset(I).Value)Then
58 grid1.Text=datal.Recordset(I).Value
59 Else
60 grid1.Text=""
61 End If
62 cellwidth=TextWidth(grid1.Text)+200
63 If cellwidth >grid1.ColWidth(I)Then
64 gridl.ColWidth(I)=cellwidth
65 End If
66 Next I
67 data1.Recordset.MoveNext
68 Wend
69 grid1.Width=0
70 Fori=0 To ct-1’计算网格总宽度
71 grid1.Width=gridl.Width+gridl.ColWidth(I)
72 Next I
73 If grid1.Width > scalewidth Then ’如果网格总宽度大于窗口宽度
74 grid1.Width=scalewidth
75 End If
76 grid1.Height=(gridl.Rows+2)*20*grid1.FontSize ’计算网格长度
77 If grid1.Height >3200 Then ’如网格长度出界
78 grid1.Height=3200
79 End If
80 browser.Width=grid1.Width+300 ’设置窗口宽度
81 grid1.Visible=True
82 End Sub

  • 上一篇资讯: 怎样打开或关闭CD-ROM
  • 网学推荐

    免费论文

    原创论文

    浏览:
    设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
    版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
    Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
    湘ICP备09003080号