Question

vb提示用户定义类型未定义

Private Sub Command8_Click()
Dim Conn As New ADODB.Connection '定义数据库的连接
Dim Rs As New ADODB.Recordset

Conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=LFS型消音器;Data Source=."

Conn.Open
Rs.CursorLocation = adUseClient
Rs.Open "select * from Tab_压力损失", Conn, adOpenDynamic, adLockOptimistic

Dim ExcelApp As New Excel.Application
Dim WorkBookObj As Workbook
Dim SheetObj As Worksheet
Set WorkBookObj = ExcelApp.Workbooks.Open("d:\aa.xls")
Set SheetObj = WorkBookObj.Worksheets.Add
SheetObj.Range("A1").CopyFromRecordset Rs
Set SheetObj = Nothing
WorkBookObj.Save
WorkBookObj.Close
Set WorkBookObj = Nothing
ExcelApp.Quit
Set ExcelApp = Nothing
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
End Sub
调试时显示未定义 ，刚接触VB，不懂求教

Answer 1

1、需要定义的类型不存在，如：dim a as xx，而xx是没定义的（可能xx写错了）,需要先定义xx类型。

2、工具：vb6

3、用户定义类型未定义错误分三类：

a)写错了默认变量类型名，如：dim a as intege，改成dim a as integer即可。

b)写错了自定义变量类型名，如自定义变量a1，写成了al，改正成a1即可。

c)定义了某种引用类型的变量类型，而未引用该对象，如：

dim conn as ADODB.Connection，

而未在工程中引用Microsoft ActiveX Data Objects 2.5 Library，工程中引ADO即可。

4、注意：引用必须是定义类型相应的对象，引用错误是无效的。

Answer 2

两处错误。

一、没有引用 Microsoft Word X.0 Object Library。

二、二句代码写错了

Recordset多了个字母d.改为如下：

Public adocon As New ADODB.Connection '定义数据库连接

Public adors As New ADODB.Recordset '定义数据记录集对象

扩展资料：

注意事项

用户定义类型是一个使相关数据项成组的强大工具。例如，假设此处要定义名为 udtAccount 的用户定义类型：

Public Type udtAccount

Number As Long

Type As Byte

CustomerName As String

Balance As Double

End Type

可以声明一个 udtAccount类型的变量，分别给各个字段赋值，然后将整个记录传递给打印它的过程，并将其保存至数据库中，对其执行计算，验证各字段的数值，等等。

Answer 3

你的工程要引用ADO
菜单“工程”--“引用”--勾选“Microsoft ActiveX Data Objects 2.0 Library”（其他版本的亦可）--“确定”
其次是要引用Excel
菜单“工程”--“引用”--勾选“Microsoft Excel 11.0 Object Library”（其他版本的亦可）--“确定”

Answer 4

这种情况一般是你调试程序里出现的在系统里不能识别对象或者字符串！

正确的定义：

私人小Text1_MouseUp（整数“按钮，按住Shift键为整数，X单，Y单）。

定义：

私人：小Text1_MouseUp（按钮作为lnteger，Shift键整数， X为单为Single，Y）

整数打成为合数的分解公式。 

（i和l是不一样的字母，大写未能反映的视觉效果）。

没有lnteger的类型错了！

Answer 5

'用不同版本的办公软件可能有点不同
Private Sub Command1_Click()
Dim wdApp As New Word.Application '在这里提示用户定义类型未定义
Dim wdDoc As Word.Document
Dim strFileName As String
wdApp.Visible = False
strFileName = File1.Path + "\" + File1.FileName
Set wdDoc = wdApp.Documents.Open(strFileName)
wdDoc.SaveAs "c:\临时文件.RTF", 6
wdDoc.Close
wdApp.Quit
RichTextBox1.FileName = "c:\临时文件.RTF"
Kill "c:\临时文件.RTF"
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive '错误424 要求对象
End Sub