vb编译错误:用户定义类型未定义

来源:百度知道 编辑:UC知道 时间:2024/06/16 06:31:27
Private con As New ADODB.Connection
Private rs As New ADODB.Recordset
Private STR, SMDF, SMDFS, SLDF, SLDFS, ODBC_str As String
Private UserName As String
Private UserPwd As String
Dim connter As Integer '定义一个整型变量
Dim sql, workarea(4600) As String
Dim char As Byte
Dim Intext As String
Dim Intexts As String
Dim strtemp As String * 200
Dim StrName As String * 256
Dim Computer_str As String * 256
Dim db_str As String * 256
Dim Paths As String * 256

Dim YWJ, MWJ, L, L1 As String, S As String * 1, ASCIIN, i As Integer
Dim x As Integer
'提取计算机名和用户名
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

程序中缺少必要的部件或引用。

使用菜单项【工程】-【部件】,或者【工程】-【引用】,打开部件(或引用)的窗口,选择你程序中涉及的部件(或引用)。

上面代码中的
“Dim YWJ, MWJ, L, L1 As String, S As String * 1, ASCIIN, i As Integer ”
里面不能有星号“*1”。