我的VB6.0为什么不能使用NEW 关键字

greki 2005-10-25 06:54:10

我的VB6.0为什么不能使用NEW 关键字

Set adoPrimaryRS = New Recordset

提示是"invalid use of New keyword"
请问这是什么原因..还是语法错了?

...全文

413 14 打赏收藏转发到动态举报

写回复

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

supergreenbean 2005-10-28

打赏
举报

回复

要么把注册表里的相关键删除掉,然后再重装一下最新版的mdac

greki 2005-10-27

打赏
举报

回复

我打过了..
strsql = "select huohao, mingcheng, pingpai, yangshi, leixing," _
& " yanse, cailiao, chicun1, chicun2," _
& "changdi, tupian, jiage, shuliang, shangshiri," _
& " faburi, jieshao, xiedi " _
& " from product "

strsql = "select * from product "
Set Con = CreateObject("ADODB.Connection")
'使用数据源来连接数据库
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\product.mdb;" & ";Persist Security Info=False"

Dim rs As New ADODB.Recordset
Set rs = Con.Execute(strsql)
Dim flag As Integer

Set DataGrid1.DataSource = rs

这样一直绑不上去....又不知道咋了

sqfeiyu 2005-10-27

打赏
举报

回复

打補丁啊!VB6的補丁包 VS6sp6VB 中包含的有ADO的2.5和以上的版本。
可以解決很多這種問題.

damofengbo 2005-10-27

打赏
举报

回复

工程=>引用=>Microsoft ActiveX Dtat Objects 2.5 Library选中就可以了

greki 2005-10-27

打赏
举报

回复

有什么解决方法嘛..

supergreenbean 2005-10-26

打赏
举报

回复

因为你这里的Recordset类是一个无法创建的类

greki 2005-10-26

打赏
举报

回复

谢谢大家..我的问题是
1.我的VB6.0为什么不能使用NEW 关键字
Set adoPrimaryRS = New Recordset
提示是"invalid use of New keyword
2.PROJECT EXPLOROR下去没显示引用

szjhxu 2005-10-25

打赏
举报

回复

如果不引用也不是出现这个错误啊,应该是“错误的用户类型”之类的

不知道楼主的问题是怎么回事，帮UP一下吧！

northwolves 2005-10-25

打赏
举报

回复

PROJECT EXPLOROR下去没显示引用?
-------------------

PROJECT EXPLOROR里有没有missing....? 去掉,重新引用

greki 2005-10-25

打赏
举报

回复

还是不行..那边是够上了..但PROJECT EXPLOROR下去没显示引用

为什么啊??

jing1023 2005-10-25

打赏
举报

回复

工程=>引用=>Microsoft ActiveX Dtat Objects 2.5 Library 选项中试试看,我上次也碰到过类似的情况!!!

faysky2 2005-10-25

打赏
举报

回复

Set adoPrimaryRS = New ADODB.Recordset
或者
Dim adoPrimaryRS As New ADODB.RecordSet

northwolves 2005-10-25

打赏
举报

回复

我一般直接定义:

Dim adoPrimaryRS As New ADODB.Recordset

northwolves 2005-10-25

打赏
举报

回复

Set adoPrimaryRS = New ADODB.Recordset

熟悉VB的朋友对使用ActiveX控件一定不会陌生，众多控件极大地方便了编程，但唯一的缺陷是不能动态加载控件，必须在设计时通过引用，将控件放置在窗体上。VB6.0已能够解决该问题，只是帮助中没有明确说明，并且没有描述到一些关键功能，由于以前的版本中可以动态创建进程外服务：如果对象是外部可创建的，可在 Set 语句中用 New 关键字、CreateObject 或 GetObject 从部件外面将对象引用赋予变量。如果对象是从属对象，则需使用高层对象的方法，在 Set 语句中指定一个对象引用

VB6.0动态加载ActiveX控件漫谈深圳罗汉军罗德昌熟悉VB的朋友对使用ActiveX控件一定不会陌生，众多控件极大地方便了编程，但唯一的缺陷是不能动态加载控件，必须在设计时通过引用，将控件放置在窗体上。 VB6.0已能够解决该问题，只是帮助中没有明确说明，并且没有描述到一些关键功能，由于以前的版本中可以动态创建进程外服务：如果对象是外部可创建的，可在 Set 语句中用 New 关键字、CreateObject 或 GetObject 从部件外面将对象引用赋予变量。如果对象是从属对象，则需使用高层对象的方法，在 Set 语句中指定一个对象引用： Dim xlApp1 As Excel.Application Set xlApp1 = New Excel.Application 或 Dim xlApp As Object '定义存放引用对象的变量。 Set xlApp = CreateObject("excel.application") xlApp.Visible = True ---- 这些语法很容易造成误导，以为动态加载ActiveX控件也是此方法，可能有朋友也象我一样利用CreateObject尝试了无数次，却无功而返，不知微软公司是出于何种考虑，动态加载ActiveX控件是扩展控件集合的方式实现，通过实际摸索，终于就如何实现动态ActiveX控件找出了一条切实可行的方法，下面以一个具体的实例来详细说明。一、ActiveX控件 ---- ActiveX 控件是 Visual Basic 工具箱的扩充部分。使用 ActiveX 控件的方法与使用其它标准内装的控件，如 CheckBox 控件，完全一样。在程序中加入 ActiveX 控件后，它将成为开发和运行环境的一部分，并为应用程序提供新的功能。 ---- ActiveX 部件通过客户端/服务器关系与应用程序— 及与部件相互之间— 交互作用。客户端是使用部件功能的应用程序代码或部件。服务器是部件及其关联的对象。例如，假设应用程序使用 ActiveX 控件来提供一个标准的雇员窗体，供公司的多种应用程序使用。提供雇员窗体的 ActiveX 控件就是服务器，使用这个控件的应用程序就是服务器的客户端。二、加载方法 ---- VB6.0中对Controls 集合进行了扩展，以前版本中Controls 集合在窗体上列举出已加载的控件，这在迭代过程中是很有用的。Controls 集合标识一个叫做 Controls的内在窗体级变量。如果忽略可选的 object 所在处的整数，则关键字 Controls 必须包括在内。我们通常在窗口中使用如下代码： Text1.Text="Hello, world" 其实也可以使用如下代码达到同一目的： Controls(1).Text="Hello, world" ---- 在VB6.0中除了原来的Clear、Remove 方法外(很奇怪，为什么微软在VB5.0中只提供这两种方法，而没有提供Add方法，因为没有Add，这两种方法也就没什么用处)，增加了Add方法，该方法就是用于动态加载控件的： Controls.Add(progid as String, Name as String); progid： ActiveX部件的ProgID，如："VB.CheckBox"； Name：ActiveX部件加载后的名称，如： "MyCheckBox"；若要在窗体上添加一个名为MyButton的按钮，可以使用： dim oControl as Object '窗体级变量注意：这里声明为Object对象类型 Private Sub LoadControl() Set oControl = Controls.Add ("VB.CommandButton", "MyButton") oControl.Left = 10 oControl.Top = 10 oControl.Visible = True '使控件可见 End Sub ---- 这是VB6.0的标准语法，它在例程中也是如此演示的，不过该方法虽然现实了控件的动态加载，按钮显示在窗体上，可以象普通按钮一样按下去，但加载的控件不能预先设计响应事件代码，如：事件Sub MyButton_Click()将是非法的，当然，可以将要响应的事件封装在控件内部。就编程的观点来看该方法没什么大的用处，开发ActiveX 控件的目的是为了资源共享，为了被其他开发人员利用，所以要提供必要的事件接口，显然利用该方法不行，通过分析VBControls等相关对象，找出VBControlExtender对象与EventInfo相结合能提供事件陷井捕捉，VBControlExtender对象对动态添加控件特别有用，它提供了一套通用的属性、方法、事件给开发人员，它的一个突出特点是能编程设计控件的事件，熟习类编程的朋友对带事件的对象声明一定不会陌生： ---- Dim WithEvents objElemt as CElemtVBControlExtender也不例外，声明的语法一样，只不过它有个特殊的事件ObjectEvent(Info As EventInfo)，它能捕捉到对象使用RaiseEvent产生的所有事件，EventInfo数据结构映射了事件的名称、参数个数和参数的值。VBControlExtender和 EventInfo相结合，采用Select Case 就可以预先将不同类对象的事件放置一起，各自独立运作。将上面的代码改写一下就能提供Click 事件了： ---- Dim WithEvents oControl As VBControlExtender '带事件声明声明之后您就可以在代码窗口的左上角的对象下拉框中发现该对象出现了，也就是说，该对象有了事件或方法了，它的事件有DragDrop，DragOver ，LostFocus ，GotFocus ， ObjectEvent和Validate，其中ObjectEvent是通用的事件捕捉。 Private Sub LoadControl() Set oControl = Controls.Add ("VB. CommandButton", "MyButton") oControl.Visible = True End Sub Private Sub oControl_ObjectEvent(Info As EventInfo) Select Case Info.Name Case "Click" 'Click事件 '您可以添加处理Click事件代码 MsgBox "您按了MyButton!" Case Else ' 其他事件 ' Handle unknown events here. End Select End Sub ---- 当然对微软提供的标准控件能采用该方法添加，大家都不会怀疑，但自己开发的控件也能吗？答案是肯定的，我们可以用一个实际的例子进行说明。三、实例描述 ---- 假设一个本地网络的监控系统，需要在原理图与实物示意图间切换，原理图包括组网结构、传输资源、监控主机等，而实物示意图包括路由器、设备、采集器等，当然两种图的事件要一致，如双击某个设备图形将显示给设备的实时数据等，为了简化维护，将原理图与实物示意图封装成ActiveX控件，由于每种图需要加载许多图形控件，消耗资源较大，不能同时加载，需要将其分解为两个控件，在切换时首先卸载一个控件，然后加载另一个控件，所以要实现动态加载ActiveX控件。 ---- 原理图控件为--Theory.ocx ，对应工程为CTheory； ---- 实物图控件为---Fact.ocx ，对应工程为CFact； ---- 注意：为了简化，在设计控件时不设置许可证关键字。 ---- 实物图控件上的图形对象可以被拖动，拖动后的位置信息通过事件 ChangePosition来通知拥有该控件的窗体，以便下次加载能显示在最后位置，实物图和原理图控件都有双击事件完成的工作相同，其他事件此处忽略。 ---- 四、具体示例 ---- 1、准备工作 ---- 对控件Theory.ocx 、Fact.ocx 进行注册(利用Regsvr32.exe注册)； ---- 建立窗体frmTest.frm ，在窗体上放置按钮cmdLoadOcx—“原理图” ---- 2、声明窗体级变量与加载函数LoadControl Dim WithEvents oControl As VBControlExtender '地图仿真控件对象 Dim mblnTheory As Boolean '是否显示原理图 Private Function LoadControl(intType As Integer) If Not oControl Is Nothing Then '首先判断对象是否存在，若存在则卸载 Controls.Remove("MapView") '卸载控件，此操作非常重要 End If If intType = 0 Then Set oControl = Controls.Add ("CTheory. Theory", "MapView") Else Set oControl = Controls.Add ("CFact.Fact", "MapView") End If oControl.Height = 3500 oControl.Width = 6500 oControl.Top = 100 oControl.Visible = True End Function Private Sub Form_Load() mblnTheory = True End Sub ---- 3、为按钮cmdLoadOcx编写代码 Private Sub cmdLoadOCX_Click() If mblnTheory Then Call LoadControl(0) mblnTheory = False cmdLoadOCX.Caption = "实物图" Else Call LoadControl(1) mblnTheory = True cmdLoadOCX.Caption = "原理图" End If End Sub ---- 4、为事件ChangePosition编写代码 Private Sub oControl_ObjectEvent (Info As EventInfo) Select Case Info.Name Case "ChangePosition" MsgBox CStr(Info.EventParamters.Item( 1).Value) + ":" + _ CStr(Info.EventParamters.Item(2).Value) Case "DbClick" '双击处理代码 Case Else ' End Select End Sub ---- 注意： EventInfo的参数EventParamters集合中是以1开始的，一般来说，微软新的集合一般是以1开始的，而旧的是以0开始的，如RdoErrors.Item(0)。 ---- 5、关闭窗口前卸载控件 Private Sub Form_Unload(Cancel As Integer) Controls.Remove("MapView") Set oControl = Nothing End Sub ---- 6、特别注意 ---- 通过Controls.Add方法添加的ActiveX控件一定不能在该工程中有该控件的任何引用，否则系统将出错。四、小结 ---- 通过使用动态加载ActiveX控件使用庞大的应用程序变得很小，将不同的 ActiveX控件进行各种组合，使应用程序更加灵活多变，如您的应用系统要处理三十种门禁，而某个具体的用户可能只有一种或两种门禁，根本没必要首先将所有门禁包含到应用中，可将各个门禁独立封装，只安装注册需要的组件，就象Windows的自定义安装一样。微软的未来技术基础是分布式的组件技术(DCOM)，将会把代码的重用发挥得淋漓尽致。您不妨试一试动态加载，也许会产生令您惊喜的效果！ ---- 本代码在Win98、VB6.0(英文版)上编译、运行。

rivate Sub cmdAdd_Click() Dim str1 As String Dim cnn As New ADODB.Connection '数据库连接 If cmdAdd.Caption = "新增" Then '按钮为“新增”状态 cmdAdd.Caption = "保存" '修改按钮标题为“保存”，提示用户保存数据 cmdCancel.Visible = True '显示“取消”按钮 lstbus.Enabled = False '禁止用户操作列表框 LockControl (False) '允许用户操作窗口中部分控件 txtbus.Text = "" '清除“线路名”文本框 txtBeginEnd.Text = "" '清除“运行区间”文本框 cmbTickType.Text = "无人售票" '设置售票类型的默认值 cmbPrice.Text = "上车一元" '设置票价的默认值 optIC2.Value = True '设置不支持IC卡 txtRuntime.Text = "" '清除“运行时间”文本框 txtCompany.Text = "" '清除“公交公司”文本框 txtMemo.Text = "" '清除“备注”文本框 Else If Not CheckInput Then Exit Sub '调用CheckInput函数检查输入数据 cmdAdd.Caption = "新增" '修改按钮标题为“新增” cmdCancel.Visible = False '隐藏“取消按钮" lstbus.Enabled = True '允许用户操作列表框 LockControl (True) '锁定窗口中部分控件 '定义新增数据的SQL语句 str1 = "INSERT INTO [BUS]([bus],[beginend],[ticktype],[price]" str1 = str1 + ",[ic],[runtime],[company],[memo]) VALUES(" 'INSERT INTO语句 str1 = str1 + "'" + txtbus.Text + "','" '线路名 str1 = str1 + txtBeginEnd.Text + "','" '运行区间 str1 = str1 + cmbTickType.Text + "','" '售票类型 str1 = str1 + cmbPrice.Text + "'," '票价 If optIC1.Value Then '是否支持IC卡 str1 = str1 + "true,'" '支持 Else str1 = str1 + "false,'" '不支持 End If str1 = str1 + txtRuntime.Text + "','" '运行时间 str1 = str1 + txtCompany.Text + "','" '公交公司 str1 = str1 + txtMemo.Text + "')" '备注 cnn.ConnectionString = Conn '设置数据库连接字符串 cnn.Open '打开数据库连接 cnn.Execute (str1) '执行INSERT INTO语句插入数据 cnn.Close '关闭数据库连接 Form_Load '调用窗体装载事件代码，重新将线路信息显示在列表框中 End If End Sub Private Sub cmdCancel_Click() '“取消”按钮放弃输入的值 lstbus.Enabled = True '允许用户操作列表框 cmdCancel.Visible = False '隐藏“取消”按钮，使其不可见 cmdAdd.Caption = "新增" '修改“保存”按钮标题为“新增” LockControl (True) '锁定窗口中部分控件 lstbus_Click '调用列表框的单击事件代码 End Sub Private Sub cmdExit_Click() '退出当前窗体 Dim ret As Integer If cmdAdd.Caption = "保存" Then '判断是否有输入的信息未保存 ret = MsgBox("新增数据还未保存，是否退出？", vbQuestion + vbYesNo) '获取用户的选择 If ret = vbNo Then '选择“否” Exit Sub '退出当前过程，则不退出当前窗体 End If End If Unload Me '退出当前窗体 End Sub Private Sub Form_Load() '窗体初始化代码 Dim cnn As New ADODB.Connection '定义数据库连接变量 Dim rst As New ADODB.Recordset '定义记录集变量 LockControl (True) '锁定窗口中部分控件 cnn.ConnectionString = Conn '设置数据库连接字符串 cnn.Open '打开数据库连接 Set rst.ActiveConnection = cnn '设置记录集的数据库连接 rst.Open "SELECT [bus] FROM [bus]" '打开记录集，得到线路名数据 lstbus.Clear '清除列表框中原有内容 Do While Not rst.EOF '循环处理记录集中的数据 lstbus.AddItem rst(0).Value '将线路名添加到列表框中 rst.MoveNext '处理下一记录 Loop If lstbus.ListCount > 0 Then '列表框中有数据 lstbus.ListIndex = 0 '选中第1个数据 End If rst.Close '关闭记录集 cnn.Close '关闭数据库连接 End Sub Private Sub Label2_Click() End Sub Private Sub Label8_Click() End Sub Private Sub lstbus_Click() '单击列表框时，更新右侧的显示数据 Dim cnn As New ADODB.Connection '定义数据库连接 Dim rst As New ADODB.Recordset '定义记录集 Dim str1 As String, str2 As String '临时字符串变量 str1 = lstbus.List(lstbus.ListIndex) '获取列表框中的选中项(可介绍一下列表框) cnn.ConnectionString = Conn '设置数据库连接字符串 cnn.Open '打开数据库连接 Set rst.ActiveConnection = cnn '设置记录集的数据库连接 str2 = "SELECT * FROM [BUS] WHERE BUS='" & Trim(str1) & "'" '定义查询字符串 rst.Open str2 '打开记录集 If Not rst.EOF Then '若记录集不为空，显示内容 'gID = rst("id") '记录关键字 txtbus.Text = rst("bus") '线路名 txtBeginEnd.Text = rst("beginend") '运行区间 cmbTickType.Text = rst("ticktype") '售票类型 cmbPrice.Text = rst("price") '票价 If rst("ic") = True Then '支持IC卡 optIC1.Value = True Else '不支持IC卡

Microsoft Visual Basic.Net 和 Microsoft Visual C#.net的不同摘要：这篇文章主要讨论vb.net语言和c#.net语言在语法上的不同，vb.net和c#.net有一系列微妙的差异，变量的申明和赋值，数据类型，语句终止的方式，语句块的表述，使用的变量括号，操作符的不同，条件语句的不同，错误处理，溢出检测,变量传递,数据绑定,托管代码的操作方法和关键字. 引言: 从过去的visual basic,visual c和visual c++的不同,许多设计者简单的认为visual C#.net要比visual vb.net强大一些,他们认为c#中能做的一些东西vb.net不能完成.就像早期的visual c 6.0 和visual c++ 6.0能实现的visual basic 6.0不能实现.这样的想法是不正确的.虽然它们确实存在着差别,他们都是.net框架中最好的两种语言,他们都是一样的强大,visual basic.net是真正的面向对象的语言,包括了新建对象方法New和面向对象的特征—封装、多态、继承和重载。Vb.net和C#.net都使用.net框架中的公共语言运行时，而且它们之间几乎不存在性能问题。Vb.net在后数据绑定方面比C#.net要简单，C#.net在托管代码上要比vb.net做得好。但是它们在其他方面的差别都比较的小。

现在随着VB.NET的发展，大部分人都放弃使用VB6.0而选择VB.NET，下面我们就来研究一下VB6.0和VB.NET的区别。VB.NET是微软公司在2002年推出的一种开发基于.Net平台应用程序的开发语言，也是微软公司极力推荐的一种开发.Net平台应用程序的开发语言。首先还是让我们来简单了解一下VB.NET和其前一个版本，也是目前世界上拥有最多使用者的开发语言--VB 6.0的主要区别。 ...

7,763

社区成员

197,609

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章