需要帮助来更改密码表格(need help to change password form)

问 题

大家好，我还是vb.net 2008的新手

i我试着改变密码形式



我想要什么当我点击更改密码按钮然后用户必须输入旧的密码，新的密码并确认新的密码

i am使用sql server 2005而我的朋友告诉我使用sqlcommandbuilder



任何人都可以帮助我？

  imports  system.data.sqlclient 
 
  public   class  frm_chpass 
  dim  conn  as  sqlconnection 
  dim  da  as  sqldataadapter，dt  as  新 datatable，dtv 作为 新 dataview 
 
 私有  sub  btn_exit点击（ byval  sender  as  system。 object ， byval  e  as  system.eventargs） handles  button2.click 
 我 .close（）
 结束  sub  
 私有  sub  kunciobjek（）
 txt_confirm。 readonly  =  true  
 txt_new。 readonly  =  true  
 txt_old。 readonly  =  true  
 结束  sub  
 私有  sub  bukaobjek （）
 txt_confirm。 readonly  =  false  
 txt_new。 readonly  =  false  
 txt_old。 readonly  =  false  
 结束  sub  
 
 私有  sub  frm_chpass_load（ byval  sender  as  system。 object ， byval  e  as  system.eventargs）句柄  mybase  .load 
  dim  cons  as   string  =（"  data source = tonny \ sqlexpress; initial catalog = app; persist security info = true; uid = sa; password = sally"）
 conn = 新 sqlconnection（cons）
 conn.open（）
 da = 新 sqldataadapter（"  select * from tbl_user"，cons）
  dim  cb  as  新 sqlcommandbuilder（da） 
 da.fill（dt）
 kunciobjek（）
 结束  sub  
 
 
 私有  sub  btn_save_click（ byval  sender  as  system。 object ， byval  e  as  system.eventargs）句柄 button1.click 
  me  .bindingcontext（dt）。endcurrentedit（）
 da.update（dt）
 
 
 
 结束  sub  
 
 私有  sub  btn_changepasword（ byval  sender  as  system。 object ， byval  e  as  system.eventargs）句柄 button3.click 
 bukaobjek（）
 
 结束  sub  
 结束 类 

解决方案

你好朋友..



你可以用双向方式做到这一点..



1）全部使用用vb.net完成的代码

2）使用商店程序





1）使用完成的所有代码在vb.net中

注意：

"以下所有代码都是在asp.net中使用vb.net完成的，你需要根据你的要求进行更改"

  imports  system.data.sqlclient 
  imports  system.data 
 
 公共 类 _default 
 继承 system.web.ui.page 
  d im  sqlcon 作为 sqlconnection 
  dim  sqlda  as  sqldataadapter 
  dim  dt  as  datatable 
 受保护的  sub  page_load（ byval  sender 作为 对象， byval  e 作为 system.eventargs）句柄 我 .load 
 如果（不 ispostback）那么 
 sqlcon = 新 sqlconnection（" 你的连接字符串在这里" ）
 结束 如果 
 结束  sub  
 
 受保护的  sub  btnchangepass_click（ byval  sender  as   object ， byval  e  as  eventargs）句柄 btnchangepass.click 
  dim  username  as   string  
  dim  oldpass  as   string  = txtoldpass.text 
  dim  newpass  as  字符串 = txt newpass.text 
 如果（oldpass.equals（newpass））那么 
 
 username = " 您的用户名在这里" 
 dt = 新 datatable（）
 sqlcon.open（）
 sqlda.selectcommand = 新 sqlcommand（"  select * from usertable where username = @username and pass = @pass"，sqlcon）
 sqlda .selectcommand.parameters.addwithvalue（"  @ username"，username）
 sqlda.selectcommand。 parameters.addwithvalue（"  @ username"，oldpass）
 dt.clear（）
 sqlda.fill（dt）
 如果（dt.rows.countgt;  0 ）然后 
  dim  userid 作为 字符串 = dt.rows（ 0 ）（" 你的id列"）。tostring（）
 sqlda.updatecommand = 新 sqlcommand（"  update usertable set pass = @newpass where userid = @userid"，sqlcon）
 sqlda.updatecommand.parameters.addwithvalue（"  @ newpass "，newpass）
 sqlda.updatecommand.parameters.addwithvalue（"  @ userid"，userid）
 sqlda.updatecommand.executenonquery（）
 结束 如果 
 其他 
  ' 显示您的密码与用户的消息不匹配 
 结束 如果 
 
 结束  sub  
 结束 类 

2）使用商店程序

  create   procedure  sp_change_pass 
 - 在此处添加存储过程的参数 
  @ username   nvarchar （ 20 ），
  @ oldpass   nvarchar （ 20 ），
  @ newpass   nvarchar （ 20 ），
  @ resultid   int  =  null  
  as  
  begin  
 -  添加set nocount on以防止额外的结果集 
 - 干扰select语句。 
  set   nocount   on ; 
 
 - 在此处插入程序语句 
  select   @ resultid  = id  from  testtable  where 名称=  @ username   and  pass =  @ oldpass  
  if （ @ resultid   is   not   null ）
  begin  
 更新 testtable  set  pass =  @ newpass   where  id =  @ resultid  
  end  
  end  
  go  

对于这个sp的使用，你需要传递三个参数，比如用户名，oldpass和新传递，

只调用那个sp，它将完成你改变的所有工作密码。

您还可以添加输出参数作为此sp的结果，供您在vb.net的代码页中使用