git.oblomov.eu Git - ohcount/blob - test/expected_dir/frx1.frx/visualbasic/code

   1 VERSION 5.00
   2 Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
   3 Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
   4 Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
   5 Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
   6 Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
   7 Begin VB.Form frmMain
   8 BorderStyle     =   1  'Fixed Single
   9 ClientHeight    =   6555
  10 ClientLeft      =   150
  11 ClientTop       =   435
  12 ClientWidth     =   10620
  13 LinkTopic       =   "Form1"
  14 MaxButton       =   0   'False
  15 MinButton       =   0   'False
  16 ScaleHeight     =   6555
  17 ScaleWidth      =   10620
  18 StartUpPosition =   3  'Windows Default
  19 Attribute VB_Name = "frmMain"
  20 Attribute VB_GlobalNameSpace = False
  21 Attribute VB_Creatable = False
  22 Attribute VB_PredeclaredId = True
  23 Attribute VB_Exposed = False
  24 Option Explicit
  25 Private con As ADODB.Connection
  26 Private rst As ADODB.Recordset
  27 Private strMsgText As String
  28 Private wShowInstructions As Integer
  29 Private Sub cmdConnectOLEDB_Click()
  30 Set con = ConnectOLEDB()
  31 sbrStatus.Panels(1).Text = "Connect to sample database succeeded!"
  32 EnableButtons
  33 If wShowInstructions = vbYes Then
  34 ShowConnectionInstruction
  35 End If
  36 End Sub