VB与SQL2005的一些 *** 作

概述Private Sub AddInfra()     With Adodc1    .RecordSource = "select * from t_Infra_red"             .Recordset.AddNew             .Recordset.Fields("Device_id") = 2            .Recordset.Fields("Dtime")

PrivateSubAddInfra()

WithAdodc1

.RecordSource="select*fromt_Infra_red"
.Recordset.AddNew
.Recordset.FIElds("Device_ID")=2
.Recordset.FIElds("Dtime")=Date+Time
.Recordset.FIElds("Infra")=infra

.Recordset.Update
EnDWith

EndSub
PrivateSubAddAlc()

WithAdodc2

.RecordSource="select*fromt_Alcohol"
.Recordset.AddNew
.Recordset.FIElds("Device_ID")=3
.Recordset.FIElds("Dtime")=Date+Time
.Recordset.FIElds("Alcohol")=alc

.Recordset.Update
EnDWith

EndSub
PrivateSubAddPho()
WithAdodc3

.RecordSource="select*fromt_Photosensitive"
.Recordset.AddNew
.Recordset.FIElds("Device_ID")=4
.Recordset.FIElds("Dtime")=Date+Time
.Recordset.FIElds("Photosensitive")=pho

.Recordset.Update
EnDWith

EndSub

PrivateSubAddTH()
WithAdodc4

.RecordSource="select*fromt_TemHum"
.Recordset.AddNew
.Recordset.FIElds("Device_ID")=5
.Recordset.FIElds("Dtime")=Date+Time
.Recordset.FIElds("Temperature")=tem
.Recordset.FIElds("HumIDity")=hum
.Recordset.Update
EnDWith

EndSub
PrivateSubAddult()

WithAdodc5

.RecordSource="select*fromt_ultrasonic_wave"
.Recordset.AddNew
.Recordset.FIElds("Device_ID")=6
.Recordset.FIElds("Dtime")=Date+Time
.Recordset.FIElds("ultrasonic")=ult

.Recordset.Update
EnDWith

EndSub

Ifinfra<>""ThenCallPicture2_ClickElseIfalc<>""ThenCallPicture3_ClickElseIfpho<>""ThenCallPicture4_ClickElseIfth<>""ThenCallPicture5_ClickElseIfult<>""ThenCallPicture6_ClickEndIf

总结

以上是内存溢出为你收集整理的VB与SQL2005的一些 *** 作全部内容，希望文章能够帮你解决VB与SQL2005的一些 *** 作所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。