vb.net combobox用法
发布网友
共2个回答
热心网友
Dim ConnTemp As New ADODB.Connection
Dim RSTemp As New ADODB.Recordset
ConnTemp.open "DATA" 'DATA --- 数据源名称
RSTemp.Open "Select * from Model Order By Model", ConnTemp, adOpenStatic, adLockReadOnly
MaxNumber = RSTemp.RecordCount
For i = 1 To MaxNumber
COMBOBOX.AddItem RSTemp.Fields(0).Value
RSTemp.MoveNext
Next i
RSTemp.Close
热心网友
B.Connection
Dim RSTemp As New ADODB.Recordset
ConnTemp.open "DATA" 'DATA --- 数据源名称
RSTemp.Open "Select * from Model Order By Model", ConnTemp, adOpenStatic, adLockReadOnly
MaxNumber = RSTemp.RecordCount
For i = 1 To MaxNumber
COMBOBOX.AddItem RSTemp.Fields(0).Value
RSTemp.MoveNext
Next i
RSTemp.Close
