国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

用VisualBasic開發數據庫瀏覽器

2019-11-18 17:47:32
字體：大 中 小
來源：轉載
供稿：網友
Microsoftaccess是VisualBasic最常用的數據庫，但VisualBasic沒有提供類似FoxPRoforWindows的BROWS命令的函數來瀏覽Access數據庫。本程序提供了一種類似BROWS命令界面瀏覽Access數據庫的方法，感興趣的讀者可以把這個程序改寫為帶參數（數據庫名、表名、字段名、字段寬度等）的子程序，實現類似Foxproforwindows的BROWS命令的功能，在自己的應用程序中調用。
首先，在窗口中定義一個網格（gridl）、一個列表框（list1）、一個普通對話框（dlg）、一個數據察覺項（datal）、兩個命令按鈕（command1和command2），排好位置。
程序執行時，按“打開”按鈕打開一個對話框，選定數據庫文件后程序在列表框中顯示數據庫包含的表名，單擊列表框中的表名即可瀏覽該表。本程序可自動根據字段長度和16cunt=datal.Database.TableDefs.Count
17listl.Clear
18ForI=0Tocunt-1'將表名加入到列表框
19IfLeft(datal.Database.TableDefs(I).Name,4)<>"Msys"Then
20listl.Additemdatal.Database.TableDefs(I).Name
21EndIf
22NextI
23label1.Visible=True
24list1.Visible=True
25list1.ListIndex=0
26canc:
27EndSub
28SubCommand2_Click()'鼠標器點“退出”鍵
29End
30EndSub
31SubForm_Load()
32browser.Caption="Access瀏覽器"
33grid1.Height=3200
34grid1.Visibli=False
35list1.Visible=False
36label1.Visible=False
37EndSub
38SubListl_Click()'鼠標器點列表框
39DimctAsInteger
40data1.RecordSource=listl.Text
41ct=data1.Database.TableDefs(list1.ListIndex).Fields.Count
42grid1.Cols=ct
43grid1.Row=0
44ForI=0Toct-1'將表中各字段名加到網格第一行
45grid1.Col=I
46grid1.Text=data1.Database(data1.RecordSource),Fields(I).Name
47Nexti
48data1.Refresh
49data1.Recordset.MoveLast
50grid1.Rows=data1.Recordset.RecordCount 1
51data1.Recordset.MoveFirst
52grid1.Row=0
53WhileNotdata1.Recordset.EOF'將數據讀入網格各單元
54grid1.Row=grid1.Row 1
55Fori=0Toct-1
56grid1.Col=I
57IfNotIsNull(datal.Recordset(I).Value)Then
58grid1.Text=datal.Recordset(I).Value
59Else
60grid1.Text=""
61EndIf
62cellwidth=TextWidth(grid1.Text) 200
63Ifcellwidth>grid1.ColWidth(I)Then
64gridl.ColWidth(I)=cellwidth
65EndIf
66NextI
67data1.Recordset.MoveNext
68Wend
69grid1.Width=0
70Fori=0Toct-1'計算網格總寬度
71grid1.Width=gridl.Width gridl.ColWidth(I)
72NextI
73Ifgrid1.Width>scalewidthThen'如果網格總寬度大于窗口寬度
74grid1.Width=scalewidth
75EndIf
76grid1.Height=(gridl.Rows 2)*20*grid1.FontSize'計算網格長度
77Ifgrid1.Height>3200Then'如網格長度出界
78grid1.Height=3200
79EndIf
80browser.Width=grid1.Width 300'設置窗口寬度
81grid1.Visible=True
82EndSub->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 安西县| 丹棱县| 红安县| 闻喜县| 威远县| 宣汉县| 赣州市| 湟源县| 新巴尔虎左旗| 遵化市| 海林市| 乐平市| 萍乡市| 龙江县| 辽宁省| 西城区| 乌鲁木齐县| 三门峡市| 绥芬河市| 永昌县| 凤山县| 司法| 许昌市| 镇安县| 兴安盟| 安平县| 应城市| 云南省| 襄汾县| 舟山市| 乌兰县| 大方县| 龙南县| 迁安市| 万宁市| 安溪县| 苍南县| 中西区| 玉门市| 宾川县| 措美县|