vb資料庫源代碼
① 為什麼在VB編譯資料庫應用類源代碼(如XX管理系統)總是提示變數未定義無法編譯
「為什麼在VB編譯資料庫應用類源代碼(如XX管理系統)總是提示變數未定義無法編譯」
1、資料庫程序編輯根據你的編輯方法不同，有可能在引用中要載入引用，也有可能使用控制項；
2、資料庫不同使用的引用不同，對於控制項，資料庫不同，控制項的屬性設置也不同（這里說的資料庫不同是使用的資料庫軟體不同，如Access、sql Strver 2000等等）；
3、「如XX管理系統」是什麼資料庫？
② VB的源代碼和源文件
源文件：指編程者做好的工程文件，包含對程序進行修改、編譯所需的全套代碼和組件（例如圖標、可視界面、第三方控制項、資料庫）。
源代碼：僅僅是編程者所寫的程序代碼，不包含界面和控制項等，需要用戶自行完成相關操作。可能不完整，一般用於提供編程思路。
【對補充的解答】
我上面已經說過了，源代碼可能不完整。可能是整個工程的源代碼，也可能只是幾個主要窗體的源代碼。究竟是哪種要由提供代碼者決定。考慮到時間、精力等問題，他可能只提供比較難編的主要部分的代碼，而將剩下的簡單代碼留給用戶自行完成。一般提供代碼者會同時說明情況。
如果你想要完整的代碼，可以搜索其它人提供的代碼，或者直接找源文件。
③ VB源代碼如何用
首先打開VB，然後再VB界面左上角的菜單欄「文件」中選擇「打開工程」，此時彈出對話框，選擇源代碼所在的文件夾，找到一個xxxx.vbp的文件打開即可
④ VB如何給源代碼加密
把函數封裝到DLL里 直接加密不了 用記事本都能看VB源代碼
⑤ VB 計算機源代碼解釋
PrivateSubCommand1_Click(IndexAsInteger)
'單擊名稱為Command1的數組中的任意一個按鈕時觸發此段代碼
SelectCaseIndex'檢查單擊的按鈕的下標值
Case0To9
'下標為0至9（包括0和9，即前10個按鈕，因為控制項數組的下標從0開始）
IfFirstNumThen
'如果FirstNum的值是True（從下面的FirstNum=False可以推斷出FirstNum是邏輯型（Boolean）變數）
StrNum1=Str(Index)
'把下標值轉換為字元串（Str）並賦值給StrNum1（應當為字元型）變數
FirstNum=False'把FirstNum變數的值設定為False
Else'否則
StrNum1=StrNum1+Str(Index)
'把下標值轉換為字元串連接到StrNum1後面
EndIf'結束If判斷語句塊
Text1.Text=StrNum1
'把名稱為Text1的文本框的Text屬性（即顯示出來的內容）設定為StrNum1的值，也就是把StrNum1顯示在名為Text1的文本框中
<還有其他語句，等待插入>
EndSelect'結束SelectCase判斷語句塊
EndSub'結束過程
⑥ vb如何連接sql資料庫,求源碼
Public My_Cnn As New ADODB.Connection '連接資料庫
StrCnn = "Provider=SQLOLEDB.1;Password=密碼;Persist Security Info=True;User ID=用戶名;Initial Catalog=資料庫名;Data Source=伺服器名"
My_Cnn.CursorLocation = adUseClient
My_Cnn.Open StrCnn
使用資料庫
Dim sql As String
Dim My_temp As New ADODB.Recordset
執行SQL語句（一般插入，刪除數據）
sql = "資料庫語句"
My_cnn.Execute sql
讀取數據
sql = "查詢語句"
My_temp.Open sql, My_cnn, adOpenDynamic, adLockOptimistic
My_temp.field("欄位名")