home *** CD-ROM | disk | FTP | other *** search
/ Zodiac Super OZ / MEDIADEPOT.ISO / FILES / 13 / DBW10S30.ZIP / CREATEST.FRM < prev    next >
Text File  |  1995-04-20  |  3KB  |  98 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Create database - test project"
  5.    ClientHeight    =   2670
  6.    ClientLeft      =   1095
  7.    ClientTop       =   1485
  8.    ClientWidth     =   5250
  9.    Height          =   3075
  10.    Left            =   1035
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   2670
  15.    ScaleWidth      =   5250
  16.    Top             =   1140
  17.    Width           =   5370
  18.    Begin CommandButton Exit 
  19.       Cancel          =   -1  'True
  20.       Caption         =   "E&xit"
  21.       Height          =   375
  22.       Left            =   2625
  23.       TabIndex        =   3
  24.       Top             =   2070
  25.       Width           =   1380
  26.    End
  27.    Begin CommandButton Create 
  28.       Caption         =   "&Create"
  29.       Default         =   -1  'True
  30.       Height          =   375
  31.       Left            =   1050
  32.       TabIndex        =   2
  33.       Top             =   2070
  34.       Width           =   1380
  35.    End
  36.    Begin TextBox DBName 
  37.       Height          =   285
  38.       Left            =   2310
  39.       TabIndex        =   1
  40.       Text            =   "mydata.mdb"
  41.       Top             =   135
  42.       Width           =   2430
  43.    End
  44.    Begin Label Label3 
  45.       Caption         =   "Create a VB module from an existing database using DB2VB Wizard. Then add the generated .bas module (and DBCREATE.BAS if you chose that option) to this project and run it."
  46.       Height          =   915
  47.       Left            =   105
  48.       TabIndex        =   5
  49.       Top             =   945
  50.       Width           =   4740
  51.    End
  52.    Begin Label Label2 
  53.       Caption         =   "How to use this project:"
  54.       Height          =   240
  55.       Left            =   105
  56.       TabIndex        =   4
  57.       Top             =   675
  58.       Width           =   4530
  59.    End
  60.    Begin Label Label1 
  61.       Caption         =   "&Database to create:"
  62.       Height          =   240
  63.       Left            =   105
  64.       TabIndex        =   0
  65.       Top             =   180
  66.       Width           =   2010
  67.    End
  68. End
  69. Option Explicit
  70.  
  71. Sub Create_Click ()
  72.  
  73. MousePointer = 11 ' Hourglass
  74.  
  75. ' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  76. ' If the next statement produces an ERROR:
  77. ' 1) First generate a new .bas module using DB2VB Wizard
  78. '    and then add the generated module to this project
  79. ' 2) If still in error, check the generated module
  80. '    for the name of the function
  81. If Create_Database(DBName) Then
  82. ' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  83.     
  84.     MsgBox "Database created successfully"
  85.     End
  86. End If
  87.  
  88. MousePointer = 0 ' Default
  89.  
  90. End Sub
  91.  
  92. Sub Exit_Click ()
  93.  
  94. Unload Me
  95.  
  96. End Sub
  97.  
  98.