Codebase list ohcount / dfcc369c-a8fa-4697-8331-c0472835aae2/main test / expected_dir / visual_basic.bas
dfcc369c-a8fa-4697-8331-c0472835aae2/main

Tree @dfcc369c-a8fa-4697-8331-c0472835aae2/main (Download .tar.gz)

visual_basic.bas @dfcc369c-a8fa-4697-8331-c0472835aae2/mainraw · history · blame

visualbasic	code	VERSION 5.00
visualbasic	code	Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
visualbasic	code	Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
visualbasic	code	Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
visualbasic	code	Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
visualbasic	code	Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
visualbasic	code	Begin VB.Form frmMain
visualbasic	code	   BorderStyle     =   1  'Fixed Single
visualbasic	code	   ClientHeight    =   6555
visualbasic	code	   ClientLeft      =   150
visualbasic	code	   ClientTop       =   435
visualbasic	code	   ClientWidth     =   10620
visualbasic	code	   LinkTopic       =   "Form1"
visualbasic	code	   MaxButton       =   0   'False
visualbasic	code	   MinButton       =   0   'False
visualbasic	code	   ScaleHeight     =   6555
visualbasic	code	   ScaleWidth      =   10620
visualbasic	code	   StartUpPosition =   3  'Windows Default
visualbasic	code	Attribute VB_Name = "frmMain"
visualbasic	code	Attribute VB_GlobalNameSpace = False
visualbasic	code	Attribute VB_Creatable = False
visualbasic	code	Attribute VB_PredeclaredId = True
visualbasic	code	Attribute VB_Exposed = False
visualbasic	comment	'---------------------------------------------------------------------------
visualbasic	comment	'
visualbasic	comment	' SOURCE FILE NAME: Demo.frm
visualbasic	comment	'
visualbasic	comment	' SAMPLE: Visual Basic Demo with user interface for the sample modules
visualbasic	comment	'
visualbasic	comment	' For more information about samples, refer to the README file.
visualbasic	comment	'
visualbasic	comment	'---------------------------------------------------------------------------
visualbasic	blank	
visualbasic	code	Option Explicit
visualbasic	blank	
visualbasic	code	Private con As ADODB.Connection
visualbasic	code	Private rst As ADODB.Recordset
visualbasic	code	Private strMsgText As String
visualbasic	code	Private wShowInstructions As Integer
visualbasic	blank	
visualbasic	comment	'This procedure calls ConnectOLEDB() in the module dbConn to get
visualbasic	comment	'a connection object.
visualbasic	code	Private Sub cmdConnectOLEDB_Click()
visualbasic	comment	  'define the error handler
visualbasic	comment	'  On Error GoTo cmdConnectOLEDB_Error
visualbasic	blank	
visualbasic	comment	  'connect to database
visualbasic	code	  Set con = ConnectOLEDB()
visualbasic	blank	
visualbasic	comment	  'generate a message of success
visualbasic	code	  sbrStatus.Panels(1).Text = "Connect to sample database succeeded!"
visualbasic	blank	
visualbasic	comment	  'config status of the buttons
visualbasic	code	  EnableButtons
visualbasic	blank	
visualbasic	comment	  'show instructions
visualbasic	code	  If wShowInstructions = vbYes Then
visualbasic	code	    ShowConnectionInstruction
visualbasic	code	  End If
visualbasic	code	End Sub