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