| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 534 人关注过本帖
标题:会员管理系统之修改会员数据
取消只看楼主 加入收藏
谢宇
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2012-6-16
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:1 
会员管理系统之修改会员数据
   Sub Page_Init(ByVal sender As Object, ByVal e As EventArgs)
        Dim objConn As New OleDbConnection()
        objConn.ConnectionString = "Provider=Microsoft.Jet.OleDB.4.0;" & "Data Source=" & Server.MapPath("/作业/HTGL.mdb")
        objConn.Open()
        Dim objCmd As New OleDbCommand()
        objCmd.Connection = objConn
         = "Select * From 会员用户 Where 账号='" & User.Identity.Name & "'"
        Dim objReader As OleDbDataReader = objCmd.ExecuteReader()
        objReader.Read()
        showUserId.Text = objReader.Item("账号")     一直显示不存在此列/行的数据
        密码.Text = objReader.Item("密码")
        确认密码.Text = objReader.Item("密码")
        用户名.Text = objReader.Item("用户名")
        If objReader.Item("性别") = "男" Then
            性别.Items(0).Selected = True
        Else
            性别.Items(1).Selected = True
        End If
        Dim I As Integer
        For I = 1982 To 1994
            出生年.Items.Add(I)
            If objReader.Item("出生年") = I Then 出生年.Items(I - 1982).Selected = True
        Next
        For I = 1 To 12
            出生月.Items.Add(I)
            If objReader.Item("出生月") = I Then 出生月.Items(I - 1).Selected = True
        Next
        For I = 1 To 20
            出生日.Items.Add(I)
            If objReader.Item("出生日") = I Then 出生日.Items(I - 1).Selected = True
        Next
        电话.Text = objReader.Item("电话")
        objReader.Close()
        objConn.Close()
    End Sub
求解决方法,,急用,谢了
搜索更多相关主题的帖子: 管理系统 数据 Object 用户 
2012-06-16 21:52
谢宇
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2012-6-16
收藏
得分:0 
回复 2楼 yms123
账号字段确定存在啊
2012-06-18 20:00
快速回复:会员管理系统之修改会员数据
数据加载中...
 
   



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

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