VB 和 Access2003 確實存在登入表單問題

我認為主要的錯誤是。

如果先關閉 con，則應先關閉 rs，然後再關閉 con

我對您的程式進行了以下更改：

public con as new '定義資料連線、公共變數。

public user, pwd as string

sub main()

chdir '轉換相對路徑。

provider=;data source=;persist security info=false"

定義資料庫連線。

aduseclient '以客戶端身份開啟。

開啟連線。 系統管理員。 show

end sub

登入表單。 private sub cmdok_click()

dim rs as new

if ( = "") or ( = "") then

msgbox "使用者名稱和密碼不能為空！ ", vbokonly, "錯"

exit sub

end if

user =

pwd =sql = "從 sysadmin 中選擇 *，其中 username='" + user + "'和 password='" + pwd + "'"

set rs =

if then

msgbox "使用者名稱和密碼錯誤！ ", vbokonly, "錯"

exit sub

else unload me

end if

在關閉資料庫連線之前，應關閉記錄集。

end sub

private sub cmdcancle_click()

unload me

end sub

賞金積分：30 - 14 天 23 小時，直到問題結束。

我的**是。

public con as new connection '定義資料連線、公共變數。

public user, pwd as stringsub main()

chdir '轉換相對路徑。

provider=;data source=;persist security info=false"

定義資料庫連線。

aduseclient '以客戶端身份開啟。 '開啟連線。

系統管理員。 show

end sub

登入表單。

1、dimobjcnasnewconnection,objrsasnewrecordset

2、dimobjcnasconnection

setobjcn=newconnection

例項 2dsn”。

3. AdoData 控制項建立連線。

有許多方法可以將 VB 連線到資料庫，具體取決於用於鏈結到資料庫的方法。

1. 連線 ADO。

2. 連線資料控制項。

3. 連線 ADODB 資料控制項。

以 VB connection access2003 through ADO 為例：

首先，在VB專案中單擊[專案]-[參考]，在開啟的對話方塊中選擇“Microsoft Axtivex 資料物件庫”，然後定義兩個物件。

然後寫：

dim conn as new , rs as new

其中 conn 是資料庫鏈結物件，rs 是資料記錄集物件。

provider=;data source=e:\db\; jet oledb:database password="

provider=是驅動程式。

data source=e： db 這是 access 資料庫檔案的位置。

database password=，如果您有訪問資料庫的密碼，請在此處寫下密碼，如果沒有，則可以將其刪除。

strsql = "從資料庫中的表中選擇 *"

strsql, conn, 3, 3

…'現在資料庫已經成功鏈結，記錄集已經載入，現在可以執行資料操作了，注意，資料庫操作完成後，不要忘記關閉記錄集和資料庫鏈結物件：

1、dimobjcnasnewconnection,objrsasnewrecordset

2. dimoBjcNASconnectionsetobjcn=NewConnection 例項 2DSN”。

3. AdoData 控制項建立連線。

引用房東的話，“假設：乙個管理系統是用 VB 製作的，當你在桌面上單擊以啟動它時，它就會出現”。

如果這個假設是正確的，那麼就不存在“如何使用 vb 和 access2003 進行系統登入對話方塊”的問題了！

建議：了解如何使用 VB 與 Access2003 建立連線！ 只有通過學習這一點，你才能使這個系統成為你的系統。

附件：登入對話方塊提示。

1. 將連線 access2003 資料庫檔案新增到系統登入表單的載入事件中。

二、系統登入表單的登入按鈕：

1、判斷填寫的使用者名稱是否在access2003資料庫檔案使用者表列表中：如果沒有提示使用者名稱錯誤，程序結束，則獲取使用者對應的密碼;

2、判斷填寫的密碼是否與獲取的密碼一致：如果密碼錯誤，程序結束，登入軟體主視窗。

1） ADO 物件或 ADO 控制項 通過 ODBC 連線到資料庫。

2） ADO 物件或 ADO 控制項根據返回值通過 SQL 語句查詢完成登入。

該錯誤的可能原因如下。

1.錯誤原因：表單控制項的名稱與**的名稱不一致。

解決方法：將控制項的名稱更改為與**中呼叫的名稱一致（一般是文字框的名稱寫錯了，比如名稱被命名為標籤，導致文字框的名稱錯誤）。

2.錯誤原因：物件的屬性名稱或方法名稱寫錯了。

解決方案：嘗試使用 VB 的自動列表成員功能：當物件名稱拼寫準確時，並且

，系統會自動列出處於執行狀態的物件可用的屬性和方法，使用者可以按 Tab 鍵或空格鍵或雙擊滑鼠快速準確地進入。 這樣可以減少鍵入並防止此類錯誤。

dlookup 後面的變數格式也不正確。

數值型別：dlookup （"田","表名","欄位名稱 ="&數字變數）。

文字：dlookup （"田","表名","欄位名稱 ='"基於文字的變數（&&）"'")

日期型別：dlookup （.）"田","表名","欄位名稱 ="& 基於日期的變數 &"#

不建議初學者直接使用VBA來獲取這些東西，因為如果你對資料庫方面不是很熟悉，當你遇到VBA的問題時，你會感到不知所措，......當你再次修改它時，你會覺得你不知道如何改變它，有時......

因此，建議： 1.建立使用者表 使用者名稱、程式碼、許可權組、密碼等必填字段 ......

2. 建立登入表單（包括使用者名稱和密碼兩個必填文字框）時，使用表單上的使用者名稱或使用者程式碼作為查詢條件，將查詢建立為子表單並插入到登入表單中，選擇不顯示......用於 Format 的顯示屬性

3.然後，您可以設計乙個巨集或乙個簡單的VBA**來觸發......當使用者名稱或使用者名稱文字框中的資料更新時資料重新整理可確保“資料重新整理”子窗體中存在唯一的使用者資訊：使用者名稱或使用者 ID 以及登入密碼......

4.當密碼更新時，會觸發另乙個事件（或巨集），將輸入的密碼與使用者子表單中查詢的密碼進行比較，如果相等，則返回錯誤訊息並禁止登入......

大意是，這是描述的結尾，你可以自己協調一下......我相信你會比我想象的做得更好......

重要提示：初學者應充分利用視覺化查詢設計，儘量減少使用 VBA SQL 語句和其他......因為你不經常使用它，所以它肯定是生鏽的......這也是乙個繁瑣的......修改讓我們慢慢來。