Dim sql As String = "update DLYZ set 登陆密码='" + TextBox_xgmm_xdmm.Text.Trim() + "'where 工作证号 ='" + Form1.TextBox1.Text.Trim() + "'"
让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：国际域名空间、网络空间、营销软件、网站建设、黑山网站维护、网站推广。
where前面需要加上空格
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
打开数据库资料表内的("用户名称")
和("用户密码")
栏位里面直接改就可以了。
或写一个新增用户名称和用户密码的程式。
比如：
数据库=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
