form1.frm

vb数据库编程,适合初学vb的朋友,很有参考价值.

VERSION 5.00
Object = "{65E121D4-0C60-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCHRT20.OCX"
Begin VB.Form Form1 
   Caption         =   "读取数据库数据并生成直方图 By CodeFans.net"
   ClientHeight    =   5400
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   7080
   LinkTopic       =   "Form1"
   ScaleHeight     =   5400
   ScaleWidth      =   7080
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "显示Access数据库"
      Height          =   375
      Left            =   2280
      TabIndex        =   1
      Top             =   4800
      Width           =   2025
   End
   Begin MSChart20Lib.MSChart MSChart1 
      Height          =   4455
      Left            =   120
      OleObjectBlob   =   "Form1.frx":0000
      TabIndex        =   0
      Top             =   120
      Width           =   6855
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Download by http://www.codefans.net
Private Sub Command1_Click()
Dim i As Integer
    Dim NewDyn As Recordset
    Dim OpenWs As Workspace
    Dim OpenDB As Database
    Set OpenWs = DBEngine.Workspaces(0)
    Set OpenDB = OpenWs.OpenDatabase(App.Path & "\example1.mdb")
    Set NewDyn = OpenDB.OpenRecordset("select * from temp", dbOpenSnapshot)
    NewDyn.MoveLast
    NewDyn.MoveFirst
    If NewDyn.RecordCount = 0 Then
    MsgBox "请在数据库中输入数据!", vbCritical
    Exit Sub
    End If
    With MSChart1
    .TitleText = "直方图示例"
    .RowCount = NewDyn.RecordCount
    For i = 1 To NewDyn.RecordCount
    .Row = i
    .Data = NewDyn.Fields("数据")
    .RowLabel = NewDyn.Fields("日期")
    NewDyn.MoveNext
    Next i
    End With
    NewDyn.Close

End Sub