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("字段名")