본문으로 바로가기

(vb.net) DataSet, DataReader

category vb.net 2014. 11. 7. 00:26
DataSet  - 한번 열면 여러번 사용가능

'변수 선언
Dim dSet As New DataSet
Dim cmd As New SqlCommand(Me.txtSENDQURY.Text, adoCon)
Dim sqlAdapter As New SqlDataAdapter

'DB에 쿼리전송
sqlAdapter = New SqlDataAdapter(cmd)


'DataSet에 데이터 채우기
sqlAdapter.Fill(dSet, "MyTable")



DataReader - 한번 열면 한번만 사용가능

'변수 선언
Dim cmd As New SqlCommand(Me.txtSENDQURY.Text, adoCon)
Dim dr As SqlDataReader = cmd.ExecuteReader()
Dim sqlAdapter As New SqlDataAdapter


'DB에 쿼리 전송
sqlAdapter = New SqlDataAdapter(cmd)

'전송받은 데이터 메세지박스로 출력
If (dr.Read) Then
     MsgBox(dr.Item(0).ToString)
End If