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

PrivateSubCommand8_Click()DimConnAsNewADODB.Connection'定义数据库的连接DimRsAsNewADODB.Record... 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,不懂求教
展开
 我来答
chinaboyzyq
2016-07-02 · TA获得超过1.3万个赞
知道大有可为答主
回答量:1.3万
采纳率:89%
帮助的人:3207万
展开全部

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、注意:引用必须是定义类型相应的对象,引用错误是无效的。

大野瘦子
高粉答主

2019-11-12 · 繁杂信息太多,你要学会辨别
知道小有建树答主
回答量:1227
采纳率:100%
帮助的人:33.3万
展开全部

两处错误。

一、没有引用 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类型的变量,分别给各个字段赋值,然后将整个记录传递给打印它的过程,并将其保存至数据库中,对其执行计算,验证各字段的数值,等等。

已赞过 已踩过<
你对这个回答的评价是?
评论 收起
网海1书生
科技发烧友

2016-05-18 · 擅长软件设计、WEB应用开发、小程序
网海1书生
采纳数:12311 获赞数:26226

向TA提问 私信TA
展开全部
你的工程要引用ADO
菜单“工程”--“引用”--勾选“Microsoft ActiveX Data Objects 2.0 Library”(其他版本的亦可)--“确定”
其次是要引用Excel
菜单“工程”--“引用”--勾选“Microsoft Excel 11.0 Object Library”(其他版本的亦可)--“确定”
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
地表最帅175
高粉答主

2018-03-30 · 繁杂信息太多,你要学会辨别
知道大有可为答主
回答量:152
采纳率:0%
帮助的人:4.2万
展开全部

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

正确的定义:

私人小Text1_MouseUp(整数“按钮,按住Shift键为整数,X单,Y单)。

定义:

私人:小Text1_MouseUp(按钮作为lnteger,Shift键整数, X为单为Single,Y)

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

(i和l是不一样的字母,大写未能反映的视觉效果)。

没有lnteger的类型错了!

本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
北极星点亮
2016-11-05 · TA获得超过6389个赞
知道大有可为答主
回答量:4451
采纳率:93%
帮助的人:963万
展开全部
'用不同版本的办公软件可能有点不同
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
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(7)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式