vb.net中修改用戶密碼

以下這里有錯(cuò)誤：

公司主營業(yè)務(wù)：網(wǎng)站設(shè)計(jì)、成都網(wǎng)站制作、移動(dòng)網(wǎng)站開發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實(shí)現(xiàn)互聯(lián)網(wǎng)宣傳，提高企業(yè)的競爭能力。成都創(chuàng)新互聯(lián)公司是一支青春激揚(yáng)、勤奮敬業(yè)、活力青春激揚(yáng)、勤奮敬業(yè)、活力澎湃、和諧高效的團(tuán)隊(duì)。公司秉承以“開放、自由、嚴(yán)謹(jǐn)、自律”為核心的企業(yè)文化，感謝他們對(duì)我們的高要求，感謝他們從不同領(lǐng)域給我們帶來的挑戰(zhàn)，讓我們激情的團(tuán)隊(duì)有機(jī)會(huì)用頭腦與智慧不斷的給客戶帶來驚喜。成都創(chuàng)新互聯(lián)公司推出德保免費(fèi)做網(wǎng)站回饋大家。

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(); //登陸窗口實(shí)例

if (mima() == 1)

{

SqlConnection mySqlconnection = new SqlConnection(login1.connectionString);

SqlCommand myCommand = new SqlCommand("update Table1 set 密碼='" + newpwd.Trim() + "'where 賬號(hào)='" + userID.Trim() + "'and 密碼='" + passWorld.Trim() + "'", mySqlconnection);

mySqlconnection.Open();

int command = myCommand.ExecuteNonQuery();

if (command = 1)

{

if (MessageBox.Show("密碼修改成功，現(xiàn)在馬上去登陸？", "確定", MessageBoxButtons.OKCancel, MessageBoxIcon.Question) == DialogResult.OK)

{

mySqlconnection.Close();

this.Close();

login1.Show();

}

}

else

{

mySqlconnection.Close();

MessageBox.Show("用戶不存在或密碼錯(cuò)誤");

}

}

else

{

MessageBox.Show("新密碼不能與舊密碼相同!!");

textBox2.Text = "";

textBox3.Text = "";

textBox2.Focus();

}

vb.net 按鈕 修改密碼 代碼

Dim sql As String = "update DLYZ set 登陸密碼='" + TextBox_xgmm_xdmm.Text.Trim() + "'where 工作證號(hào) ='" + Form1.TextBox1.Text.Trim() + "'"

where前面需要加上空格

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

你可以debug將sql語句截出來放到數(shù)據(jù)里運(yùn)行一下試試sql語句有沒有問題

再有將ds1.Tables.Item(0)改為ds.Tables[0]試試

vb.net 如何修改access數(shù)據(jù)庫文件的密碼

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("確認(rèn)密碼與新密碼不一致！", 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("您輸入的原密碼不正確，請(qǐng)重新輸入！", MsgBoxStyle.Critical)

ypsw.Focus()

Else

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

mycmd.ExecuteNonQuery()

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

End If

End If