VB与SQL2005的一些操作

Private Sub AddInfra()

    With Adodc1

   .RecordSource = "select * from t_Infra_red"
            .Recordset.AddNew
            .Recordset.Fields("Device_id") = 2
           .Recordset.Fields("Dtime") = Date + Time
            .Recordset.Fields("Infra") = infra

           .Recordset.Update
   End With

End Sub
Private Sub AddAlc()

    With Adodc2

    .RecordSource = "select * from t_Alcohol"
            .Recordset.AddNew
            .Recordset.Fields("Device_id") = 3
            .Recordset.Fields("Dtime") = Date + Time
            .Recordset.Fields("Alcohol") = alc

            .Recordset.Update
    End With

End Sub
Private Sub AddPho()
    With Adodc3

    .RecordSource = "select * from t_Photosensitive"
            .Recordset.AddNew
           .Recordset.Fields("Device_id") = 4
           .Recordset.Fields("Dtime") = Date + Time
           .Recordset.Fields("Photosensitive") = pho

            .Recordset.Update
    End With

End Sub

Private Sub AddTH()
    With Adodc4

    .RecordSource = "select * from t_TemHum"
            .Recordset.AddNew
            .Recordset.Fields("Device_id") = 5
            .Recordset.Fields("Dtime") = Date + Time
            .Recordset.Fields("Temperature") = tem
            .Recordset.Fields("Humidity") = hum
            .Recordset.Update
    End With

End Sub
Private Sub AddUlt()

    With Adodc5

    .RecordSource = "select * from t_Ultrasonic_wave"
            .Recordset.AddNew
           .Recordset.Fields("Device_id") = 6
            .Recordset.Fields("Dtime") = Date + Time
           .Recordset.Fields("Ultrasonic") = ult

            .Recordset.Update
   End With

End Sub

 If infra <> "" Then
        Call Picture2_Click
    ElseIf alc <> "" Then
        Call Picture3_Click
    ElseIf pho <> "" Then
        Call Picture4_Click
    ElseIf th <> "" Then
        Call Picture5_Click
    ElseIf ult <> "" Then
        Call Picture6_Click
    End If