VB与数据库的交互经典例子总结
实例11.任务
创建基于数据库的“系统登录”界面
2.过程创建Access数据库设计窗体编写代码
定义一个函数过程（这里仅仅是定义这样一个过程，后面的事件才是真真的调用这个过程并予以实现），在函数过程里面通过connectinstring来建立对数据库的连接，然后利用objrs获取用户登录信息，其中用了if嵌套来是实现登录过程中出现的各种情况的应对。（这里应该就是米老师常说的为人民服务的宗旨，这里我想起来了一句海芳师姐的话，让用户躺在向日葵中。）
3.经典的代码
可能这并不是多么多么经典，只是应用过程中会用到很多次。
Objcn.connetionstring=”provider=Microsoft.jet.oledb.4.0;”& “data source=” & app.path & “\数据库\实例1.mdb”Objcn.open
或者是这个一个版本
◆关于数据库驱动程序的信息。◆数据库存放位置。文件型数据库（如Access）的存放位置为数据库文件的路径；非文件型数据库（如SQL Server）的存放位置是指服务器的名称。
◆数据库名称。在ODBC数据源管理器中，所有的DSN名称是不能重复的。
实例 31. 任务使用 ADO Data 控件创建数据库连接
2. 过程第一步：ADO Data控件连接数据库
第二步：文本框显示数据
Dim parm As New Parameterset parm =objcmd.createparameter("用户名"，advarchar,adparaminput,10)objcmd.parameters.append parnset parm =objcmd.createparameter("身份"，advarchar,adparaminput,10)objcmd.parameters.append parm第二步：执行查询结果
第三步：关闭数据库连接
实例5和实例4好像都是前面几个例子的综合，外加上几个很好用的控件来显示数据那种效果。Msflexgrid控件里面很多参数属性倒是挺新鲜的。（应该VB有接触，但是学的。。。）
