| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 377 人关注过本帖
标题:新人(求助)求解,数据库和vb中改如何相互调用变量!
只看楼主 加入收藏
雨中花
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2013-7-3
结帖率:100%
收藏
已结贴  问题点数:5 回复次数:1 
新人(求助)求解,数据库和vb中改如何相互调用变量!
假如access这个数据库(code.db)中有5的字段,分别是:用户名,密码,权限,年龄,性别 ;有10条记录

我在窗口中创建了3个text控件,在这个窗口中想显示用户名,年龄,性别。3个按钮控件,上一条 下一条 末条

我应该如赋值呢?在表单加载的时候就显示第一人的用户名,年龄,性别。好像要用到循环语句
该如何编写代码呢?求解,谢谢!
搜索更多相关主题的帖子: access 用户名 数据库 如何 记录 
2013-07-07 10:44
LK868
Rank: 2
等 级:论坛游民
威 望:1
帖 子:25
专家分:96
注 册:2010-3-27
收藏
得分:5 
Private Sub Command1_Click() '下一条记录
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF = True Then Adodc1.Recordset.MoveLast
Text1 = Adodc1.Recordset.Fields("用户名").Value
Text2 = Adodc1.Recordset.Fields("年龄").Value
Text3 = Adodc1.Recordset.Fields("性别").Value

End Sub

Private Sub Command2_Click() '第一条记录
Adodc1.Recordset.MoveFirst
Text1 = Adodc1.Recordset.Fields("用户名").Value
Text2 = Adodc1.Recordset.Fields("年龄").Value
Text3 = Adodc1.Recordset.Fields("性别").Value

End Sub

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\AAA.mdb;Persist Security Info=False;Jet OLEDB:Database Password=1234;"
Adodc1.RecordSource = "select * from 人员 ORDER BY ID"
Adodc1.Refresh
Adodc1.Recordset.MoveFirst
Text1 = Adodc1.Recordset.Fields("用户名").Value
Text2 = Adodc1.Recordset.Fields("年龄").Value
Text3 = Adodc1.Recordset.Fields("性别").Value
End Sub

2013-07-07 17:49
快速回复:新人(求助)求解,数据库和vb中改如何相互调用变量!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.030272 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved