VB6.0中,ComboBox控件显示某数据字段的最后10组数据
比如我有数据库,设置成ODBC形式,现在要打开Data表中的字段1,不过只想显示最后10组数据,并且在下拉表中,排序从最后1组开始往上显示。我知道显示所有数据的程序:Di...
比如我有数据库,设置成ODBC形式,现在要打开Data表中的字段1,不过只想显示最后10组数据,并且在下拉表中,排序从最后1组开始往上显示。
我知道显示所有数据的程序:
Dim con As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim sql As String
Dim conn As String
con.Open "DSN=三维"
sql = "select 唯一标识 from Data"
rst.Open sql, con, adOpenKeyset, adLockBatchOptimistic
Combo1.Clear
'第一种写法:此程序可显示所有本字段数据
' Do While Not rst.EOF
' Combo1.AddItem (Trim(rst(0)))
' rst.MoveNext
' Loop
'第二种写法:只显示最后10组数据,且数据从最后1组往上显示
????????
rst.Close
con.Close
谢谢您的解答,应该是对的,只是我删除了一组数据后,在此处没有跟着更新,还保留着没删除数据前的那行,必须要重新启动系统才会更新到。 展开
我知道显示所有数据的程序:
Dim con As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim sql As String
Dim conn As String
con.Open "DSN=三维"
sql = "select 唯一标识 from Data"
rst.Open sql, con, adOpenKeyset, adLockBatchOptimistic
Combo1.Clear
'第一种写法:此程序可显示所有本字段数据
' Do While Not rst.EOF
' Combo1.AddItem (Trim(rst(0)))
' rst.MoveNext
' Loop
'第二种写法:只显示最后10组数据,且数据从最后1组往上显示
????????
rst.Close
con.Close
谢谢您的解答,应该是对的,只是我删除了一组数据后,在此处没有跟着更新,还保留着没删除数据前的那行,必须要重新启动系统才会更新到。 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询