| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1679 人关注过本帖
标题:新手请教坛中高手关于用VB.NET和ACCESS数据库制作的登录程序
取消只看楼主 加入收藏
fnye58
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2006-3-22
收藏
 问题点数:0 回复次数:1 
新手请教坛中高手关于用VB.NET和ACCESS数据库制作的登录程序
小弟是个新手,最近在学习,想自己实验制作一个登录程序,但ACCESS数据库和连接写好代码后,就是登录不成功,想请教一下是什么原因,以下是我的代码:
Public Class user
    Inherits System.Windows.Forms.Form
    Public MyCnn As ADODB.Connection
    Public MyRs As ADODB.Recordset
    public strcnn as string
    Private Sub okbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles okbtn.Click
        Dim i As Integer
        Dim Username, Userpwd As String
        Dim flag As Boolean
        flag = False

        Username = Me.userbox.Text
        Userpwd = Me.pwdbox.Text

        MyCnn = New ADODB.Connection
        MyRs = New ADODB.Recordset

        strcnn = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=d:\conmuser\user.mdb"
        MyCnn.Open(strcnn)
        MyRs.Open("select * from use", MyCnn, ADODB.LockTypeEnum.adLockUnspecified, ADODB.LockTypeEnum.adLockUnspecified)
        MyRs.MoveFirst()

        For i = 0 To MyRs.RecordCount - 1
            If Username = MyRs.Fields(1).Value Then
                If Userpwd = MyRs.Fields(2).Value Then
                    MessageBox.Show("登录成功")
                    flag = True
                    Exit For

                End If
            End If
            MyRs.MoveNext()
        Next

        If Not flag Then
            MessageBox.Show("登录失败")
        Else
            Dim f As mainfrom
            f = New mainfrom
            f.Show()
            Me.Hide()
        End If

    End Sub

ACCESS数据库里字段只有两个,一个为ACCOUNT和PASSWORD。请教为什么登录程序提示登录失败?
搜索更多相关主题的帖子: 教坛 数据库 NET ACCESS 
2008-12-02 21:42
fnye58
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2006-3-22
收藏
得分:0 
谢谢,我晚上去试一下!
2008-12-04 11:44
快速回复:新手请教坛中高手关于用VB.NET和ACCESS数据库制作的登录程序
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017417 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved