frmfw.frm

vb 调用ＩＢＭ ｄｏｍｉｎｏ ｓｅｒｖｅｒ数据库的例子

VERSION 5.00
Object = "{E684D8A3-716C-4E59-AA94-7144C04B0074}#1.1#0"; "GridEX20.ocx"
Begin VB.Form frmFW 
   Caption         =   "发文"
   ClientHeight    =   8190
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   9405
   LinkTopic       =   "Form3"
   ScaleHeight     =   8190
   ScaleWidth      =   9405
   StartUpPosition =   3  '窗口缺省
   Begin GridEX20.GridEX GridEX1 
      Height          =   7575
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   9735
      _ExtentX        =   17171
      _ExtentY        =   13361
      Version         =   "2.0"
      BoundColumnIndex=   ""
      ReplaceColumnIndex=   ""
      ScrollToolTipColumn=   ""
      HeaderFontSize  =   8.25
      FontSize        =   8.25
      ColumnHeaderHeight=   270
      IntProp1        =   0
      IntProp2        =   0
      IntProp7        =   0
      ColumnsCount    =   2
      Column(1)       =   "frmFW.frx":0000
      Column(2)       =   "frmFW.frx":00C8
      FormatStylesCount=   6
      FormatStyle(1)  =   "frmFW.frx":016C
      FormatStyle(2)  =   "frmFW.frx":024C
      FormatStyle(3)  =   "frmFW.frx":0390
      FormatStyle(4)  =   "frmFW.frx":0440
      FormatStyle(5)  =   "frmFW.frx":04F4
      FormatStyle(6)  =   "frmFW.frx":05CC
      ImageCount      =   0
      PrinterProperties=   "frmFW.frx":0684
   End
End
Attribute VB_Name = "frmFW"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
ption Explicit

Dim view As NotesView


Private Sub Form_Load()


Call ShowGridEX1
Exit Sub
err_main:
    MsgBox "系统连接数据库失败，可能是以下原因：" & _
    Chr(13) & Chr(10) & _
    "1、数据库服务没有启动！" & _
    Chr(13) & Chr(10) & _
    "2、数据库连接参数设置不正确！" & _
    Chr(13) & Chr(10) & _
    "3、网络连接不正确！" & _
    Chr(13) & Chr(10) & _
    Chr(13) & Chr(10) & _
    "请检查无误后重新运行系统。" & _
    Chr(13) & Chr(10) & Chr(13) & Chr(10) & "详细错误信息如下：" & Chr(13) & Chr(10) & "[" & Err.Number & "]" & Err.Description, vbInformation + vbOKOnly, "信息"
End Sub
Private Sub ShowGridEX1()
    Dim rs As New ADODB.Recordset
 
    rs.Open "Select * from " & txtfwTable, Gcon_main, adOpenDynamic, adLockReadOnly
    Set GridEX1.ADORecordset = rs
    If GridEX1.Columns(GridEX1.Columns.count).Caption = "ID" Then GridEX1.Columns(GridEX1.Columns.count).Width = 0 '隐含ID

End Sub