您的当前位置: 源码爱好者 » 网页制作教程(编程教程) » VB技术教程

vb连接Access 读取、写入、删除、修改数据库内容

  • 标签:数据库操作 更新时间:2013-10-27
  • vb简单操作Access数据库的一个代码示例,通过ADODB.Connection建立连接对象后,使用Microsoft.Jet.OLEDB.4.0引擎来驱动,之后进行一系列的数据库常规操作,比如向Access写入数据、读取、删除、修改等操作,对于一个初学VB数据库的新手来说,这是比较基础的操作实例,简单易懂。

    VERSION 5.00
    Begin VB.Form 操作数据库 
       Caption         =   "VB操作数据库"
       ClientHeight    =   3885
       ClientLeft      =   3405
       ClientTop       =   4320
       ClientWidth     =   5370
       LinkTopic       =   "Form1"
       ScaleHeight     =   3885
       ScaleWidth      =   5370
       Begin VB.Frame 写入框架 
          Caption         =   "写入"
          Height          =   1335
          Left            =   120
          TabIndex        =   6
          Top             =   2280
          Width           =   2895
          Begin VB.CommandButton 写入数据 
             Caption         =   "写入"
             Height          =   255
             Left            =   120
             TabIndex        =   9
             Top             =   960
             Width           =   2655
          End
          Begin VB.TextBox Text1 
             Height          =   270
             Left            =   120
             TabIndex        =   7
             Text            =   "用户名"
             Top             =   240
             Width           =   2655
          End
          Begin VB.TextBox Text2 
             Height          =   270
             Left            =   120
             TabIndex        =   8
             Text            =   "密码"
             Top             =   600
             Width           =   2655
          End
       End
       Begin VB.ListBox 密码 
          Height          =   2040
          Left            =   3240
          TabIndex        =   5
          Top             =   120
          Width           =   2055
       End
       Begin VB.ListBox 用户名 
          Height          =   2040
          Left            =   840
          TabIndex        =   4
          Top             =   120
          Width           =   2295
       End
       Begin VB.ListBox 编号 
          Height          =   2040
          Left            =   120
          TabIndex        =   3
          Top             =   120
          Width           =   615
       End
       Begin VB.CommandButton 读取数据 
          Caption         =   "读取(刷新)"
          Height          =   375
          Left            =   3120
          TabIndex        =   2
          Top             =   2400
          Width           =   1215
       End
       Begin VB.CommandButton 删除数据 
          Caption         =   "删除"
          Height          =   345
          Left            =   4440
          TabIndex        =   1
          Top             =   2400
          Width           =   615
       End
       Begin VB.CommandButton 修改数据 
          Caption         =   "修改"
          Height          =   255
          Left            =   3120
          TabIndex        =   0
          Top             =   3240
          Visible         =   0   'False
          Width           =   2175
       End
    End
    Attribute VB_Name = "操作数据库"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Option Explicit
    Dim 数据库 As Object
    Private Sub Form_Load()
    Set 数据库 = New ADODB.Connection
    Call 数据库.Open("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=Data.mdb;") '连接数据库
    If ((数据库.State) = (adStateOpen)) Then
        MsgBox ("连接成功!")
    Else
        MsgBox ("连接失败!")
    End If
    End Sub
    Private Sub Form_Unload(Cancel As Integer)
    数据库.Close '关闭数据库
    Set 数据库 = Nothing '数据库变量清除
    End Sub
    
    Private Sub 编号_Click()
    用户名.ListIndex = (编号.ListIndex)
    密码.ListIndex = (编号.ListIndex)
    End Sub
    
    Private Sub 用户名_Click()
    编号.ListIndex = (用户名.ListIndex)
    密码.ListIndex = (用户名.ListIndex)
    End Sub
    
    Private Sub 密码_Click()
    编号.ListIndex = (密码.ListIndex)
    用户名.ListIndex = (密码.ListIndex)
    End Sub
    
    Private Sub 读取数据_Click()
    Dim 数据列 As Object
    Set 数据列 = New ADODB.Recordset
    Call 数据列.Open(("select * from 数据表"), (数据库), (adOpenForwardOnly), (adLockOptimistic))
    
    编号.Clear
    用户名.Clear
    密码.Clear
    
    Do
        If (数据列.EOF) Then Exit Do
        编号.AddItem (数据列("编号"))
        用户名.AddItem (数据列("用户名"))
        密码.AddItem (数据列("密码"))
        数据列.MoveNext '下一条数据
    Loop
    
    数据列.Close '关闭数据列
    Set 数据列 = Nothing
    End Sub
    
    Private Sub 删除数据_Click() '删除数据表内用户名为阴险的行
    数据库.Execute ("delete from 数据表 where 用户名='") & (用户名.List(用户名.ListIndex)) & ("'")
    Call MsgBox(("操作完成!请自行按刷新!"))
    End Sub
    
    Private Sub 写入数据_Click() '在数据表里写入一行新行,用户名值为阴险,密码值为QQ172259743
    数据库.Execute ("insert into 数据表(用户名,密码) values('") & (Text1.Text) & ("','") & (Text2.Text) & ("')")
    Call MsgBox(("操作完成!请自行按刷新!"))
    End Sub
    
    Private Sub 修改数据_Click() '把数据表内所有内容为"阴险"的用户名,改成"阴险叔"
    数据库.Execute ("update  数据表 set 用户名='阴险叔' where 用户名='阴险'")
    Call MsgBox(("操作完成!请自行按刷新!"))
    End Sub

     示例所需的数据库文件名为:Data.mdb,请存放在与本代码文件同级目录下,各字段名称及类型请参考下图:

     vb连接Access 读取、写入、删除、修改数据库建库附图

  • 已读: 次 收藏本文关闭本文打印本文复制链接