form2查询.txt

利用VB6.0写的应用程序

Dim cn As ADODB.Connection
   Dim rs As ADODB.Recordset

Private Sub Form_Load()
   Dim i As Integer
   Dim s, r As Single

   Set cn = New ADODB.Connection
   cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Persist Security Info=False;Data Source=mymdb.mdb"
      
   Set rs = New ADODB.Recordset
   rs.CursorType = adOpenKeyset
   rs.LockType = adLockOptimistic
   rs.Open "select * from 历史", cn
   
   rs.MoveFirst
   s = 0
   For i = 1 To rs.RecordCount
       strl = rs.Fields("湿度")
       s = s + Val(strl)
       rs.MoveNext
       If rs.EOF = True Then rs.MoveFirst
   Next
   r = s / 30
   Form2.Text1.Text = Str(r)
   If r < 10 Then Form1.Text4.Text = "过干"
   If 10 <= r < 20 Then Form1.Text4.Text = "干燥"
   If 20 <= r < 50 Then Form1.Text4.Text = "适宜"
   If 50 <= r < 90 Then Form1.Text4.Text = "湿润"
   If r >= 90 Then Form1.Text4.Text = "过湿"
   rs.Close
End Sub