在线求助：登陆验证时如何调用数据库中的数据表中的字段？ - 编程论坛

在打开一个窗体设置帐号密码，如何在账号，密码输入验证时调用数据库中的数据表，并与其中字段数据验证，使输

入账号存在于数据表中才会响应？？

谢谢！！

Private Sub Form_Load()

x = InputBox("请输入账号!")
If x <> "012004007911" Then
DoCmd.Close
End If
End Sub

x = InputBox("请输入密码!")
If x <> "8888" Then
DoCmd.Close
End If
End Sub

这是我从网上搜到的代码，但没学过VB不知怎么把二者结合起来．手头上一时又没有VB书籍，希望诸位能帮一下！！

谢谢

VB取ACCESS中表名及固定表中的字段名示例

Dim rs
Me.openCn '调用自已的connection连接
Set rs = cn.OpenSchema(20, Array(Empty, Empty, Empty, "TABLE")) '取出表名
Do While Not rs.EOF
Debug.Print (rs("Table_Name").Value) & "<br>"

rs.MoveNext
Loop

'获取表的所有字段信息userbase是我自己的表名(因为我要查找这个表.如果不是固定查某个表可以用View关键字

Dim rsc As New ADODB.Recordset
Set rsc = cn.OpenSchema(adSchemaColumns, Array(Empty, Empty, "userBase"))
If rsc.EOF = False Then rsc.MoveFirst
Do While Not rsc.EOF
Debug.Print "---------"; (rsc("Column_Name") & "filed") '字段名
Debug.Print (rsc("Data_Type") & "type") '数据类型
Debug.Print (rsc("Character_Maximum_Length") & "length") '长度
Debug.Print (rsc("Numeric_Precision") & "df") '精度
Debug.Print (rsc("Numeric_Scale") & "level") '等级
Debug.Print (rsc("Is_Nullable") & "isnull") '是否为空
Debug.Print (rsc("Column_Default") & "default") '默认值
rsc.MoveNext
Loop