VB.NETでのDBアクセスは(INSERT,UPDATE)

Using connection As New SqlClient.SqlConnection(DB設定)
Dim command As SqlClient.SqlCommand = connection.CreateCommand()
connection.Open()
command.Transaction = connection.BeginTransaction()

Try
'---------------------------------------------------------------------
'tbl_Aの処理
'---------------------------------------------------------------------
 strSQL = String.Format("UPDATE tbl_A SET status=1,  UserID='{0}', RegTime='{1:yyyy/MM/dd HH:mm:ss}' WHERE ACode='{2}'", userID, Now, a)
 command.CommandText = strSQL
 command.ExecuteNonQuery()
'---------------------------------------------------------------------
'tbl_Bの処理
'---------------------------------------------------------------------
Dim expirTime As DateTime = Now.AddDays(日数)
 command.CommandText = String.Format("INSERT INTO tbl_B(EmailAddr, UserID, RegistTime, ExpirTime) VALUES ('{0}', '{1}', '{2:yyyy/MM/dd HH:mm:ss}', '{3:yyyy/MM/dd HH:mm:ss}')", email, userID, Now, expirTime)
 command.ExecuteNonQuery()
 command.Transaction.Commit()

Catch ex As Exception
 command.Transaction.Rollback()
 Return AAAAA
End Try
End Using

関連記事: