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
