システム開発 備忘録





システム開発備忘録 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()

*** *** *** *** ***
SQLサーバーのストアドプロシージャ戻り値を取得

→VB2005でのストアド起動と戻り値を取得する関数



Copyright (C) 2009- station-t.com All Rights Reserved , Link Free