cooly,刷新语句加了后,就说“属性使用无效”了

sandyhao 2003-05-08 08:48:26
Private Sub Command3_Click()
With Adodc1
.CommandType = adCmdText
.RecordSource = "select BasePrice from 火车运营价格基本表 where arrivestation='" & Combo2.Text & "'"
Text1.Text = .Recordset.Fields("BasePrice")
.Recordset .Refresh

End With

End Sub
...全文
8 点赞 收藏 回复
写回复
回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复

还没有回复,快来抢沙发~

相关推荐
发帖
VB基础类
创建于2007-09-28

7492

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-05-08 08:48
社区公告
暂无公告