frmsw.frm

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

VERSION 5.00
Object = "{E684D8A3-716C-4E59-AA94-7144C04B0074}#1.1#0"; "GRIDEX20.OCX"
Begin VB.Form frmSW 
   Caption         =   "收文"
   ClientHeight    =   9915
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   15240
   LinkTopic       =   "Form2"
   ScaleHeight     =   9915
   ScaleWidth      =   15240
   StartUpPosition =   3  '窗口缺省
   Begin GridEX20.GridEX GridEX1 
      Height          =   9255
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   14055
      _ExtentX        =   24791
      _ExtentY        =   16325
      Version         =   "2.0"
      RecordNavigator =   -1  'True
      RecordNavigatorString=   "文件:第|份，总文件数："
      BoundColumnIndex=   ""
      ReplaceColumnIndex=   ""
      ScrollToolTipColumn=   ""
      MultiSelect     =   -1  'True
      RowHeaders      =   -1  'True
      ColumnHeaderHeight=   270
      IntProp1        =   0
      IntProp2        =   0
      IntProp7        =   0
      ColumnsCount    =   2
      Column(1)       =   "frmSW.frx":0000
      Column(2)       =   "frmSW.frx":00C8
      FormatStylesCount=   5
      FormatStyle(1)  =   "frmSW.frx":016C
      FormatStyle(2)  =   "frmSW.frx":02B0
      FormatStyle(3)  =   "frmSW.frx":0360
      FormatStyle(4)  =   "frmSW.frx":0414
      FormatStyle(5)  =   "frmSW.frx":04EC
      ImageCount      =   0
      PrinterProperties=   "frmSW.frx":05A4
   End
End
Attribute VB_Name = "frmSW"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option 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 " & txtswTable, 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