[vb.net] OLEDB OleDbDataReader

보통 데이타그리드뷰에 데이타를 통으로 채우는 걸 주로 사용하는데 간혹 별도로 데이타를 밖으로 끄집어 낼일이 있다.

 

데이타베이스리더, 방식은 대충 이렇고 원하는 대로 짜집기만 하면 된다.
입력값으로 검색해서 첫번째것만 라벨에 추가하는 코드이다.

 

Dim connetionString As String
Dim cnn As OleDbConnection
Dim cmd As OleDbCommand
Dim sql As String
connetionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db\tfilemon.mdb;"
cnn = New OleDbConnection(connetionString)
cnn.Open()

 

sql = "Select value1, value2 from exp_count where value2 = '" & TextBox10.Text & "'"
cmd = New OleDbCommand(sql, cnn)

Dim wrd As OleDbDataReader = cmd.ExecuteReader()

Dim darr As List(Of String) = New List(Of String)
Label8.Text = ""

 

Do While wrd.Read()
darr.Add(wrd.GetString(0))
Loop

darr.Sort()
darr.Reverse()

Dim i As Integer = 0

For Each str As String In darr
i = i + 1
Label8.Text = Label8.Text & str & vbNewLine
If i = 15 Then
Exit For
End If
Next

cnn.Close()