高手请进，关于ComctilLib的问题

2001-10-02 12:52:38 402 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Eclipse插件之Eclipse Color Theme的安装及使用博主秋招提前批已拿百度、字节跳动、拼多多、顺丰等公司的offer，可加微信：pcwl_Java一起交流秋招面试经验，可获得博主的秋招简历和复习笔记。 eclipse color theme主要是设置不同的背景主题以及修改代码颜色的配置。一、打开如下选项卡：help -> eclipse marketplace -> 搜索eclipse color theme查找到后直接ins... 阅读详情

那位高手知道ComctilLib是什么东西？或告诉我哪里有他的资料！

...全文

计算机导论期末知识点及试题总结 [近三万字总结 · 全] 计算机网络：计算机网络是利用通信线路连接起来相互独立的计算机的集合，其主要目的是实现数据通信和资源共享。计算机病毒：破坏计算机功能或数据，影响计算机使用，并能自我复制的一组计算机指令或程序。操作系统：操作系统是由程序和数据结构组成的大型系统软件，它负责计算机的全部软硬件的资源分配，调度和管理，控制各类程序的正常执行，并为用户使用计算机提供良好的环境。高速缓冲储存器（Cache）：位于cpu和内存之间的储存器，其特点是速度快，目的是是储存器的速度与cpu的速度相匹配。总线：若干信号线的集合，是阅读详情

meteor_liang

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

meteor_liang 2001-10-08

打赏
举报

0aaron 2001-10-07

打赏
举报

meteor_liang 2001-10-03

打赏
举报

meteor_liang 2001-10-03

打赏
举报

to bucher:
我没有对Microsoft Common Controls 5.0的引用，我一直只引用引用Microsoft Common Controls 6.0，我已试过改为Private Sub listStudents_ItemClick(ByVal Item As ListItem)。结果还是一样。后来，在access 2000数据库中我把学号这个属性的类型由整数改为
改为文本，就好了！

to karma:
我的qq:1306890.我还有问题问你，望指教！

meteor_liang 2001-10-02

打赏
举报

怎么没有高手出手相助呢？

难道又要劳动acptvb的大驾吗？

meteor_liang 2001-10-02

打赏
举报

对不起,我用的是access 2000.没有QUERY ANALYZER

当然,之前半个月,我是用sql server 7.0,好像也出同样的问题,我先回去用QUERY ANALYZER

测试一下我那个sql server 7.0的程序,谢谢你的帮忙!现在我要下了,晚上再来!

karma 2001-10-02

打赏
举报

看不出什么错来，你的语句，譬如
"select * from student where 学号= '121'"
在QUERY ANALYZER下运行没问题么？

meteor_liang 2001-10-02

打赏
举报

to karma :
我热切等待你的回答!

meteor_liang 2001-10-02

打赏
举报

由于这个网页的显示问题，rs.open"..."我是分两行的，他却显示在一行上，所以，你看起来多
_,不要以为是我的拼写错误导致出错!

meteor_liang 2001-10-02

打赏
举报

to karma:

对，我在对象浏览器里，能找到comctlLib 也叫MSComCtlLib.
但是，我早就添加了Microsoft Windows Common Controls 6.0了。因为我一直在用listview作为数据库浏览窗口的。可我就是找不到他。在程序中用到他时就显示出错。奇怪！

我给你源码吧！
Private Sub listStudents_ItemClick(ByVal Item As ComctlLib.ListItem)
Dim rs As Recordset
Set rs = New Recordset

If mbNeedSave Then
If Not UpdateRecord() Then
Set listStudents.SelectedItem = listStudents.ListItems(msCurrentRecord)
Exit Sub
End If

End If

Set rs = New Recordset
rs.Open "select * from student where 学号= '"_ +Item.Key+ "'" ,mConn,adOpenForwardOnly, adLockReadOnly

Do Until rs.EOF
Item.Text = rs("学号")
Item.SubItems(1) = rs("姓名")
Item.SubItems(2) = rs("入学时间")
Item.SubItems(3) = rs("届数")
Item.SubItems(4) = rs("已付学费")
Item.SubItems(5) = rs("未交学费")
Item.SubItems(6) = rs("学生类型")

txtNumber.Text = rs("学号")
txtName.Text = rs("姓名")
txtInTime.Text = rs("入学时间")
txtInNumber.Text = rs("届数")
txtInFee.Text = rs("已付学费")
txtOffFee.Text = rs("未交学费")
txtType.Text = rs("学生类型")

rs.MoveNext
Loop

rs.Close
Set rs = Nothing
mbNeedSave = False
cmdUpdate.Enabled = False
cmdDelete.Enabled = True

msCurrentRecord = txtNumber.Text

End Sub

他总显示rs.open"...."出错！

karma 2001-10-02

打赏
举报

it is ComctlLib Or MSComCtlLib

in VB, Project->Components, find Microsoft Windows Common Controls 6.0 (if you do not see it, browser to System directory, find MSCOMCTL.OCX), select it, you will a few entries (like listcontrol, tree control, image control, etc.) are added to your toolbox

meteor_liang 2001-10-02

打赏
举报

难道就没有高手吗？

bucher 2001-10-02

打赏
举报

去掉对Microsoft Common Controls 5.0的引用，改为引用Microsoft Common Controls 6.0。然后修改你的方法为Private Sub listStudents_ItemClick(ByVal Item As ListItem)即可。

meteor_liang 2001-10-02

打赏
举报

to ozw:
拼写肯定没有错误·
to karma:
但是，我找不到他的资料，在vb里面用到他时，要做什么引用或部件添加吗？
要不，我把源代码给你看看！急切等待你的回复！

karma 2001-10-02

打赏
举报

how did you fill the list? did you set the key for the listitem?

meteor_liang 2001-10-02

打赏
举报

ozw 2001-10-02

打赏
举报

可能拼写错了，搜索引擎什么都没找到！

ozw 2001-10-02

打赏
举报

没见过，不过既然有这么个东西，为何不上搜索引擎查一下呢？

meteor_liang 2001-10-02

打赏
举报

我回去试过,只要把Private Sub listStudents_ItemClick(ByVal Item As ComctlLib.ListItem)

改为Private Sub listStudents_ItemClick(ByVal Item As MSComctlLib.ListItem)
经过测试,可以肯定MSComctlLib.ListItem,是对的,ComctlLib.ListItem是错的.
然后,把rs.Open "select * from student where 学号= '"+Item.Key+ "'" ,mConn,adOpenForwardOnly, adLockReadOnly

的'"+Item.key+"'改为学号的一个实际值例如99061224的话,就没有错误,我估计是Item.key
的引用是错的.望高手指教!

karma 2001-10-02

打赏
举报

it is a common controls library, like listview, treeview controls, etc.

高手请进，关于ComctilLib的问题

相关推荐