システム開発備忘録 Visual Basic データベース操作関連の備忘録

データベースとデータセット
SQLサーバーへの接続と読込み(SQL Server 2005)
'宣言
Dim strConnectionString As String = _
"Data Source=SERVER;Initial Catalog=DATABASE;User Id=USER;Password=PASS;" '接続文字列
Dim strSQL As String
Dim SqlConn As New System.Data.SqlClient.SqlConnection
Dim objDR As IDataReader = Nothing
Dim objDT As New DataTable
'DBに接続する
SqlConn = New System.Data.SqlClient.SqlConnection(strConnectionString)
'SQLの結果をDataReader に読込む
strSQL = "SELECT * FROM TABLE1"
objDR = New System.Data.SqlClient.SqlCommand(strSQL, SqlConn).ExecuteReader()
'レコードが存在するかの判定
If objDR.Read() Then
'1行目のレコードの読込み
Dim strValue = objDR("Col1")
End If
'DataReader から DataTable にロードする
objDT.Load(objDR)
objDR.Close()
SQLサーバーへの書込み(SQL Server 2005)
'宣言
Dim objTrn As System.Data.SqlClient.SqlTransaction
Dim objSC As System.Data.IDbCommand = Nothing
'トランザクション開始 ^^^^^^^^^^
objTrn = SqlConn.BeginTransaction()
objSC = SqlConn.CreateCommand
objSC.Transaction = objTrn
strSQL = "UPDATE TABLE1 SET COL1 = '0'"
'更新SQL発行
objSC.CommandText = strSQL
objSC.ExecuteNonQuery()
'トランザクション終了 ^^^^^^^^^^
objTrn.Commit()
'ロールバック ^^^^^^^^^^
objTrn.Rollback()

|