數據權威源代碼

將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

如果…就會結束

末端接頭