Visual Basic DB - Tj's PG wiki

DataReader

Dim WobjRdr As SqlDataReader = Nothing
Try
     Pobj_Cmd.CommandText = "SELECT * FROM table;"
     Pobj_Cmd.Parameters.Clear()
     Pobj_Cmd.Parameters.AddWithValue("@CD", "1234")
 
     WobjRdr = Pobj_Cmd.ExecuteReader()
     WobjRdr.Read()
 
     If (WobjRdr.HasRows = True) Then
          Me.lbl.Text = WobjRdr("name").ToString
          Me.lbl.Text = WobjRdr.GetString(0)
     End If
Catch ex As Exception
Finally
     If Not (WobjRdr Is Nothing) Then
          WobjRdr.Close()
          WobjRdr = Nothing
     End If
End Try

Parameters の削除

Pobj_Cmd.Parameters.Clear()
Pobj_Cmd.Parameters.AddWithValue("@CD", "12345")
Pobj_Cmd.Parameters.Remove(Pobj_Cmd.Parameters("@区分"))
Pobj_Cmd.Parameters.AddWithValue("@CD", "12345")

Data Set

Dim wobj_DataSet = New DataSet
Dim Pobj_Con As New SqlClient.SqlConnection()
Dim wobj_dAdp As SqlClient.SqlDataAdapter
Dim wobj_CmdBld As New SqlClient.SqlCommandBuilder
Dim wDRow As DataRow
Dim Pstr_SQL As String = "SELECT * FROM -"
 
Pobj_Con.ConnectionString = ""
Pobj_Con.Open()
wobj_dAdp = New SqlClient.SqlDataAdapter(Pstr_SQL, Pobj_Con)
'パラメーターのクリア
wobj_dAdp.SelectCommand.Parameters.Clear()
'パラメーターのセット
wobj_dAdp.SelectCommand.Parameters.AddWithValue("@CD", "001")
'データセットの取得
wobj_dAdp.Fill(wobj_DataSet, "WKT")
'データセットの合計数を取得
Dim TotalRow As Integer = wobj_DataSet.Tables("WKT").Rows.Count
Dim TotalRow2 As Integer = wobj_DataSet.Tables("WKT").Select("FLG = 1").Length
For Each wDRow In wobj_DataSet.Tables("WKT").Select("FLG = 1")
     'データセットの値を取得
      wDRow("Field").ToString()
 
     'データセットの値を編集
      wDRow("Field") = "012"
Next
' データセットの編集内容をテーブルにアップデート
wobj_CmdBld = New SqlClient.SqlCommandBuilder(wobj_dAdp)
wobj_dAdp.Update(wobj_DataSet, "WKT")

Data Table

Dim Pobj_Con As New SqlClient.SqlConnection()
Dim wobj_DTable = New DataTable
Dim wobj_dAdp As System.Data.SqlClient.SqlDataAdapter
Dim Pstr_SQL As String = "SELECT * FROM -"
 
Pobj_Con.ConnectionString = ""
Pobj_Con.Open()
 
wobj_dAdp = New SqlClient.SqlDataAdapter(Pstr_SQL, Pobj_Con)
 
' データテーブルの取得
wobj_dAdp.Fill(wobj_DTable)

DataAdapter Update

Dim Pobj_DTable As New DataTable
Dim Pobj_dAdp As SqlDataAdapter
'SELECT Command 時 PrimaryKey を設定すること
Pstr_SQL = "SELECT * FROM ---"
Pobj_dAdp = New SqlDataAdapter(Pstr_SQL, Pobj_Con)
Pobj_dAdp.Fill(Pobj_DTable)
' DataTable 編集
Dim CmdBld As SqlClient.SqlCommandBuilder
CmdBld = New SqlClient.SqlCommandBuilder(Pobj_dAdp)
Pobj_dAdp.Update(Pobj_DTable)