小弟经常查看数据库里面的数据查看表数据,要用对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] 下一页 |