본문 바로가기
카테고리 없음

DB접속 후 데이터 불러들이기

by 호야호잇 2018. 3. 16.

            Dim DBConn As SqlConnection

            DBConn = New SqlConnection(dbstring)

            DBConn.Open()

            Dim mySqlCommAND As SqlCommand

            Dim QueryString As String

            QueryString = "select top 20  유형1, 유형2, 파일명, 예비1 from TB_U_UnitECT order by 예비1 desc"

            mySqlCommAND = New SqlCommand(QueryString, DBConn)

            Dim DBread As SqlDataReader = mySqlCommAND.ExecuteReader()


            ListBox6.Items.Clear()

            While (DBread.Read())

                ListBox6.Items.Add("●" & DBread.Item("유형2") & Space(100) & _

                                   DBread.Item("유형1") & Space(100) & _

                                   DBread.Item("파일명") & Space(100) & _

                                   DBread.Item("예비1"))

            End While


            DBread.Close()

            mySqlCommAND.Dispose()

            DBConn.Close()