VB关于ADODC控件使用,用登陆器代码为例进行说明.pdf

《VB关于ADODC控件使用,用登陆器代码为例进行说明.pdf》由会员分享，可在线阅读，更多相关《VB关于ADODC控件使用,用登陆器代码为例进行说明.pdf（4页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、1 ADO Data 控件 ADO Data 控件与内部Data 控件以及Remote Data 控件（RDC）相似。用户可以使用ADO Data 控件快速地创建一个到数据库的连接。举例用ADODC1 说明。1、设置ConnectionString 属性的命令为：Adodc1.ConnectionString=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&App.Path&*.mdb;Persist Security Info=False 这属性主要是设置ADO 控件连接数据库。一般用&App.Path&动态加载路径，也就是用相对路径。对于使用AC

2、CESS 做数据库的朋友，Microsoft.Jet.OLEDB.4.0，只适合AC97（不含97）以上版本，以下版本及97 都要用Microsoft.Jet.OLEDB.3.5.2、设置Recordsource 属性的命令为：Adodc1.RecordSource=select*from 表名 where 条件 order by 字段名 这属性主要是设置ADO 控件的数据源。例子使用的是SQL 命令查询集，也可以使用表。3、设置Refresh 属性的命令为：Adodc1.Refresh 这属性是及时更新ADO 控件数据源。3、设置Recordset 属性的命令为：Adodc1.records

3、et.addnew Addnew 是 Recordset 属性的其中一个,初学者常用到有FEILDS(字段属性),ADDNEW(添加字段),MOVENEXT(移动到下一记录).BOF(文件头).EOF(文件尾)等等.说明一下FEILDS 可以是字段名(列名)也可以是列号.比如表中第一列是学号,那么可以表示为FEILDS(学号)或 FEILS(0).当然ADODC 还有很多属性,以后慢慢介绍.下面是一段登陆代码:(高手不要吐,我也只是初学者)存在数据库stodata.mdb,库中有表dlb 首先FORM_LOAD 事件:Adodc1.ConnectionString=Provider=Micro

4、soft.Jet.OLEDB.4.0;Data Source=&App.Path&stodata.mdb;Persist Security Info=False Adodc1.RecordSource=select*from DLB Adodc1.Refresh(这是给ADODC 设置数据库及数据源并刷新数据源)下面是登陆按钮代码:Adodc1.RecordSource=select*from dlb where userid=&Trim(Text1.Text)&Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then 查找存在该用户 If A

5、dodc1.Recordset.Fields(1)Text2.Text Then 核对用户密码 MsgBox 密码错误，请重新输入！,vbOKOnly+vbExclamation,用户登陆 Text2.Text=Text2.SetFocus Else Unload Me 关闭当前窗口 sysfrm.Show 调用主窗体 End If else msgbox 用户不存在 endif 2.vb ADO 控件连接ACCESS 数据库做登录密码的例子 分类：vb6 2009-07-31 08:47 2570 人阅读 评论(6)收藏 举报 准备好ACCESS 数据库，建一个Uesr_id 表，表中建两个

6、字段就可以了。在 工程菜单下选择部件；在弹出的窗口内勾选Microsoft ADO Data Control 6.0然后确定。在工具栏中双击 Adodc 控件，Adodc 控件添加到 form 内，在 form 内右单击 Adodc1 选择属性 ADODC 属性，在弹出的窗口中单击生成，在弹出的窗口中选择 Microsoft Jet 4.0 OLE DB Provider，单击下一步,在弹出的窗口中单击.选择 Access 数据库所在的路径，单击确定，然后在属性页 上单击记录源，命令类型选择2-adCmdTable;表或存储过程名称选择User_id，单击确定，设置 Adodc1 的 Visi

7、ble 属性为 False,ADO 控件已经设置好了。向 form 内添加两个 TextBox 分别为 text1 和 text2 分别把它们的 text 属性值设置为空，把text2 的 PasswordChar值设置为*,再向form内添加一个按钮CommandButton,默认为Command1;现在所有控件都准备好了，下面编程解决登录问题。Private Sub Command1_Click()Dim U As Boolean,P As Boolean,Ok As Boolean With Adodc1 .Refresh Do While Not.Recordset.EOF U=.Recordset.Fields(0).Value=Text1.Text 字段 0 为用户名称 P=.Recordset.Fields(1).Value=Text2.Text 字段 1 为用户密码 If U And P Then Ok=True Exit Do Else .Recordset.MoveNext End If Loop End With If Ok Then MsgBox 登录成功 Else MsgBox 登录失败 End If