Codebase list ohcount / upstream/4.0.0+git20210223.6654d48 test / detect_files / frx1.frx
upstream/4.0.0+git20210223.6654d48

Tree @upstream/4.0.0+git20210223.6654d48 (Download .tar.gz)

frx1.frx @upstream/4.0.0+git20210223.6654d48raw · history · blame

VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmMain
   BorderStyle     =   1  'Fixed Single
   ClientHeight    =   6555
   ClientLeft      =   150
   ClientTop       =   435
   ClientWidth     =   10620
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6555
   ScaleWidth      =   10620
   StartUpPosition =   3  'Windows Default
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'---------------------------------------------------------------------------
'
' SOURCE FILE NAME: Demo.frm
'
' SAMPLE: Visual Basic Demo with user interface for the sample modules
'
' For more information about samples, refer to the README file.
'
'---------------------------------------------------------------------------

Option Explicit

Private con As ADODB.Connection
Private rst As ADODB.Recordset
Private strMsgText As String
Private wShowInstructions As Integer

'This procedure calls ConnectOLEDB() in the module dbConn to get
'a connection object.
Private Sub cmdConnectOLEDB_Click()
  'define the error handler
'  On Error GoTo cmdConnectOLEDB_Error

  'connect to database
  Set con = ConnectOLEDB()

  'generate a message of success
  sbrStatus.Panels(1).Text = "Connect to sample database succeeded!"

  'config status of the buttons
  EnableButtons

  'show instructions
  If wShowInstructions = vbYes Then
    ShowConnectionInstruction
  End If
End Sub