蔡鸟请教

Virus2003 2003-03-24 03:11:17
请问怎么将COMBO控件和SQL或者是ACCESS的数据库连接起来,要使用到那些控件??最好是由例程的。

谢谢
...全文
6 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
lihonggen0 2003-03-24
Do Until Rs.EOF
Combo1.AddItem Rs.Fields("FirstName")
Rs.MoveNext
Loop

打开一个记录集直接添加到combo中
回复
lihonggen0 2003-03-24
Private Sub getData()
Dim CN As New ADODB.Connection '定义数据库的连接存放数据和代码
Dim Rs As New ADODB.Recordset
CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
CN.Open

Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic

Do Until Rs.EOF
Combo1.AddItem Rs.Fields("FirstName")
Rs.MoveNext
Loop
CN.Close

End Sub
回复
pcwak 2003-03-24
用ADODC控件
回复
相关推荐
发帖

1187

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2003-03-24 03:11
社区公告
暂无公告