Private Sub cmd_Search_Click()
strSql = \"select* from WENDU where 1=0\"
Set Rs = New ADODB.Recordset
Rs.CursorLocation = adUseClient
Rs.Open strSql, Db, adOpenKeyset, adLockReadOnly
If Rs.RecordCount1 Then
MsgBox (\"数据库中没有数据!\")
Exit Sub
End If
Set DGrid.DataSource = Rs
DGrid.Refresh
End Sub
\'存入数据库中---------------------------------------------
Sub Data_save(sinTemp As Single)
Set Rs = New ADODB.Recordset
With Rs
.Open \"select * from WENDU\", Db, 1, 3
.AddNew
\'新增一条记录
.Fields(\"temp\") = sinTemp
.Fields(\"time\") = DateTime.Now.ToString()
.Update
End With
\'完成后关闭对象
Rs.Close
Exit Sub
err:
errString = \"Error # \" \" Persist Security Info=False\"
\'
\'下面的语句是连接sqlserver数据库的.
Set Db = New ADODB.Connection
Db.Open iConcstr
frmmain.Show
Exit Sub
err:
MsgBox (\"数据库访问失败,或者数据库不存在,请选择有效的数据库文件!\")
End Sub |