home *** CD-ROM | disk | FTP | other *** search
/ Tricks of the Windows Gam…ming Gurus (2nd Edition) / Disc2.iso / msdn_vcb / samples / vc98 / sdk / dbmsg / sql / vbsql / chngdb.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-04-03  |  2.1 KB  |  75 lines
  1. VERSION 2.00
  2. Begin Form CHNGDB 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Change Database"
  6.    ForeColor       =   &H00000000&
  7.    Height          =   2160
  8.    Left            =   2895
  9.    MaxButton       =   0   'False
  10.    MinButton       =   0   'False
  11.    ScaleHeight     =   1755
  12.    ScaleWidth      =   5640
  13.    Top             =   3150
  14.    Width           =   5760
  15.    Begin CommandButton CANCEL_BUTTON 
  16.       BackColor       =   &H00C0C0C0&
  17.       Cancel          =   -1  'True
  18.       Caption         =   "Cancel"
  19.       Height          =   480
  20.       Left            =   3240
  21.       TabIndex        =   3
  22.       Top             =   1200
  23.       Width           =   1320
  24.    End
  25.    Begin CommandButton OK_BUTTON 
  26.       BackColor       =   &H00C0C0C0&
  27.       Caption         =   "OK"
  28.       Default         =   -1  'True
  29.       Height          =   480
  30.       Left            =   1080
  31.       TabIndex        =   2
  32.       Top             =   1200
  33.       Width           =   1320
  34.    End
  35.    Begin ComboBox DBNAME_COMBO 
  36.       BackColor       =   &H00FFFFFF&
  37.       ForeColor       =   &H00000000&
  38.       Height          =   300
  39.       Left            =   2040
  40.       TabIndex        =   1
  41.       Text            =   "Combo1"
  42.       Top             =   360
  43.       Width           =   3240
  44.    End
  45.    Begin Label Label1 
  46.       BackColor       =   &H00FFFFFF&
  47.       Caption         =   "Database Name:"
  48.       ForeColor       =   &H00000000&
  49.       Height          =   240
  50.       Left            =   240
  51.       TabIndex        =   0
  52.       Top             =   480
  53.       Width           =   1560
  54.    End
  55. '$INCLUDE: 'VBQUERY.BI'
  56. '$INCLUDE: 'VBDSQL.BI'
  57. Sub CANCEL_BUTTON_Click ()
  58.     Unload Chngdb
  59. End Sub
  60. Sub Form_Load ()
  61.     Result% = GetDatabases(DBNAME_COMBO)
  62.     If Result% = FAIL% Then Unload Chngdb
  63. End Sub
  64. Sub OK_BUTTON_Click ()
  65.     newname$ = DBNAME_COMBO.Text
  66.     If SqlUse(SqlConn, newname$) = SUCCEED% Then
  67.         DatabaseName$ = DBNAME_COMBO.Text
  68.         ChangePrimaryWindowCaption
  69.         SqlStatus = SUCCEED
  70.     Else
  71.         SqlStatus = FAIL
  72.     End If
  73.     Unload Chngdb
  74. End Sub
  75.