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程序
關閉連接