vb中combo1控件怎么和数据库中的某一字段连接起来?
2个回答
展开全部
Private Cmb_load()
'假如数据库已连接,并取得一个Rs的RecordCount值,把该声明的变量声明了
With rs
If .RecordCount > 0 Then
.MoveFirst
Combo1.Clear
For I = 1 To .RecordCount
Combo1.AddItem .Fields(0).Value '.Fields() 括号中可以是任何一个字段,可以用数字也可以直接用字段名
.MoveNext
Next
Combo1.ListIndex = 0
End If
.Close
End With
End Sub
'假如数据库已连接,并取得一个Rs的RecordCount值,把该声明的变量声明了
With rs
If .RecordCount > 0 Then
.MoveFirst
Combo1.Clear
For I = 1 To .RecordCount
Combo1.AddItem .Fields(0).Value '.Fields() 括号中可以是任何一个字段,可以用数字也可以直接用字段名
.MoveNext
Next
Combo1.ListIndex = 0
End If
.Close
End With
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询