Private Sub acess() Dim strcnn As String Dim i As Integer Dim SP As String '测有无“D” strcnn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=e:\调试程序\数据库29.mdb;" Set cnn = New ADODB.Connection Set rs = New ADODB.Recordset cnn.CursorLocation = adUseClient cnn.Open strcnn '**************************************************** Set rs.ActiveConnection = cnn rs.LockType = adLockOptimistic rs.CursorType = adOpenKeyset strquery = "select * from Parameter" rs.Open strquery If rs.RecordCount > 0 Then n = 1 Do While rs.EOF = False '********************判断每个数是否为阿拉伯数********* SP = "" For i = 1 To Len(Trim(rs.Fields(1))) Select Case Mid((Trim(rs.Fields(1))), i, 1) Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9" SP = SP & Mid((Trim(rs.Fields(1))), i, 1) End Select Next If Mid((Trim(rs.Fields(1))), Len(Trim(rs.Fields(1))), 1) = "D" Then Combo1.AddItem (SP & "D") Else Combo1.AddItem SP n = n + 1 rs.MoveNext Loop End If rs.Close
时间: 2023-08-22 15:05:41 浏览: 54
这段代码的作用是从一个名为“数据库29.mdb”的数据库文件中读取“Parameter”表中的数据,并将表中每一行的第1个字段(rs.Fields(1))中的数字提取出来,然后将这些数字添加到名为Combo1的组合框控件中。如果这个数字后面跟着一个大写字母“D”,则将“D”一起添加到组合框中。最后关闭记录集(rs.Close)。同时,这段代码还对数字的提取进行了一些处理,排除了其中的非数字字符。