如何在LABEL中显示数据库中 我想要的数据。

Question

最开始有个登录系统 用的ACCESS数据库 登录后 出现一个FORM，FORM上有一个LABEL和COMMAND   我想LABEL显示我自己的登录名 如何实现 然后COMMAND 是点下 把 ACCESS是否签到这个属性 设置成是 如何实现。

Answer 1

'在菜单：工程->引用 里面找 Microsoft ActiveX Data Object 2.8 Library
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

Answer 2

如果是操作access，建议你看看VB自带的例子visdata，关于access的操作功能足够详细了。

Answer 3

第一个吧 label中 没有显示 我登录的用户名 第二个吧 Label2.Caption = rst.Fields("是否签到").Value 是黄的 缺少NULL 是不是 是否签到 这个 在ACCESS中 只能是0,1 是否需要其他设置 是否签到 我设置其属性 是文本 

Answer 4

加一个combox,选择用户ID,然后在label中显示用户的名字