Question

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

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

Answer 1

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

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

Answer 2

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

Answer 3

数值类型转换问题
Int(Val(Text1.Text))
如果text1填写了中文只能返回0
而IsProductIdExists
应该是过程
具体怎么处理这个参数的
应该这里的问题了。
问你
IsProductIdExists
过程代码