home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / ch_code / ch18 / ado1 / adoform.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1998-07-14  |  3.5 KB  |  108 lines
  1. VERSION 5.00
  2. Begin VB.Form ADOForm 
  3.    Caption         =   "ADO Example 1"
  4.    ClientHeight    =   3336
  5.    ClientLeft      =   60
  6.    ClientTop       =   348
  7.    ClientWidth     =   6588
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   3336
  10.    ScaleWidth      =   6588
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.ListBox List2 
  13.       BeginProperty Font 
  14.          Name            =   "Verdana"
  15.          Size            =   9
  16.          Charset         =   0
  17.          Weight          =   400
  18.          Underline       =   0   'False
  19.          Italic          =   0   'False
  20.          Strikethrough   =   0   'False
  21.       EndProperty
  22.       Height          =   2640
  23.       Left            =   2760
  24.       TabIndex        =   1
  25.       Top             =   480
  26.       Width           =   3615
  27.    End
  28.    Begin VB.ListBox List1 
  29.       BeginProperty Font 
  30.          Name            =   "Verdana"
  31.          Size            =   9
  32.          Charset         =   0
  33.          Weight          =   400
  34.          Underline       =   0   'False
  35.          Italic          =   0   'False
  36.          Strikethrough   =   0   'False
  37.       EndProperty
  38.       Height          =   2640
  39.       Left            =   240
  40.       TabIndex        =   0
  41.       Top             =   480
  42.       Width           =   2295
  43.    End
  44.    Begin VB.Label Label2 
  45.       Caption         =   "Selected Products"
  46.       BeginProperty Font 
  47.          Name            =   "Verdana"
  48.          Size            =   9
  49.          Charset         =   0
  50.          Weight          =   400
  51.          Underline       =   0   'False
  52.          Italic          =   0   'False
  53.          Strikethrough   =   0   'False
  54.       EndProperty
  55.       Height          =   300
  56.       Left            =   2784
  57.       TabIndex        =   3
  58.       Top             =   144
  59.       Width           =   2196
  60.    End
  61.    Begin VB.Label Label1 
  62.       Caption         =   "Product Category"
  63.       BeginProperty Font 
  64.          Name            =   "Verdana"
  65.          Size            =   9
  66.          Charset         =   0
  67.          Weight          =   400
  68.          Underline       =   0   'False
  69.          Italic          =   0   'False
  70.          Strikethrough   =   0   'False
  71.       EndProperty
  72.       Height          =   300
  73.       Left            =   288
  74.       TabIndex        =   2
  75.       Top             =   144
  76.       Width           =   2196
  77.    End
  78. Attribute VB_Name = "ADOForm"
  79. Attribute VB_GlobalNameSpace = False
  80. Attribute VB_Creatable = False
  81. Attribute VB_PredeclaredId = True
  82. Attribute VB_Exposed = False
  83. Dim ADOConnection As Connection
  84. Dim RSCategories As Recordset
  85. Dim RSProducts As Recordset
  86. Private Sub Form_Load()
  87.     Set ADOConnection = CreateObject("ADODB.Connection")
  88.     Set RSCategories = CreateObject("ADODB.Recordset")
  89.     ConnectionString = "DSN=NWindDB"
  90.     ADOConnection.Open ConnectionString
  91.     RSCategories.Open "SELECT CategoryName, CategoryID FROM Categories", ADOConnection
  92.     Set RSProducts = CreateObject("ADODB.Recordset")
  93.     While Not RSCategories.EOF
  94.         List1.AddItem RSCategories("CategoryName")
  95.         List1.ItemData(List1.NewIndex) = RSCategories("CategoryID")
  96.         RSCategories.MoveNext
  97.     Wend
  98. End Sub
  99. Private Sub List1_Click()
  100.     RSProducts.Open "SELECT ProductName FROM Products WHERE CategoryID=" & List1.ItemData(List1.ListIndex), ADOConnection
  101.     List2.Clear
  102.     While Not RSProducts.EOF
  103.         List2.AddItem RSProducts("ProductName")
  104.         RSProducts.MoveNext
  105.     Wend
  106.     RSProducts.Close
  107. End Sub
  108.