把access中的数据从VB中拿出来赋值到另外一个数据库中是不是一定要让起在VB上显示出来 再从VB中赋值到另外那个数据库中去呢 ，希望大家多多关照哈小弟啊

Question

在登陆界面我做了一个记住密码的功能  所以用了两张表 一张大表记录用户的全部信息
 
另外一张表只记录用户的密码和帐号结果登陆后要用大表里面的信息 而登陆时候用的是记住密码的那张表  所以拿不出来 我应该咋样写呢
Dim sql As String
    sql = "SELECT * FROM LoginUserInfo WHERE qq_account='" & txtLoginName.Text & "' AND qq_Password='" & txtPassword.Text & "'"
    Set rs = SelectSQL(sql)
    If rs Is Nothing Then
        MsgBox ("登录错误，请联系管理员！")
        Exit Sub
    End If    If rs.BOF And rs.EOF Then
        MsgBox ("用户名密码错误，登录失败！")
    Else
     If abcd = 1 Then
     
     Dim conn  As ADODB.Connection
    Set conn = New ADODB.Connection
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database.mdb"
    conn.Open
    
   ' sql = "UPDATE [LoginUserInfo] SET [qq_note]='" & 1 & "'"
    sql = "UPDATE LoginUserInfo SET qq_note = 8 where id=3"
    conn.Execute (sql)
    End If
         MDIForm1.Show
        Unload Me
    End If'    If rs.BOF And rs.EOF Then
'        MsgBox ("用户名密码错误，登录失败！")
'    Else
'       MDIForm1这就是晓得写的   大家多多关照我这个菜鸟小弟啊   谢谢你们啦   非常感谢

Answer 1

试试下面的代码
Dim Res As Recordset
Dim strPsw As String
Dim strRandom As String
If txtLoginName.Text = "" Or txtPassword.Text = "" Then
    MsgBox "帐户和密码不能空", vbCritical, "管理员提示"
Else
    Res.MoveFirst
    Do While Not Res.EOF
       If Res.Fields("qq_account") = Trim(txtLoginName.Text) Then            strPsw = Res.Fields("qq_Password")
        End If
    Res.MoveNext
   Loop
        If strPsw = Trim(txtPassword.Text)  Then
            Unload Me
            MDIForm1.Show 
        ElseIf strPsw <> Trim(txtPassword.Text) Then
            MsgBox "操作员帐户不存在或操作员密码错误", vbCritical, "提示信息"
        End If
End If

Answer 2

这个应该不难吧
先给你一个思路吧，你登录的信息是在大表吧
那么你登录验证信息的时候就直接去大表中验证就是了
小表是放记录信息的吧，那么在窗体加载的过程中，将信息都放在文本框中就是了
不过一般用户名是用组合框，那么把用户名从小表中全部提取到组合框当中
然后组合框发生单击事件时，根据用户选择的数据，去选择小表中的密码内容
如果登录成功，说明在大表中验证成功，用户又选择了密码记录的功能，那么把数据都存入小表当中
那么两表之间都是没有任何关联了，功能大功告成，如果还是不明白的话，可以加我的QQ373903757
注明是是VB探讨，或者注明你加我的原因，否则通常都是拒绝的
加好友后。我开远控帮一下你也没所谓的，嘻嘻