home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD1257312112000.psc / frmCreateQuery.frm (.txt) next >
Encoding:
Visual Basic Form  |  2000-11-30  |  5.2 KB  |  173 lines
  1. VERSION 5.00
  2. Begin VB.Form frmCreateQuery 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Create Query"
  5.    ClientHeight    =   1890
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   4290
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MDIChild        =   -1  'True
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   1890
  14.    ScaleWidth      =   4290
  15.    ShowInTaskbar   =   0   'False
  16.    Begin VB.ComboBox cmbCriteria 
  17.       Enabled         =   0   'False
  18.       Height          =   315
  19.       Left            =   1200
  20.       TabIndex        =   9
  21.       Text            =   "Combo1"
  22.       Top             =   1080
  23.       Width           =   1815
  24.    End
  25.    Begin VB.CommandButton cmdCancel 
  26.       Cancel          =   -1  'True
  27.       Caption         =   "Cancel"
  28.       Height          =   375
  29.       Left            =   3120
  30.       TabIndex        =   7
  31.       Top             =   1440
  32.       Width           =   1095
  33.    End
  34.    Begin VB.CommandButton cmdCreateQuery 
  35.       Caption         =   "Create Query"
  36.       Enabled         =   0   'False
  37.       Height          =   375
  38.       Left            =   3120
  39.       TabIndex        =   6
  40.       Top             =   960
  41.       Width           =   1095
  42.    End
  43.    Begin VB.TextBox txtCriteria 
  44.       Enabled         =   0   'False
  45.       Height          =   285
  46.       Left            =   1200
  47.       TabIndex        =   4
  48.       Text            =   "Text1"
  49.       Top             =   1560
  50.       Width           =   1815
  51.    End
  52.    Begin VB.ComboBox cmbField 
  53.       Enabled         =   0   'False
  54.       Height          =   315
  55.       Left            =   1200
  56.       TabIndex        =   3
  57.       Text            =   "Combo1"
  58.       Top             =   600
  59.       Width           =   1815
  60.    End
  61.    Begin VB.ComboBox cmbTable 
  62.       Height          =   315
  63.       Left            =   1200
  64.       TabIndex        =   1
  65.       Text            =   "Combo1"
  66.       Top             =   120
  67.       Width           =   1815
  68.    End
  69.    Begin VB.Label Label4 
  70.       Caption         =   "Criteria"
  71.       Height          =   255
  72.       Left            =   600
  73.       TabIndex        =   8
  74.       Top             =   1080
  75.       Width           =   615
  76.    End
  77.    Begin VB.Label Label3 
  78.       Caption         =   "Find"
  79.       Height          =   255
  80.       Left            =   720
  81.       TabIndex        =   5
  82.       Top             =   1440
  83.       Width           =   375
  84.    End
  85.    Begin VB.Label Label2 
  86.       Caption         =   "Select Field"
  87.       Height          =   255
  88.       Left            =   240
  89.       TabIndex        =   2
  90.       Top             =   600
  91.       Width           =   855
  92.    End
  93.    Begin VB.Label Label1 
  94.       Caption         =   "Select Table"
  95.       Height          =   255
  96.       Left            =   120
  97.       TabIndex        =   0
  98.       Top             =   120
  99.       Width           =   975
  100.    End
  101. Attribute VB_Name = "frmCreateQuery"
  102. Attribute VB_GlobalNameSpace = False
  103. Attribute VB_Creatable = False
  104. Attribute VB_PredeclaredId = True
  105. Attribute VB_Exposed = False
  106. Private Sub cmbCriteria_Click()
  107.    txtCriteria.Enabled = True
  108.    txtCriteria.SetFocus
  109. End Sub
  110. Private Sub cmbField_Click()
  111.    On Error Resume Next
  112.    If cmbField.ListIndex > -1 Then
  113.       cmbCriteria.Enabled = True
  114.       'txtCriteria.SetFocus
  115.    End If
  116. End Sub
  117. Private Sub cmbTable_Click()
  118. Dim I As Integer
  119. Dim FieldsCount As Long
  120.    On Error GoTo cmbTableError
  121.    If cmbTable.ListIndex > -1 Then
  122.       Set dbTable = dbDataBase.OpenRecordset(cmbTable.List(cmbTable.ListIndex))
  123.       FieldsCount = dbTable.Fields.Count - 1
  124.       
  125.       cmbField.Clear
  126.       'Add the table fields in cmbField
  127.       For I = 0 To FieldsCount
  128.           cmbField.AddItem dbTable.Fields(I).Name
  129.       Next I
  130.       
  131.       cmbField.Enabled = True
  132. '      txtCriteria.DataFormat = dbTable.Fields(cmbTable.ListIndex).Type
  133.    End If
  134.    Exit Sub
  135. cmbTableError:
  136. MsgBox Err.Description, vbCritical, "QuarantineDB : Error Num." & Err.Number
  137. End Sub
  138. Private Sub cmdCancel_Click()
  139.    Unload Me
  140. End Sub
  141. Private Sub cmdCreateQuery_Click()
  142. 'I'm sorry but it is a bug hire
  143. 'I don't know how to separate the difrent formats
  144. 'This is the razon we can make only queries with text format
  145. 'If you have idea how to help me : kicheto@goatrance.com
  146. Dim strSQL As String
  147.    On Error GoTo cmdCreateQueryError
  148.    Set dbQueryDef = dbDataBase.CreateQueryDef(QueryName)
  149.    strSQL = "Select * From " & cmbTable.Text & " where " & cmbField.Text & cmbCriteria.Text & "'" & txtCriteria.Text & "'"
  150.    dbQueryDef.SQL = strSQL
  151.    Exit Sub
  152. cmdCreateQueryError:
  153. MsgBox Err.Description, vbCritical, "QuarantineDB : Error Num." & Err.Number
  154. On Error Resume Next
  155. dbDataBase.QueryDefs.Delete QueryName
  156. End Sub
  157. Private Sub Form_Load()
  158.    Call InputTablesToComboBox(cmbTable)
  159.    cmbCriteria.AddItem "="
  160.    cmbCriteria.AddItem ">"
  161.    cmbCriteria.AddItem ">="
  162.    cmbCriteria.AddItem "<"
  163.    cmbCriteria.AddItem "<="
  164.    cmbCriteria.AddItem "<>"
  165. End Sub
  166. Private Sub txtCriteria_Change()
  167.    If txtCriteria.Text <> "" Then
  168.       cmdCreateQuery.Enabled = True
  169.    Else
  170.       cmdCreateQuery.Enabled = False
  171.    End If
  172. End Sub
  173.