Database 版 (精华区)

发信人: joy ( 雨送黄昏花易落), 信区: Database
标  题: 用VB 4.0实现对ACESS数据库的操作管理(=)
发信站: 紫 丁 香 (Mon Jul 20 21:37:27 1998), 转信

  六、一个实例
    这个例子包含了以下几个功能步骤:

    1.创建一个ACESS数据库,在硬盘的根目录"C\"下创建一个名为MY
DA-TA.MDB的数据库,该库中含有两张表格,分别名为MYTABLE1和MYTAB
LE2。其中,表格MYTABLE1中有三个字段:MYFI ELD1、MYFIDLD2及MYFI
ELD3,它们的数据类型都是长度为10的TEXT字符类型,表格MYTABLE2有
两个字段:MYTEST1和MYTEST2,它们的数据类型都是INTEGER的整数类
型。
    2.往MYTABLE2表格中加入如下记录:
    MYTEST1     MYTEST2
    10          100
    11          101
    12          102

    3.对MYTABLE2中的记录操作:
   3.对MYTABLE2中的记录操作:
    首先将最后一条记录删除,随后增加一条内容为(111,222)的记录
,接着将第一条记录内容(10,100)修改为(100,100)。

    4.在MYTABLE2表格中查找记录,在MYTABLE2表格中查找MYTEST1字
段值为"111"的所有记录,并将该字段值改为"333"。

    5.用SQL语句删除MYTABLE2中MYTEST1字段值为"111"的所有记录

    所有操作结束后,表格MYTABLE2的内容有如下三条记录:
    MYTEST1     MYTEST2
    100         100
    11          101
    333         222

    程序清单如下:
    Sub Main()
    Const DB_LANG_GENERAL=";LANGID=0x0809;CP=1252;COUNTRY=0"
    Const DATABASENAME="C:\MYDATA.MDB"
    Dim MyDb As DataBase
    Dim Table(1 To 2)As New TableDef
    Dim Field1(1 To 3)As New Field
    Dim Field2(1 To 2)As New Field
    Dim iFor As Integer
    Dim MyTable As Table
    Dim MyDynaset As Dynaset
    Dim sSQL As String
    步骤1:创建一个ACESS数据库
    If Dir(DATABASENAME)〈〉""THEN
  If Dir(DATABASENAME)〈〉""THEN
      MsgBox"磁盘上已有"& DATABASENAME &"数据库!"
      End
    End If
    Set MyDb=CreateDatabase(DATABASENAME,DB_LANG_GENERAL)
    Table(1).Name="MYTABLE1"
    For iFor=1 To 3
      Field1(iFor).Name="MYFIELD"&iFor
      Field1(iFor).Type=dbText
      Field1(iFor).Size=10
      Table(1).Fields.Append Field1(iFor)
    Next iFor
    MyDb.TableDefs.Append Table(1)’创建表格MYTABLE1
    Table(2).Name="MYTABLE2"
    For iFor=1 To 2
      Field2(iFor).Name="MYTEST"&"iFor
      Field2(iFor).Type=dbInteger
      Table(2).Fields.Append Field2(iFor)
    Next iFor
    MyDb.TableDefs.Append Table(2)'创建表格MYTABLE2
    MyDb.Close
    步骤2:往MYTABLE2表格中加入三条记录
    Set MyDb=OpenDatabase(DATABASENAME)
    Set MyTable=MyDb.OpenTable("MYTABLE2")
    For iFor=1 To 3
    MyTable.AddNew
    MyTable("MYTEST1")=9+iFor
    MyTable("MYTEST2")=99+iFor
    MyTable("MYTEST2")=99+iFor
    MYTABLE.UPDATE
    Next iFor
    步骤3:对MYTABLE2中的记录操作
    MyTable.MoveLast
    MyTable.Delete
    MyTable.AddNew
    MyTable.("MYTEST1")=111
    MyTable.("MYTEST2")=222
    MyTable.Update
    MyTable.MoveFirst
    MyTable.Edit
    MyTable.("MYTEST1")=100
    MyTable.Update
    MyTable.Close
    步骤4:用SQL语句在MYTABLE2表格中实行查找
    sSQL="SELECT*From MYTABLE2 WHERE MYTEST1=111"
    Set MyDynaset=MyDb.CreateDynaset(sSQL,32)
    If MyDynaset.EOF=False Then'如果查找到则修改
       MyDynaset.Edit
       MyDynaset.("MYTEST1")=333
       MyDynaset.Update
    End If
    MyDynaset.Close
    步骤5:用SQL语句对MYTABLE2表中的记录进行删除操作
    sSQL="DELETE*From MYTABLE2 WHERE MYTEST1=111"
    MyDb.ExecuteSQL sSQL
    MyDb.Cose
    End
    End Sub

--
※ 来源:.紫 丁 香 bbs.hit.edu.cn.[FROM: 202.118.229.27]
[百宝箱] [返回首页] [上级目录] [根目录] [返回顶部] [刷新] [返回]
Powered by KBS BBS 2.0 (http://dev.kcn.cn)
页面执行时间:3.653毫秒