您的位置：程序门 -> vb -> 数据库（包含打印，安装，报表)

高手紧急求救！在线等待。一条关于datacombo的问题！！！

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

高手紧急求救！在线等待。一条关于datacombo的问题！！！[已结贴,结贴人:winsonruan]

发表于：2007-05-20 00:46:48 楼主

dim ors as new adodb.recordset
dim oconn as new adodb.connection

'连接字符串的路径自己改过来
oconn.open "provider=msdasql.1;persist security info=false;user id=sa;data source=qcxlk "

ors.open "select * from xlxmk ", oconn, adopendynamic, adlockoptimistic

set datacombo1.rowsource = ors
datacombo1.listfield = "xlxmsm "
datacombo1.text = xlxmh

我始终没有办法在修改datacombo的时候把相应的xlxmh值放到datacombo.text。

高手求救！！有什么办法呢？

发表于：2007-05-20 02:38:491楼得分:50

private sub command1_click（)
dim ors as new adodb.recordset
dim oconn as new adodb.connection
oconn.open "provider=microsoft.jet.oledb.4.0;data source=c:\documents and settings\haoz\my documents\aa.mdb;persist security info=false "
ors.cursorlocation = aduseclient
ors.open "select * from aa ", oconn.connectionstring, adopendynamic, adlockoptimistic, adcmdtext
set datacombo1.rowsource = ors
datacombo1.listfield = "x "
datacombo1.text = ors.fields（ "x ").value
end sub

你的要求没看明白，是不是datacombo填充后，想显示出字段值？

发表于：2007-05-20 08:53:482楼得分:0

我是希望datacombo给出的选择是a表的x字段，选中后返回y字段，然后把返回y字段的值填写入datacombo.text保存（或者放到变量也行，关键是必须是实时的，我每改变一下datacombo的值，它也要跟着变），供我日后调用。

发表于：2007-05-20 11:49:173楼得分:0

使用了datacombo1.text = ors.fields（ "x ").value后，text是y字段的值了，但是永远是初始那个，之后无论datacombo怎么改变，text都不变！求救阿………各位大侠………就差这一点点。。

发表于：2007-05-20 19:00:454楼得分:0

没人有办法么？求救阿……各位大侠！！！

发表于：2007-05-27 22:02:465楼得分:0

还不行吗？我的qq：63512184，不行qq留言吧

其他资讯