A. VB6.0中如何保存账号密码- 在线等 很急 50分
可以用Access数据库建立一个有关管理员的表，再把数据库与VB连接起来应该就能实现。
Access数据库的制作：可使用Access2003
(1)：在Windows系统中，单击【开始】|【程序】|【Microsoft Access】菜单命令,打开Access应用程序界面。
（2）：选中【空Access数据库】单选按钮，单击【确定】按钮，弹出【文件新建数据库】对话框。选择保存路径，输入要创建的数据库名称（注意扩张名.mdb不要改，前边任意写），单击创建按钮，即可创建一个数据库。
（3）：在数据库窗口中单击【设计】按钮，打开表设计视图，进行设计
字段名称 数据类型 字段长度 其他说明
用户名 文本 20 主键
密码 文本 20
字段长度和主键也可以不设置，无关紧要，看个人需求。（主键设置：单击左侧选中一行，单击工具栏中的类似于钥匙的按钮，光标点时会出现汉字主键。）
（4）然后点击关闭，出现对话框，是否对表1进行修改，点击是，然后出现另存为对话框，可修改表名，点击确定。
（5）然后再打开该表，填写用户名和密码，填写完毕关掉即可。
（6）下面就是建立数据库与Vb的链接了。
B. VB保存密码是什么命令
没有这种命令。
要保存密码的方法很多，
第一当然要加密明文的密码；
第二就是选择保存的地方：注册表、数据库、文件.............
C. 求vb保存用户名和密码
"kernel32"Alias"GetPrivateProfileStringA"(,ByVallpKeyNameAsAny,ByVallpDefaultAsString,ByVallpReturnedStringAsString,ByValnSizeAsLong,ByVallpFileNameAsString)"kernel32"Alias"WritePrivateProfileStringA"(,ByVallpKeyNameAsAny,ByVallpStringAsAny,ByVallpFileNameAsString)AsLong
PrivateFunctionWriteIni(ByValKeyAsString,ByValKeyNameAsString,ByValKeyStringAsString,ByValFpathAsString)AsString
DimsuccessAsLong
success=WritePrivateProfileString(Key,KeyName,KeyString,Fpath)
EndFunction
PrivateFunctionReadIni(ByValKeyAsString,ByValKeyNameAsString,ByValFpathAsString)AsString DimretAsLong
DimbuffAsString
buff=Space(255)
ret=GetPrivateProfileString(Key,KeyName,"",buff,256,Fpath)
ReadIni=Left(Trim(buff),Len(Trim(buff))-1)
EndFunction
PrivateSubCommand1_Click()WriteIni"User","ID",Text1.Text,app.path&"1.ini"
WriteIni"User","Pwd",Text2.Text,app.path&"1.ini"
UnloadMe
EndSub
PrivateSubForm_Load()Text1.Text=ReadIni("user","ID",app.path&"1.ini")
Text2.Text=ReadIni("user","pwd",app.path&"1.ini")
EndSub
'readini'读取INI writeini写入ini
'ini内容格式
'比如
'[User]'这个是键
'ID=123 '字段=字段值
'PWD=345'字段=字段值
'那么写入应该writeini键,字段,字段值,保存文件的路径
'读取INi text1.text=readini(键,字段,保存文件的路径)
D. VB密码保存器
可以用ACCESS来实现，而且功能扩展空间大，用户名也可以存贮与读取。
下面免费提供给你代码，是我自己写的，可以用
先引用组件 工程--》引用 在Microsoft Activex Object 2.* Library 前打钩 --》确定
代码如下：
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim qqmima, tbmima, emmima
Private Sub Command1_Click()
If Option1.Value = True Then
rs("qq") = T1.Text
qqmima = T1.Text
ElseIf Option2.Value = True Then
rs("tb") = T1.Text
tbmima = T1.Text
ElseIf Option3.Value = True Then
rs("em") = T1.Text
emmima = T1.Text
Else
T1.Text = "不明错误"
End If
rs.Update
End Sub
Private Sub Command2_Click()
If Option1.Value = True Then
T1.Text = qqmima
ElseIf Option2.Value = True Then
T1.Text = tbmima
ElseIf Option3.Value = True Then
T1.Text = emmima
Else
T1.Text = "不明错误"
End If
End Sub
Private Sub Form_Load()
Set cn = New ADODB.Connection
Dim ps As String
ps = "provider=microsoft.jet.oledb.4.0;data source= " & App.Path & "\db.mdb ;Jet OLEDB:Database Password=****" '****是数据库密码
cn.Open ps
Dim sql As String
Set rs = New ADODB.Recordset
sql = "select * from suju"
rs.Open sql, cn, adOpenDynamic, adLockOptimistic
qqmima = rs("qq")
tbmima = rs("tb")
emmima = rs("em")
End Sub
Private Sub Form_Unload(Cancel As Integer)
cn.Close
End Sub
这样就可以了
如果不懂可以和我交流下 发邮件给我 [email protected]
加分后可以把成品发给你哦。。。。。。
最后一句话 其实我也是菜鸟
E. vb中如何记录帐号和密码
最简单的方法就是程序操作文件，然后存取，高级一点可以使用MDB数据库文件进行记录
F. 用VB做一个修改密码的程序时，怎么编写存放密码的数据库
步骤:
1、创建数据库
2、创建数据表
3、添加记录
4、写vb代码:
定义数据库连接对象
创建连接实例
打开连接
执行update程序
关闭连接