a亚洲精品_精品国产91乱码一区二区三区_亚洲精品在线免费观看视频_欧美日韩亚洲国产综合_久久久久久久久久久成人_在线区

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

用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->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 欧美视频免费在线观看 | 麻豆精品久久 | 天堂网中文在线 | 国产精品久久久久久久久久妞妞 | 欧美日韩不卡 | 五月天在线婷婷 | 国产99精品 | 在线免费国产 | 国产一区二区三区免费视频 | 综合网在线 | 欧美在线一区二区三区 | 四虎影院最新网址 | 羞羞视频网站在线观看 | 四虎影院观看 | 亚洲精品1 | 啪一啪av| www成人精品| 日韩国产欧美在线观看 | 欧美狠狠操 | 得得啪在线视频 | 国产亚洲欧美在线 | 成人av网站在线观看 | 精品久久久久久久人人人人传媒 | 大色欧美| 亚洲欧洲一区二区 | 中文字幕一二三区有限公司 | 久久久女女女女999久久 | 每日更新在线观看av | 日韩免费在线播放 | 久久韩剧网 | 成人一区二区三区 | 2021狠狠干 | 国产成人在线播放 | 久久高清亚洲 | 日韩h在线观看 | 色综合久| 秋霞精品 | 在线观看91精品国产入口 | 亚洲二区在线观看 | 久久久国产一区二区三区四区小说 | 久久久精彩视频 |