代码是: Set PubsConn = New rtsscom.Cconnect Dim Reservations As rdoResultset Set Reservations = Nothing sql = "Select name,description,type FROM FIVEMINUTESPARAMETER where name ='BMZP'" Success = PubsConn.GetReservation( _ sql, Reservations) '利用com组件返回一个数据集 Set FlexGrid1.DataSource = Reservations
如果用到RDO,你应该在引用中要选上RDO
能够取出数据在textbox里显示,说明引用应该是没有问题,就是绑定时出问题。
为什么要这一句: Set Reservations = Nothing 我想问题就出在这里,去掉这句试试
Set PubsConn = New rtsscom.Cconnect Dim Reservations As New adodb.recordset sql = "Select name,description,type FROM IVEMINUTESPARAMETER where name ='BMZP'" with reservations .state=adstateopen then .close .open sql,pubsconn,adopenkeyset,adlockreadonly end with
Set FlexGrid1.DataSource = Reservations set reservations=nothing这样试试
Set Reservations = Nothing -〉 Set Reservations = new rdoResultset '用new关键字创建一个实例
Set PubsConn = New rtsscom.Cconnect
Dim Reservations As rdoResultset
Set Reservations = Nothing
sql = "Select name,description,type FROM FIVEMINUTESPARAMETER where name ='BMZP'"
Success = PubsConn.GetReservation( _
sql, Reservations) '利用com组件返回一个数据集
Set FlexGrid1.DataSource = Reservations
Set Reservations = Nothing
我想问题就出在这里,去掉这句试试
Dim Reservations As New adodb.recordset
sql = "Select name,description,type FROM IVEMINUTESPARAMETER where name ='BMZP'"
with reservations
.state=adstateopen then .close
.open sql,pubsconn,adopenkeyset,adlockreadonly
end with
Set FlexGrid1.DataSource = Reservations
set reservations=nothing这样试试