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

view plainprint?

1. Using connection As New SqlClient.SqlConnection(DB設定)  
2. Dim command As SqlClient.SqlCommand = connection.CreateCommand()  
3. connection.Open()  
4. command.Transaction = connection.BeginTransaction()  
5.   
6. Try  
7. '---------------------------------------------------------------------  
8. 'tbl_Aの処理  
9. '---------------------------------------------------------------------  
10.  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)  
11.  command.CommandText = strSQL  
12.  command.ExecuteNonQuery()  
13. '---------------------------------------------------------------------  
14. 'tbl_Bの処理  
15. '---------------------------------------------------------------------  
16. Dim expirTime As DateTime = Now.AddDays(日数)  
17.  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)  
18.  command.ExecuteNonQuery()  
19.  command.Transaction.Commit()  
20.   
21. Catch ex As Exception  
22.  command.Transaction.Rollback()  
23.  Return AAAAA  
24. End Try  
25. End Using  

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

関連記事:

サンプル

• google.feeds.FeedControlクラスですが
• サンプルについてですが・・・
• チョイはまり
• 文字コードのチェック
• 山椒はぴりりと
• XML-RPCのPING送信ですが

VB.NET

• 一気にコメントを追加した
• VB.NETでのDBアクセスは
• VB.NETのXMLコメントをHTML形式に変換 - 手順関連の記事
• VB.NETのXMLコメントをHTML形式に変換 - Sandcastle Help File Builder
• VB.NETのXMLコメントをHTML形式に変換