把access中的数据从VB中拿出来赋值到另外一个数据库中是不是一定要让起在VB上显示出来 再从VB中赋值到另外那个数据库中去呢 ，希望大家多多关照哈小弟啊
在登陆界面我做了一个记住密码的功能 所以用了两张表 一张大表记录用户的全部信息
另外一张表只记录用户的密码和帐号
结果登陆后要用大表里面的信息 而登陆时候用的是记住密码的那张表 所以拿不出来 我应该咋样写呢
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
这就是晓得写的 大家多多关照我这个菜鸟小弟啊 谢谢你们啦 非常感谢
[解决办法]
试试下面的代码
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
[解决办法]
这个应该不难吧
先给你一个思路吧，你登录的信息是在大表吧
那么你登录验证信息的时候就直接去大表中验证就是了
小表是放记录信息的吧，那么在窗体加载的过程中，将信息都放在文本框中就是了
不过一般用户名是用组合框，那么把用户名从小表中全部提取到组合框当中
然后组合框发生单击事件时，根据用户选择的数据，去选择小表中的密码内容
如果登录成功，说明在大表中验证成功，用户又选择了密码记录的功能，那么把数据都存入小表当中
那么两表之间都是没有任何关联了，功能大功告成，如果还是不明白的话，可以加我的QQ373903757
注明是是VB探讨，或者注明你加我的原因，否则通常都是拒绝的
加好友后。我开远控帮一下你也没所谓的，嘻嘻
