找不到可安装的 ISAM

提问者：qq81784708  |  浏览 次  |  提问时间：2017-02-20  |  回答数量：5

Public Sub GetAccounts() '******************************************************** '/// 函数名: GetAccounts(Public) '/// 输 入: - '/// 输 出: - '/// 功 能: 获取用户账号和密码 '******************************************************** datAccountsInfo.RecordSource = \"Accounts\" datAccountsInfo.Refresh Dim strPassword As String With datAccountsInfo.Recordset   g_typUser(0).UserName = .Fields(\"UserName\")  .MoveNext  g_typUser(1).UserName = .Fields(\"UserName\