form1.frm

VB操作ACCESS数据库实例.rar

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   4260
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   8625
   LinkTopic       =   "Form1"
   ScaleHeight     =   4260
   ScaleWidth      =   8625
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton ReadData 
      Caption         =   "读取数据库"
      Height          =   735
      Left            =   6240
      TabIndex        =   3
      Top             =   480
      Width           =   1935
   End
   Begin VB.CommandButton Delete 
      Caption         =   "删除记录"
      Height          =   855
      Left            =   6240
      TabIndex        =   2
      Top             =   2880
      Width           =   1935
   End
   Begin VB.CommandButton Update 
      Caption         =   "修改记录"
      Height          =   735
      Left            =   6240
      TabIndex        =   1
      Top             =   2040
      Width           =   1935
   End
   Begin VB.CommandButton InsertButton 
      Caption         =   "添加记录"
      Height          =   615
      Left            =   6240
      TabIndex        =   0
      Top             =   1320
      Width           =   1935
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'天佑汶川、天佑四川、天佑甘肃、天佑中华、天佑善良的人！
'作者：大唐
'发布日期：2008/06/08
'描    述：一个简单的vb6操作ACCESS数据库实例
'网    站：http://www.zhiweikeji.cn/  (智威科技)
'OICQ    ：21792038
'天佑汶川、天佑四川、天佑甘肃、天佑中华、天佑善良的人！
'****************************************************************************



 '***********************************************************
 
 '添加数据
 
 '************************************************************
 
 Private Sub InsertButton_Click()
 
 '调用数据库连接过程
  Call OpenConn
  
 '执行添加sql语句
 cn.Execute "Insert into Users (UserName,UserPassword) values ('admin','admin')"
 
 '调用信息窗口过程
 Call msginfo("添加")
 
 '调用数据库关闭过程
 Call CloseConn
 
 '调用读取数据库过程
 Call ReadData_Click
 
 End Sub
 
 
 
 
 '***********************************************************
 
 '修改数据
 
 '************************************************************
 
 Private Sub Update_Click()
 
 '调用数据库连接过程
  Call OpenConn
  
 '执行更新sql语句
 cn.Execute "Update Users set UserName='update' where UserName='admin'"
 
 '调用信息窗口过程
  Call msginfo("修改")
 
 '调用数据库关闭过程
 Call CloseConn
 
 '调用读取数据库过程
 Call ReadData_Click

 End Sub



 '***********************************************************
  
 '删除数据
 
 '************************************************************
 
 Private Sub Delete_Click()
 
 '调用数据库连接过程
  Call OpenConn
  
 '执行删除sql语句
 cn.Execute "Delete from Users where  UserName='update'"
 
 '调用信息窗口过程
 Call msginfo("删除")
 
 '调用数据库关闭过程
 Call CloseConn
 
 '调用读取数据库过程
 Call ReadData_Click
 
 End Sub
 
 
 
 
 '***********************************************************
 
 '读取数据库
 
 '************************************************************
 
 Private Sub ReadData_Click()
 
 '清楚屏幕信息
  Me.Cls
  
'调用数据库连接过程
  Call OpenConn
  
 '执行查询sql语句
 rs.Open "Select * from Users", cn
 
 '读取记录集内容
 While Not rs.EOF
 '将记录输出到窗体上
 Print rs("UserId"), rs("UserName"), rs("UserPassword")
 rs.MoveNext
 Wend
 
'调用数据库关闭过程
 Call CloseConn
 
 End Sub