1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
| Dim connection As SqlConnection = New SqlConnection(connectString)
connection.Open()
If connection.State = ConnectionState.Open Then
Dim command As SqlCommand = New SqlCommand("INSERT INTO T_E_EXPOSURE_EXP (EXP_ID, EXP_BATCH_TYPE, EXP_DATE, EXP_JOB_NAME, EXP_LAYER_ID, EXP_COMBINED_MARK_IMAGE_EXPOSURE) VALUES (7, @batch_type, @date, @jobname, @layer_id, @mark)", connection)
With command.Parameters
.Add(New SqlParameter("@batch_type", SqlDbType.VarChar))
.Add(New SqlParameter("@date", SqlDbType.DateTime))
.Add(New SqlParameter("@jobname", SqlDbType.VarChar))
.Add(New SqlParameter("@layer_id", SqlDbType.VarChar))
.Add(New SqlParameter("@mark", SqlDbType.VarChar))
End With
With command
.Parameters("@batch_type").Value = batchType
.Parameters("@date").Value = Date.ParseExact(dateReport, "MM/dd/yyyy", Nothing)
.Parameters("@jobname").Value = jobName
.Parameters("@layer_id").Value = layerID
.Parameters("@mark").Value = combinedMarkImageExposure
End With
'Execution
command.ExecuteNonQuery()
connection.Close()
Else
MsgBox("Server connection failure ", MsgBoxStyle.OkOnly, "Status")
End If |
Partager