form1.frm

地理信息系统工程案例精选程序,本书所有案例均需要单独配置

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Form1 
   Caption         =   "使用Table对象访问数据示例"
   ClientHeight    =   3150
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   7530
   LinkTopic       =   "Form1"
   ScaleHeight     =   3150
   ScaleWidth      =   7530
   StartUpPosition =   3  '窗口缺省
   Begin MSComctlLib.ListView ListView1 
      Height          =   2415
      Left            =   120
      TabIndex        =   1
      Top             =   600
      Width           =   7335
      _ExtentX        =   12938
      _ExtentY        =   4260
      View            =   3
      LabelEdit       =   1
      LabelWrap       =   -1  'True
      HideSelection   =   -1  'True
      FullRowSelect   =   -1  'True
      GridLines       =   -1  'True
      _Version        =   393217
      ForeColor       =   -2147483640
      BackColor       =   -2147483643
      BorderStyle     =   1
      Appearance      =   1
      NumItems        =   0
   End
   Begin VB.CommandButton Command1 
      Caption         =   "显示数据"
      Height          =   375
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   1335
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'"显示数据"按钮鼠标单击事件响应代码
Private Sub Command1_Click()
  '建立Table对象
  Dim tbl As New MapObjects2.Table
  '访问VB自带的Northwind数据库
  '默认存在于C:\Program Files\Microsoft Visual Studio\VB98\NWIND.MDB
  tbl.Database = "C:\Program Files\Microsoft Visual Studio\VB98\NWIND.MDB"
  '访问其中的Employees数据表
  tbl.Name = "Employees"
  Dim recs As MapObjects2.Recordset
  '获取Table对象的记录集
  Set recs = tbl.Records
  recs.MoveFirst
  
  Dim i As Long
  With ListView1.ColumnHeaders
    .Clear
    '获取所有字段名
    For i = 0 To recs.TableDesc.FieldCount - 1
      .Add Key:=recs.TableDesc.FieldName(i), _
            Text:=recs.TableDesc.FieldName(i)
    Next i
  End With
  
  Dim ListItemX As ListItem
  Dim FieldName As String
  Do Until recs.EOF
    '向ListView中添加数据
    Set ListItemX = ListView1.ListItems.Add
    For i = 0 To recs.TableDesc.FieldCount - 1
      '从TableDesc对象中按顺序获取字段名
      FieldName = recs.TableDesc.FieldName(i)
      '填入数据
      If i = 0 Then
        ListItemX.Text = recs.Fields(FieldName).ValueAsString
      Else
        ListItemX.ListSubItems.Add Key:=FieldName, _
                                  Text:=recs.Fields(FieldName).ValueAsString
      End If
    Next i
    recs.MoveNext
  Loop
End Sub