如何在LABEL中显示数据库中 我想要的数据。
最开始有个登录系统 用的ACCESS数据库 登录后 出现一个FORM,FORM上有一个LABEL和COMMAND 我想LABEL显示我自己的登录名 如何实现 然后COMMAND 是点下 把 ACCESS是否签到这个属性 设置成是 如何实现。 --------------------编程问答--------------------'在菜单:工程->引用 里面找 Microsoft ActiveX Data Object 2.8 Library--------------------编程问答-------------------- 如果是操作access,建议你看看VB自带的例子visdata,关于access的操作功能足够详细了。 --------------------编程问答-------------------- 第一个吧 label中 没有显示 我登录的用户名 第二个吧 Label2.Caption = rst.Fields("是否签到").Value 是黄的 缺少NULL 是不是 是否签到 这个 在ACCESS中 只能是0,1 是否需要其他设置 是否签到 我设置其属性 是文本 --------------------编程问答-------------------- 数据库里有数据么? --------------------编程问答-------------------- 出现问题了 每一次都是显示 第一行的 是否签到 这个属性的 值 无论我用哪个账号登录 --------------------编程问答-------------------- 求救啊,2楼的代码 每一次都是显示 第一个用户的 是否签到 属性 我用第二个 用户 登录就不行了 --------------------编程问答-------------------- 加一个combox,选择用户ID,然后在label中显示用户的名字
Private Sub Command1_Click()
Dim cn As New ADODB.Connection'声明一个连接对象
Dim rst As New ADODB.Recordset'声明一个记录集对象
Dim SqlStr As String'声明一个字符串变量
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=111"
'上面是连接到数据库
SqlStr = "Select * From 用户表"
rst.CursorLocation = adUseClient'设置游标位置
rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集
Label1.Caption = rst.Fields("是否签到").Value
rst.Close '关闭记录集
Set rst = Nothing '释放
cn.Close '关闭连接
Set cn = Nothing '释放
End Sub
补充:VB , 数据库(包含打印,安装,报表)