將A作為字符串變暗
A = app.path+"\ accessfile.mdb "
Adodc1。ConnectionString = " Provider = Microsoft。Jet . OLEDB.4.0數據源= " & ampA & amp";持久安全信息=False "
adodc 1 . record source = " select * from user table,其中用戶名= ' "+用戶名+",密碼= ' "+密碼+" ' "
Adodc1。恢復精神
如果OT采用dc1。Recordset.EOF然後
主要部分。顯示
我。隱藏
其他
MsgBox("錯誤的用戶名或密碼!請重新輸入!”)
我。用戶名= " "
我。密碼= " "
清空文本框的內容
如果…就會結束
末端接頭
以上是登錄,在VB項目的壹個文件夾中設置ACCESS,取相對路徑。
以下是註冊用戶列表:
私有子命令2_Click()
將A作為字符串變暗
A = app.path+"\ accessfile.mdb "
Adodc1。ConnectionString = " Provider = Microsoft。Jet . OLEDB.4.0數據源= " & ampA & amp";持久安全信息=False "
adodc 1 . record source = " select * from user table "
Adodc1。恢復精神
如果OT采用dc1。Recordset.EOF然後
Adodc1.recordset.AddNew
Adodc1.recordset.fields("用戶名")=文本框1。
adodc 1 . recordset . fields(" password ")=文本框2。
.....................
Adodc1.recordset.update
文本框1= " "
文本框2= " "
......
文本框1.setfocus
其他
文本框1= " "
文本框2= " "
.....
文本框1.setfoucus
如果…就會結束
末端接頭