home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / source / chap21 / frm821.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-28  |  2.0 KB  |  73 lines
  1. VERSION 4.00
  2. Begin VB.Form frmgrid 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   5940
  5.    ClientLeft      =   1140
  6.    ClientTop       =   1515
  7.    ClientWidth     =   6690
  8.    Height          =   6345
  9.    Left            =   1080
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   5940
  12.    ScaleWidth      =   6690
  13.    Top             =   1170
  14.    Width           =   6810
  15.    Begin MSGrid.Grid Grid1 
  16.       Height          =   3975
  17.       Left            =   60
  18.       TabIndex        =   0
  19.       Top             =   240
  20.       Width           =   6555
  21.       _version        =   65536
  22.       _extentx        =   11562
  23.       _extenty        =   7011
  24.       _stockprops     =   77
  25.       cols            =   3
  26.       mouseicon       =   "FRM821.frx":0000
  27.    End
  28. Attribute VB_Name = "frmgrid"
  29. Attribute VB_Creatable = False
  30. Attribute VB_Exposed = False
  31. Option Explicit
  32. Private Sub Form_Load()
  33. Dim ws As Workspace
  34. Dim db As DATABASE
  35. Dim rs As Recordset
  36. Screen.MousePointer = 11
  37. Set ws = DBEngine.CreateWorkspace("ws1", "Admin", "")
  38. Set db = ws.OpenDatabase("\source\chap21\biblio.mdb", False, False)
  39. Set rs = db.OpenRecordset("select * from Titles order by title", dbOpenDynaset)
  40. rs.MoveLast
  41. Grid1.Rows = rs.RecordCount + 2
  42. rs.MoveFirst
  43. Grid1.Row = 0
  44. Grid1.Col = 0
  45. Grid1.TEXT = "PUBID"
  46. Grid1.ColWidth(0) = 1000
  47. Grid1.Col = 1
  48. Grid1.TEXT = "Year"
  49. Grid1.ColWidth(1) = 1000
  50. Grid1.Col = 2
  51. Grid1.TEXT = "Title"
  52. Grid1.ColWidth(2) = 3000
  53. Grid1.Row = 1
  54. Do While rs.EOF = False
  55.     Grid1.Col = 0
  56.     If Not IsNull(rs("pubid")) Then
  57.         Grid1.TEXT = rs("pubid")
  58.     End If
  59.     Grid1.Col = 1
  60.     If Not IsNull(rs("year published")) Then
  61.         
  62.         Grid1.TEXT CStr(rs("year published"))
  63.     End If
  64.     Grid1.Col = 2
  65.     If Not IsNull(rs("title")) Then
  66.         
  67.         Grid1.TEXT = rs("title")
  68.     End If
  69.     rs.MoveNext
  70.     Grid1.Row = Grid1.Row + 1
  71. Screen.MousePointer = 0
  72. End Sub
  73.