Visual Basic访问数据库技术探析.docVIP

Visual Basic访问数据库技术探析【摘要】本文从VB数据库体系结构的角度探讨了VB对数据库的支持，并且讨论了VB对数据库访问的三种方法。 【关键词】控件；数据库；接口 Visual BasicVisit data bank technology discussion LIUEr-gang 【Abstract】this article has discussed VB from the VB database system structure angle to the database the support, and discussed VB to the database visit three methods. 【key word】 controls; Database; Connection 【中图分类号】：T391 【文献标识码】：A 【文章编号】：1673-4041(2007)10-0133-03Visual Basic 专业版是一种广泛使用的编程开发工具，它提供了对数据库应用的强大支持。VB访问数据库的方法大致有三类：使用数据绑定控件；直接调用ODBC 2.0 API接口函数；使用数据库存取对象变量(Data Access Object Variable)。 1VB的数据库结构 VB数据库的核心结构是Microsoft Jet数据库引擎，JET引擎的作用是支持多种ISAM(Indexed Sequential Access Method，即索引顺序存取方法)数据驱动程序。VB环境下Access是缺省的数据格式，对于其他的关系型数据库如FoxPro、Dbase(或 Xbase)、Paradox、Btrieve等，VB的专业版可兼容其驱动程序，这就使得VB能支持这些数据库格式。由上可见，Ms JET引擎实质上提供了一个符合ANSI标准的语法分析器，为查询结果集的使用而提供内存管理功能；并且连同所支持的数据库的外部接口为应用代码提供内部接口。 2VB访问数据库的方法 VB访问数据库的方法很多，在一般情况下分成三大类，而每一类又有很多方法。下面分别列出每一类。 2.1数据控件法。数据库绑定的控件来实现数据的输入、显示、筛选等接口界面。 Private Sub CmdSearch_Click() ListView1.ListItems.Clear If rshkblsk.State = adStateOpen Then rshkblsk.Close rshkblsk.Open “select dwbh,dwmc,sum(sjysl) as ysl from hkblsk where nd=” dcnd.Text “ and yf=” dcyf.Text “ group by dwbh,dwmc order by dwbh”, conn, adOpenForwardOnly, adLockReadOnly, adCmdText If rshkblsk.RecordCount 0 Then rshkblsk.MoveFirst Do While Not rshkblsk.EOF Dim item1 As ListItem Set item1 = ListView1.ListItems.Add(, , rshkblsk.Fields(0)) For i = 1 To rshkblsk.Fields.Count - 1 item1.SubItems(i) = rshkblsk.Fields(i) Next rshkblsk.MoveNext Loop End Sub 或给listview赋值 Do While Not clsP.rsPlant.EOF Dim vListItem As ListItem i = i + 1 a = clsP.srhSD(clsP.rsPlant(“bz”), mPlantM.vFltSDate, mPlantM.vFltEDate) a = clsP.srhCD(clsP.rsPlant(“pbz”), mPlantM.vFltSDate, mPlantM.vFltEDate) Set vListItem = ListView1.ListItems.Add(i, clsP.rsPlant(“pbz”), DateValue(clsP.rsPlant(“riqi”))) ListView1.ListItems(i).ListSubItems.Add 1, , clsP.rsPla