【VB】编译错误

原因：未引用控件或代码错误

以下三种解决方法：

1）工程——引用——选中"Microsoft ActiveX Data Objects 2.6 Library"——点击“确定”

拓展：ActiveX Data Objects，简称ADO，访问数据库的一个接口，就是用来跟数据库交互的。

2）检查定义的代码是否有问题，要保证上下文的定义代码一致

3）"Ctrl+T"打开部件，添加“Microsoft ADD Data Control 6.0(OLEDB)”,点击“应用”——“确定”

原因：End Sub、End Function后不能接句子

解决方法：若End Sub、EndFunction后边的句子有用，则移动位置；若没用，直接删除（简单粗暴）

解决方法：将出现问题的代码名称用Dim定义

例：UserName="'

Dim UserName As String

例：Set .mrc

解决方法：去掉“点”（画蛇添足）Set mrc

解决方法：删除出问题的语句

原因：未引用部件

解决方法：工程——部件——选中“Microsoft DataGrid Control 6.0(OLEDB)”——点击“确定”

例：ExecuteSQL_Exit

解决方法：在上述语句后加“：”（马大哈）

原因：对应参数的类型不符造成

造成这种情况一般有几种情况：

(1)传递参数未定义类型，如果参数在调用前未定义类型，系统自动将它定义为Variant类型，由于与过程或函数中的对就参数类型不相同，所以提示"ByRef参数类型不符"

(2)传递参数类型已经定义，但由于定义方法不对，所以提示"ByRef参数类型不符"。具体情况如下：

当VB中如此定义变量时，将会出现以上错误信息的出现

程序执行正常。也就是说，第一种方法的变量定义，只是对 J 做了定义，并未对前面的 I 进行定义。

一般在过程和函数中定义参数时采用ByRef，则要求参数声明的类型和实际参数的类型完全相同，否则VB就会报告错误。

解决方法：将出现问题的代码重新定义即可

——解决方法

很明显的错误，语句写的不对，这就要求大家在写代码的时候一定要认真，认真再认真，正确的如下：