小弟经常查看数据库里面的数据查看表数据,要用对sql server 要有企业管理器或查询分析器 对oracle 用 sql plus , 来回切换真麻烦,于是编了一个数据库查看器 只针对 ms sql server 和 oracle 数据库,采用oledb连接数据库 本程序为VB程序,使用了 Microsoft Internet Controls 和 Microsoft Windows Common Controls 6.0的控件库 此外还引用了 Microsoft ActiveX Data Objects 2.5 Library , Microsoft OLE DB Service Component 1.0 Type Library 的引用 程序用户界面为 VERSION 5.00 Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX" Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "shdocvw.dll" Begin VB.Form frmViewData Caption = "Form1" ClientHeight = 6780 ClientLeft = 60 ClientTop = 345 ClientWidth = 9630 Icon = "frmViewData.frx":0000 LinkTopic = "Form1" ScaleHeight = 6780 ScaleWidth = 9630 StartUpPosition = 2 ''''CenterScreen Begin VB.CommandButton cmdMin Caption = "最小值" Height = 390 Left = 7680 TabIndex = 11 Top = 0 Width = 885 End Begin VB.CommandButton cmdMax Caption = "最大值" Height = 390 Left = 6735 TabIndex = 10 Top = 0 Width = 930 End Begin VB.CommandButton cmdCount Caption = "查询记录个数" Height = 390 Left = 5325 TabIndex = 9 Top = 0 Width = 1380 End Begin SHDocVwCtl.WebBrowser myGrid Height = 3525 Left = 3330 TabIndex = 8 Top = 3060 Width = 5070 ExtentX = 8943 ExtentY = 6218 ViewMode = 0 Offline = 0 Silent = 0 RegisterAsBrowser= 0 RegisterAsDropTarget= 1 AutoArrange = 0 ''''False NoClientEdge = 0 ''''False AlignLeft = 0 ''''False NoWebView = 0 ''''False HideFileNames = 0 ''''False SingleClick = 0 ''''False SingleSelection = 0 ''''False NoFolders = 0 ''''False Transparent = 0 ''''False ViewID = "{0057D0E0-3573-11CF-AE69-08002B2E1262}" Location = "http:///" End Begin VB.CommandButton cmdOpenTable Caption = "打开表" Height = 390 Left = 4170 TabIndex = 7 Top = 0 Width = 1110 End Begin VB.CommandButton cmdQuery Caption = "查询" Height = 390 Left = 2895 TabIndex = 6 Top = 0 Width = 1230 End Begin VB.CommandButton cmdRefreshSQL Caption = "刷新SQL语句" Height = 390 Left = 1260 TabIndex = 5 Top = 0 Width = 1590 End Begin VB.PictureBox picUpDown Height = 105 Left = 3360 MousePointer = 7 ''''Size N S ScaleHeight = 45 ScaleWidth = 4875 TabIndex = 4 Top = 2850 Width = 4935 End Begin VB.TextBox txtSQL BeginProperty Font Name [1] [2] [3] [4] [5] [6] 下一页没有相关教程
VERSION 5.00 Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX" Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "shdocvw.dll" Begin VB.Form frmViewData Caption = "Form1" ClientHeight = 6780 ClientLeft = 60 ClientTop = 345 ClientWidth = 9630 Icon = "frmViewData.frx":0000 LinkTopic = "Form1" ScaleHeight = 6780 ScaleWidth = 9630 StartUpPosition = 2 ''''CenterScreen Begin VB.CommandButton cmdMin Caption = "最小值" Height = 390 Left = 7680 TabIndex = 11 Top = 0 Width = 885 End Begin VB.CommandButton cmdMax Caption = "最大值" Height = 390 Left = 6735 TabIndex = 10 Top = 0 Width = 930 End Begin VB.CommandButton cmdCount Caption = "查询记录个数" Height = 390 Left = 5325 TabIndex = 9 Top = 0 Width = 1380 End Begin SHDocVwCtl.WebBrowser myGrid Height = 3525 Left = 3330 TabIndex = 8 Top = 3060 Width = 5070 ExtentX = 8943 ExtentY = 6218 ViewMode = 0 Offline = 0 Silent = 0 RegisterAsBrowser= 0 RegisterAsDropTarget= 1 AutoArrange = 0 ''''False NoClientEdge = 0 ''''False AlignLeft = 0 ''''False NoWebView = 0 ''''False HideFileNames = 0 ''''False SingleClick = 0 ''''False SingleSelection = 0 ''''False NoFolders = 0 ''''False Transparent = 0 ''''False ViewID = "{0057D0E0-3573-11CF-AE69-08002B2E1262}" Location = "http:///" End Begin VB.CommandButton cmdOpenTable Caption = "打开表" Height = 390 Left = 4170 TabIndex = 7 Top = 0 Width = 1110 End Begin VB.CommandButton cmdQuery Caption = "查询" Height = 390 Left = 2895 TabIndex = 6 Top = 0 Width = 1230 End Begin VB.CommandButton cmdRefreshSQL Caption = "刷新SQL语句" Height = 390 Left = 1260 TabIndex = 5 Top = 0 Width = 1590 End Begin VB.PictureBox picUpDown Height = 105 Left = 3360 MousePointer = 7 ''''Size N S ScaleHeight = 45 ScaleWidth = 4875 TabIndex = 4 Top = 2850 Width = 4935 End Begin VB.TextBox txtSQL BeginProperty Font Name [1] [2] [3] [4] [5] [6] 下一页没有相关教程
[1] [2] [3] [4] [5] [6] 下一页
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18