导航:首页 > 编程知识 > vb编程怎么更改密码

vb编程怎么更改密码

发布时间:2023-01-27 05:45:04

㈠ VB 修改密码

Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
If trim(Text1.text)=”” or trim(Text2.text)=”” or trim(text3.text)=”” or trim(text4.text)=”” then
MsgBox “必须输入相应的用户名,新、旧密码”
Exit sub
End if
If Text3.Text <> Text4.Text Then
MsgBox "两次密码输入不一样"
Exit sub
End if

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\桌面\123.mdb"
If Len(Text1.Text) > 0 And Len(Text2.Text) > 0 Then
sql = "select * from iiiii where u_user='" & Text1.Text & "'and c_code='" & Text2.Text & "'"
rs.Open sql, conn, 1, 3
If rs.RecordCound=0 Then
Msgbox “您输入的用户名或密码可能有误,请确认后重新输入”
Rs.close
Conn.Close
Set rs=nothing
Set Conn=Close
Exit sub
Else
rs.movefirst
rs.Fields("u_user") = Text1.Text
rs.Fields("c_code") = Text2.Text
rs.Update
rs.close
conn.Close
set rs=nothing
set Conn=Close
End If
MsgBox "密码修改成功"
End Sub
请用我修改的这一段试试

㈡ VB设置密码修改

txtpwd 放在模块中定义为 Public 变量,不然,form2中是无法修改密码的。不过就算你密码修改成功,下次启动时密码还是为初始状态。所以第一次启动时判断是否有密码文件,如果存在就读入到txtpwd 这个变量中,如果没有就把初始密码保存到文件。当程序运行状态下修改密码成功后保存到文件,同时置新密码到txtpwd 变量中。密码保存到文件时可以作一下加密变化,读的时候当然要逆变换一下。

㈢ 用VB修改密码

你的sql 语句有错! use 是关键字吧。你是不是 user 表少打了个字符!。。。我的意思是说,use 是关键这,把表名改了.改成其它的.比如users 或者 m_user 等等!

㈣ vb制作修改密码的程序

1、新增记录:
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("用户名") = username.Text
Adodc1.Recordset.Fields("密码") = newpassword1.Text
Adodc1.Recordset.Update
MsgBox "新密码已成功添加!", vbExclamation + vbOKOnly, "添加成功"

以上是新增记录的必须语句

2、连接数据库
Adodc控件连接数据库一般在它的属性窗口,在属性窗口有连接数据库的设置和连接数据表的设置:
ConnectionString 属性是连接数据库的,你可以在这里配置数据库的连接
RecordSource 属性是连接数据表的,你可以在这里配置数据表的连接
当然你也可以在界面代码中使用:
Adodc1.ConnectionString = "连接数据库语句"
Adodc1.RecordSource = "连接数据表语句"

㈤ 如何用vb修改密码

哪里不行了,可以啊,我运行了下,可以啊!

㈥ VB中如何修改密码

比如还有一个Form2
那你在Form2里面来修改Form1里的东西时,前面加上Form1. 就行了啊

比如要修改Form1里的一个按钮上的文字 那就这么写

Form1.CommandButton1.Caption = "aaaaaa"

㈦ 在VB编程中修改密码。

Private Sub Command1_Click()
If Text1.Text <> GetSetting(App.Title, "Settings", "密码", "") Then MsgBox "密码错误。请重新输入": Exit Sub
If Text2.Text <> Text3.Text Then MsgBox "两次输入不一样,请重新输入": Exit Sub
SaveSetting App.Title, "Settings", "密码", Text2.Text
MsgBox "修改成功!"
Unload Me
End Sub

阅读全文

与vb编程怎么更改密码相关的资料

热点内容
任命文件人字多少号 浏览:27
如何给桌面的文件自动填写序号 浏览:349
压缩文件JPG重命名 浏览:487
vivox7怎么隐藏文件 浏览:340
官网买苹果好处 浏览:153
直播app源码如何搭建 浏览:31
c盘系统文件包介绍图片 浏览:856
linuxopt主要存哪些文件 浏览:924
jsdate天数 浏览:930
qq空间怎样发视频文件在哪里找 浏览:208
nrf2401收发程序 浏览:498
哪个网站看新闻最好 浏览:944
找到文件夹并清除linux 浏览:82
苹果app不安全怎么办 浏览:1000
电脑桌面文件收集软件推荐 浏览:317
桌面的文件夹不能删除不了怎么办 浏览:724
什么是手机温控文件 浏览:840
广东农信app怎么更改预留手机号码 浏览:241
cdm打开隐藏文件夹 浏览:320
贝壳app房子为什么偶尔不显示 浏览:4

友情链接