财务软件设计与开发讲述.ppt

例：使用ADO对象访问数据库实例 一般方法： 添加Module，在模块中定义对象： Public CN As New ADODB.Connection ‘ 定义数据库链接对象 Public rs As New ADODB.Recordset ‘ 定义表对象 在窗体Load事件中，链接并打开数据库 If CN.State Then CN.Close CN.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= App.Path \database.mdb;Persist Security Info=False CN.Open ‘链接字符串可以从控件链接法中取出 在控件的Click事件中，打开表 Dim strSql As String strSql = “select * from ” Trim(Combo1.Text) ‘此处用Combo1选表名 If rs.State Then rs.Close rs.Open strSql, CN, adOpenStatic, adLockOptimistic 设置文本框属性，实现文本框与表字段的绑定： Set Text1.DataSource = rs ‘指定文本框的数据源 Text1.DataField = “学号” ‘