成都网站建设设计

将想法与焦点和您一起共享

vb.net输入密码代码 vb中密码字符

vb.net 按钮 修改密码 代码

Dim sql As String = "update DLYZ set 登陆密码='" + TextBox_xgmm_xdmm.Text.Trim() + "'where 工作证号 ='" + Form1.TextBox1.Text.Trim() + "'"

让客户满意是我们工作的目标,不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户,将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴,公司提供的服务项目有:国际域名空间、网络空间、营销软件、网站建设、黑山网站维护、网站推广。

where前面需要加上空格

一个vb.net的用户登陆页面代码

Private Sub Button _Click(ByVal sender As System Object ByVal e As System EventArgs) Handles Button Click

If TextBox Text = Or TextBox Text = Then

Label Text = 请确认您的输入!

Return

End If

Dim sql As String = select * from pwd where stu_id=@stu_id and pwd=@pwd

Dim m As SqlCommand = New SqlCommand(sql conn)

m Parameters Add(New SqlParameter( @stu_id SqlDbType Int ))

m Parameters( @stu_id ) Value = TextBox Text

m Parameters Add(New SqlParameter( @pwd SqlDbType Char ))

m Parameters( @pwd ) Value = TextBox Text

Dim dr As SqlDataReader

conn Open()

dr = m ExecuteReader

If dr Read Then

Session( stu_id ) = TextBox Text

dr Close()

m Cancel()

Dim sql_ As String = update stu_base set point=point+ where stu_id=@stu_id

m = New SqlCommand(sql_ conn)

m Parameters Add(New SqlParameter( @stu_id SqlDbType Int ))

m Parameters( @stu_id ) Value = Session( stu_id )

m ExecuteNonQuery()

m Cancel()

Response Redirect( detail aspx?stu_id= Session( stu_id ) )

Else

Label Text = 您还没有注册或账号密码错误

End If

End Sub

Private Sub Button _Click(ByVal sender As System Object ByVal e As System EventArgs) Handles Button Click

TextBox Text =

TextBox Text =

lishixinzhi/Article/program/net/201311/13960

vb中设置输入密码

打开数据库资料表内的("用户名称")

和("用户密码")

栏位里面直接改就可以了。

或写一个新增用户名称和用户密码的程式。

比如:

数据库=login.mdb

资料表=user

栏位名=username

password

Private

Sub

Command1_Click()

Data1.Recordset.AddNew

Data1.Recordset.Fields("username")

=

Text1.Text

Data1.Recordset.Fields("password")

=

Text2.Text

Data1.Recordset.Update

Data1.Refresh

MsgBox

"成功存取",

vbOKOnly

+

vbInformation

End

Sub

Private

Sub

Form_Load()

Data1.DatabaseName

=

App.Path

"\login.mdb"

Data1.RecordSource

=

"user"

End

Sub


文章名称:vb.net输入密码代码 vb中密码字符
网页URL:http://chengdu.cdxwcx.cn/article/hggpic.html