| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 345 人关注过本帖
标题:树反应数据库中字段时,ado不能连接
只看楼主 加入收藏
thjanxd
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2008-4-25
收藏
 问题点数:0 回复次数:3 
树反应数据库中字段时,ado不能连接
Private Sub Form_Load()
Dim rs1 As New ADODB.Recordset
trvlb.LineStyle = tvwTreeLines
trvlb.ImageList = ImageList1
trvlb.Style = tvwTreelinesPlusMinusPictureText

Dim nodx As Node

rs1.Open "select * from lbmx where len(pk_lb)=2", cnn, adOpenKeyset, adLockOptimistic
If rs1.RecordCount > 0 Then
    rs1.MoveFirst
    Do While Not rs1.EOF
        Set nodx = trvlb.Nodes.Add(, , rs1.Fields("pk_lb"), rs1.Fields("lbname"))
        rs1.MoveNext
    Loop
End If
txtfirnum.Text = rs1.RecordCount

End Sub
txtfirnum.Text 用于反应rs1的记录数,运行后显示-1
明明rs1的sql语句复制到sql 查询分析器中能够运行的。
所以不能把内容读到树的节点中,请高手指教,在下都蒙了

[ 本帖最后由 thjanxd 于 2012-3-28 08:21 编辑 ]
搜索更多相关主题的帖子: 数据库 where 
2012-03-28 08:18
thjanxd
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2008-4-25
收藏
得分:0 
回复 楼主 thjanxd
问题通过在窗口中添加ado控件得到解决,但是为什么dim 一个recordset 连接不到数据库呢
连接都是用的模块定义的连接
Public Function cnn() As String
cnn = "Provider=SQLOLEDB.1;password=1;Persist Security Info=true;user id=sa;Initial Catalog=jtzwgl;Data Source=PC2010087"
End Function
sql语句都是一样的
ado空间的recordcount>0而 recordset.recordcount=-1
了解的大师点拨一下吧,谢谢了
2012-03-29 10:36
liangge2012
Rank: 2
等 级:论坛游民
帖 子:14
专家分:10
注 册:2011-3-17
收藏
得分:0 
回复 2楼 thjanxd
如果不添加控件 就不会有那些属性  就不能连接
2012-03-30 12:02
thjanxd
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2008-4-25
收藏
得分:0 
回复 3楼 liangge2012
首先,谢谢你。
其次,我原来数据库连接时候有两种方式可以的,即
1、通过添加控件可以连接
2、通过自定义ado应该也可以啊
就是这样的
dim rs as new adodb.recordset
rs.open sql,cnn,3,2 或者
rs.open sql,cnn,adopenkeyset,adlockoptimistic的
3、现在自定义的这种不好用了,不知为何,其他窗口的还可以用(两种方式都可以)。

[ 本帖最后由 thjanxd 于 2012-3-31 15:42 编辑 ]
2012-03-31 15:40
快速回复:树反应数据库中字段时,ado不能连接
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.026972 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved