我是个菜鸟 正在自学VB，现在用到了连接数据库，但是我一直没有找到合适的例题，书上也没有具体的说明，比如说想在登陆界面中的 帐号和密码都存到数据库中，当用户登陆时也可以修改自己的密码 请大家帮忙啊 因为我是新手所以大家最好说的详细点 写代码的请多写些注释语句，我也好学学啊

热心网友

登录代码:Option ExplicitDim yonghu As StringDim mima As StringPrivate Sub cmdOK_Click() '检查正确的密码 If txtPassword = mima And txtUserName = yonghu Then '将代码放在这里传递 Form2。Show Form2。Label1。Caption = "登录成功!" Else MsgBox "无效的密码，请重试!", , "登录" txtPassword。SetFocus SendKeys "{Home}+{End}" End IfEnd SubPrivate Sub Form_Load() '连接数据库存放用户名密码的表 Adodc1。ConnectionString = "Provider=Microsoft。Jet。OLEDB。4。0;Data Source=D:\data_ref\ b;Persist Security Info=False" Adodc1。RecordSource = "select * from ps" Adodc1。Refresh yonghu = Adodc1。Recordset(0) '传递用户名 mima = Adodc1。Recordset(1) '传递密码End Sub修改部分的代码:Option ExplicitDim yonghu As StringDim mima As StringDim ym As VariantPrivate Sub cmdOK_Click() ym = MsgBox("修改用户名密码!", vbOK, "修改") ' If ym = vbOK Then Adodc1。Recordset(0) = Text1 '传递新用户名 Adodc1。Recordset(1) = Text2 '传递新密码 Adodc1。Recordset。Update '修改数据处理 Form2。Show Form2。Label1。Caption = "成功修改用户名和密码!" Else Unload Me End IfEnd SubPrivate Sub Form_Load()Text1 = "": Text2 = "" Adodc1。ConnectionString = "Provider=Microsoft。Jet。OLEDB。4。0;Data Source=D:\data_ref\ b;Persist Security Info=False" Adodc1。RecordSource = "select * from ps" Adodc1。Refresh yonghu = Adodc1。Recordset(0) mima = Adodc1。Recordset(1)End SubPrivate Sub txtPassword_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And txtPassword = mima Then '核实原密码 Text1。Enabled = True Text2。Enabled = True Text1。SetFocus End IfEnd SubPrivate Sub txtUserName_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And txtUserName = yonghu Then '核实原用户名 txtPassword。SetFocus End IfEnd Sub工程文件附后上传。DB4。MDB数据库存放D:\DATA_REF目录夹,原用户名和密码分别为:user和111111祝你学习成功!。

热心网友

应该从以下方面着手基本的：1。密码的验证，不正确N次退出。2。密码的修改，首先验证旧密码，正确则用新密码更新旧密码更进一步：1。数据库有关用户名和密码的表用加密数据保存，因此需要增加加密和解密的函数，这个在网上有很多现成的可以参考借用再进一步：1。要考虑用户的增加，这就牵涉到用户权限的问题（最简单的，我增加一个用户，设个密码就进去了）简单的处理方法，就是只有超级用户才能增加用户，设起始密码，然后再让用户进行更改。完善一点的，就需要对数据库操作的用户进行分级分权。那个级别的用户可以作哪些操作，这需要建立一个权限表，可以针对级别，也可以针对用户。呵呵，就说到这吧，全面考虑是个挺复杂的系统，一开始没有必要面面俱到，就像神一到神六的做法，慢慢完善会容易实施一些。

热心网友

Private Sub Command1_Click()Dim conn As New ADODB。ConnectionDim rs As New ADODB。Recordsetconn。ConnectionString = "file name=D:\Microsoft Visual Studio\VB98\shopping\conn。udl"conn。Openrs。ActiveConnection = connrs。Open "select * from 员工 where 员工号='" + Text1。Text + "' and 密码='" + Text2。Text + "' ", , adOpenKeyset, adLockOptimistic, adCmdTextIf rs。EOF Then MsgBox "用户名或密码错误"Else Unload Me management。ShowEnd IfEnd Sub连接文件为conn。udl，数据库为Sql Server。

热心网友

上面写的太复杂:Private Sub cmdOK_Click()'确定按钮dim aa as stringdim bb as string Data1.Databasename= App.Path + "\ b" Data1.s ="表名" Data1.Refresh bb=Data1.Recordset("姓名")aa=Data1.Recordset("密码") ose if text1.text=bb or text2.text=aa thenMsgBox("户名密码正确!", vbOK, "系统信息") ow'隐藏form1form2.hide'显示下一窗体elseMsgBox("户名或密码不正确!", vbOK, "系统信息") if endend sub