Private Sub CmdSave_Click()
'此处从数据库表中读取气象信息
'建立数据库连接
Dim connDB As New ADODB.Connection
Dim recSet As New ADODB.Recordset
Dim connStr As String
'打开数据库
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Fync\Data\FySjk.mdb;Persist Security Info=False"
connDB.Open connStr
'获取查询结果
recSet.Open "Select top 1 * from Proce Order by Time", connDB, adOpenDynamic, adLockOptimistic
'添加一条空白记录
recSet.AddNew
'给当前记录赋值
recSet.Fields("Time") = CDate(DIPDate.Vaule & " " & Format(DIPTime.Value, "HH:MM:SS"))
recSet.Fields("SoilID") = Me.CmbSoilID.Text **CmbSoilID ** 出错
recSet.Fields("Action") = IIf(Me.OptOpen.Value = True, "开阀", "关阀")
'更新数据库
recSet.Update
'关闭数据库
recSet.Close
'关闭数据库连接
connDB.Close
Call DataEnvironment1.rsCommandProce.Update
DataGrid1.Refresh
End Sub
