'vb.net'에 해당되는 글 22건

(vb.net) DataSet, DataReader

vb.net
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



Name
Password
Homepage
Secret

(vb.net) KeyDown Event

vb.net
If e.KeyCode = Keys.Escape Then
' ESC를 눌렀을 때 
 
ElseIf e.KeyCode = Keys.Enter Then
' Enter를 눌렀을 때
 
End If

Name
Password
Homepage
Secret

(vb.net) DataAdapter, DataSet, DataTable, DataRow 설명

vb.net

1) 데이터 어답터

    -> 보통 SQL문을 사용하게 되는데,

        DB에서 가져오려는 데이타 모음을 정의 한다고 생각 하면 될 것 같습니다

        이 데이타 모음에는 사용하는 SQL 문에 따라서 여러형태가 될 수 있겠죠,

 

        - Dim adapter = New SqlDataAdapter("select * from Test", Conn)  

        - Dim adapter = New SqlDataAdapter("select 학번 from Test", Conn)  

 

        위 예에서 처럼 특정 테이블을 가져오거나, 특정 컬럼만을 가져 올 수도 있고,

        또는, 테이블 조인된 형태의 특정 컬럼들의 조합인 데이타 모음이 될수도 있는 거구요 

        아무튼 이러한 데이타 모음을 정의 해서

        실제 DBMS와 데이타셋 과의 중계 역활을 한다고(아답터 라는 말에서 의미하듯이)

        생각 하시면 쉽게 이해 되리라 생각 합니다.

 

2) 데이타셋

    -> 데이터 아답터를 이용해서 가져오는 데이타 모음(Set)을 보관하는 것이라 생각하시면 됩니다.

        데이타셋은 데이타어답터에서 가져오는 여러 형태의 데이타 모음을 보관하는 것이기 때문에

        데이타셋 역시, 여러 형태로 데이타를 보관할 수 있는 것 입니다.

        특정 테이블을 보관 할 수 도 있고, 특정 테이블에 특정 컬럼을 보관 할 수 도 있게 되는 거죠,

        또한, 테이블 조인된 형태의 데이타 모음을 보관 할 수도 있다는 것 입니다.

        데이타셋의 특징은 여러가지 데이타 모음을 한 데이타셋에서 함께 보관할 수 도 있다는 것 입니다.

 

        Dim ds = New DataSet()

        Dim adapter = New SqlDataAdapter("select * from Test", Conn)  

        adapter.Fill(ds, "PbsInf") 

 

        adapter = SqlDataAdapter("select 학번 from Test", Conn)  

        adapter.Fill(ds, "hakbun") 

 

        이런식으로 처리 한다면

        ds 라는 데이타셋에는 "PbsInf"라는 데이타모음과 "hakbun"이라는 데이타 모음이 함께 있게 되는 거죠

        여기에서 "PbsInf" 나 "hakbun"을 데이타테이블이라 할 수 있습니다.

 

        위와 같이 데이타셋에는 여러 데이타 모음을 보관하게 됩니다.

        그것이 테이블이 될지 조인된 컬럼들의 모음이 될지는 아답터에서 지정한 형태가 될거구요

 

 

3) 데이타테이블

    -> 데이터셋에서 구성(보관) 되어 있는 "PbsInf"나 "hakbun" 과 같은 데이타 모음들 중에서

        특정 조건을주거나, 해당 데이타모음을 지정해서 데이타테이블로 구성할 수 있습니다.

 

        Dim dt As DataTable = ds.Tables.Add("PbsInf")

        이것은 "PbsInf" 에서 검색된 내용을 

        필터링 해서 데이타테이블을 만들수도 있습니다. 

        즉, 데이타셋에서 여러 데이타 모음 중에서 필요한 데이타 모음을 선택해서,

        데이타테이블을 만드는 것이 될 것 입니다.

 

4) 데이타로우

   -> 데이타테이블에서 특정 Row를 뽑아 사용할 수 있습니다.

        

       Dim cRow As DataRow() = dt.rows(2)

 

       위와 같이 특정 Row를 선택해 온다는 거죠

 

       다음으로는 "조건을 지정해서"(Where절을 사용한다고 생각하시면)

       데이타테이블에서 특정 조건의 Row들을 뽑아 올수 도 있다는 것 입니다.

 

       Dim dr As DataRow() = dt.Select("국어점수 > 50", "학번 ASC", DataViewRowState.CurrentRows)

       위와 같이 특정과목 점수, 학번 기준 정렬 등 검색 조건과 정렬 기준을 첨가 해서

       데이타 로우를 구성할 수 있다는 거죠




추가 참고 

http://msdn.microsoft.com/ko-kr/library/ms973217.aspx
 


 
Name
Password
Homepage
Secret

(vb.net) Format()

vb.net
Dim TestDateTime As Date = #1/27/2001 5:04:23 PM#
Dim TestStr As String 
' Returns current system time in the system-defined long time format.
TestStr = Format(Now(), "Long Time")
' Returns current system date in the system-defined long date format.
TestStr = Format(Now(), "Long Date")
' Also returns current system date in the system-defined long date  
' format, using the single letter code for the format.
TestStr = Format(Now(), "D")

' Returns the value of TestDateTime in user-defined date/time formats. 
' Returns "5:4:23".
TestStr = Format(TestDateTime, "h:m:s")
' Returns "05:04:23 PM".
TestStr = Format(TestDateTime, "hh:mm:ss tt")
' Returns "Saturday, Jan 27 2001".
TestStr = Format(TestDateTime, "dddd, MMM d yyyy")
' Returns "17:04:23".
TestStr = Format(TestDateTime, "HH:mm:ss")
' Returns "23".
TestStr = Format(23)

' User-defined numeric formats. 
' Returns "5,459.40".
TestStr = Format(5459.4, "##,##0.00")
' Returns "334.90".
TestStr = Format(334.9, "###0.00")
' Returns "500.00%".
TestStr = Format(5, "0.00%")참고

MessageBox.Show(String.Format("{0:D4}", 23))
{0:D4} 4글자 길이로 23을 제외하고 0으로 채운다 -> "0023"

참고 : http://idunno.org/archive/2004/07/14/122.aspx
Name
Password
Homepage
Secret

(vb.net) MS-SQL 연결

vb.net

Imports System.Data.SqlClient
Imports System.Data
Public Class Form1
    Dim conn As SqlConnection

    Dim str As String = String.Format("Data Source=서버이름; Initial Catalog=DB이름;Integrated Security=False; uid=아이디; pwd=패스워드")

 

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim csds As New DataSet
        Dim csda As New SqlDataAdapter
        Dim itmCur As ListViewItem
        Try
            conn = New SqlConnection(str)
            conn.Open()
        Catch ex As Exception
            MsgBox(ex.Message.ToString())
        End Try
        
        Dim strsql As String = "select * from Test"
        csda.SelectCommand = New SqlCommand(strsql, conn)
        csda.Fill(csds)

        For Each ds As DataRow In csds.Tables(0).Rows
            itmCur = New ListViewItem
            itmCur.Text = ds.Item("id").ToString()
            itmCur.SubItems.Add(ds.Item("content").ToString())
            ListView1.Items.Add(itmCur)
        Next

    End Sub
End Class

Name
Password
Homepage
Secret