关于dbcombo1与dblist1与data1的联接

learn_vb 2000-07-27 08:11:00

Private Sub DBCombo1_Change()
Data2.RecordSource = "select huanyue_2j from huanyue_2j where huanyue_id='" & DBCombo1.Text & " ' "
'Data2.Refresh
Set DBList1.RowSource = Data2
Set DBList1.ListField = Data2.Recordset.Fields(0)

End Sub'出错

...全文

89 1 打赏收藏转发到动态举报

写回复

用AI写文章

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

czh918 2000-07-28

打赏
举报

Set DBList1.ListField = Data2.Recordset.Fields(0)
这名好象不要set

在dbcombo、dblist、datacombo、datalist中用以下方式：查询Private Sub cmdserch_Click()Dim x As String定义查找方式DBList1.MatchEntry = dblBasicMatchingx = InputBox("请输入要查询的姓名", "查询", DBList1....

一、单选题1．要使用数据控件返回数据库中记录集，则需设置 ________属性。A)ConnectB)DatabaseNameC)RecordSourceD)RecordType2．数据控件的Reposition事件发生在 ________。A)移动记录指针前B)修改记录指针前C)...

（1）要使绑定控件能通过数据控件Ｄata1连接到数据库上，必须设置控件的_____属性为______，要使绑定控件能与有效的字段建立联系，则须设置控件的_____属性。（2）如果数据控件连接的是单表数据库，则______

　ComponentOne Studio ActiveX Edition 目前包括：True DBGrid Pro、VSFlexGrid Pro、VSVIEW Classic Edition、VSVIEW Reporting、Chart、WebChart、Query、True DataControl、True DBInput Pro、True DBList Pro、...

只要用了data1.recordset.addnew,就会立刻创建出一条新的空白记录等你填。例下： Private Sub Command1_Click() rp = MsgBox("你要添加记录吗？", vbOKCancel, "添加记录") If rp = vbOK Then Text1.SetFocus 等...

VB基础类

7,762

社区成员

197,608

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章