vb.net修改密码 vbs修改电脑密码

vb.net中修改用户密码

以下这里有错误：

公司主营业务：网站设计、成都网站制作、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。成都创新互联公司是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。成都创新互联公司推出德保免费做网站回馈大家。

Dim mysqlstr As String = "SELECT * FROM 登录表 WHERE users='" username " 'AND password='" userpassword " '"

修改为：

Dim mysqlstr As String = "SELECT * FROM 登录表 WHERE users='" username "' AND password='" userpassword "'"

VB.NET修改密码代码，只要写更改按钮即可，谢谢。。

汗等等 我最近也在做 我贴代码吧，这些什么原始密码和新密码不是要用户输入嘛，我连接的是SQLstring userID = textBox1.Text; //用户名

string passWorld = textBox2.Text; //密码

string newpwd = textBox3.Text; //新密码

Login login1=new Login(); //登陆窗口实例

if (mima() == 1)

{

SqlConnection mySqlconnection = new SqlConnection(login1.connectionString);

SqlCommand myCommand = new SqlCommand("update Table1 set 密码='" + newpwd.Trim() + "'where 账号='" + userID.Trim() + "'and 密码='" + passWorld.Trim() + "'", mySqlconnection);

mySqlconnection.Open();

int command = myCommand.ExecuteNonQuery();

if (command = 1)

{

if (MessageBox.Show("密码修改成功，现在马上去登陆？", "确定", MessageBoxButtons.OKCancel, MessageBoxIcon.Question) == DialogResult.OK)

{

mySqlconnection.Close();

this.Close();

login1.Show();

}

}

else

{

mySqlconnection.Close();

MessageBox.Show("用户不存在或密码错误");

}

}

else

{

MessageBox.Show("新密码不能与旧密码相同!!");

textBox2.Text = "";

textBox3.Text = "";

textBox2.Focus();

}

vb.net 按钮 修改密码 代码

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

where前面需要加上空格

vb.net中怎么修改用户密码？ds1.Tables.Item(0).Rows.Item(0).Item(1) = userpassword提示无法找到表0

你可以debug将sql语句截出来放到数据里运行一下试试sql语句有没有问题

再有将ds1.Tables.Item(0)改为ds.Tables[0]试试

vb.net 如何修改access数据库文件的密码

If Trim(ypsw.Text) = "" Then

MsgBox("原密码不能为空！", MsgBoxStyle.Critical)

ElseIf Trim(xpsw.Text) = "" Then

MsgBox("新密码不能为空！", MsgBoxStyle.Critical)

ElseIf Trim(qpsw.Text) Trim(xpsw.Text) Then

MsgBox("确认密码与新密码不一致！", MsgBoxStyle.Critical)

Else

Dim mycon As New OleDbConnection

mycon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" Application.StartupPath "\data\Datas.mdb"

mycon.Open()

Dim mycmd As New OleDbCommand

mycmd.CommandText = "select * from 管理员 where 用户名='admin' and 密码='" ypsw.Text " '"

mycmd.Connection = mycon

Dim myada As New OleDbDataAdapter

myada.SelectCommand = mycmd

Dim myda As New DataSet

myada.Fill(myda, "yh")

If myda.Tables("yh").Rows.Count 1 Then

MsgBox("您输入的原密码不正确，请重新输入！", MsgBoxStyle.Critical)

ypsw.Focus()

Else

mycmd.CommandText = "update 管理员 set 密码='" Trim(ypsw.Text) " '"

mycmd.ExecuteNonQuery()

MsgBox("密码修改成功！", MsgBoxStyle.Information)

End If

End If