ｿｽgｿｽbｿｽv > Visual Basic .NETｿｽfｿｽｿｽｿｽｿｽ > 200905 >

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEｿｽeｿｽ言ｿｽｿｽfｿｽｿｽｿｽｿｽ

ｿｽgｿｽV 2009/05/25(ｿｽｿｽ) 12:01:22

ｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽﾜゑｿｽｿｽB
VISTA(VB2008 SQLSERVER2005)ｿｽﾅプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽJｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽA
ｿｽﾋ惑ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾄ抵ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽeｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾉコｿｽ}ｿｽｿｽｿｽhｿｽ{ｿｽ^ｿｽｿｽｿｽﾆデｿｽ[ｿｽ^ｿｽOｿｽｿｽｿｽbｿｽhｿｽrｿｽｿｽｿｽ[ｿｽｿｽ¥ｿｽｿｽtｿｽｿｽ
ｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽ驍ｱｿｽﾆにゑｿｽｿｽAｿｽｿｽｿｽﾓ先売ｿｽｿｽzｿｽｿｽｿｽﾉ難ｿｽｿｽﾓ先名ｿｽｿｽ
ｿｽfｿｽ[ｿｽ^ｿｽOｿｽｿｽｿｽbｿｽhｿｽrｿｽｿｽｿｽ[ｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB

SQLｿｽfｿｽ[ｿｽ^ｿｽxｿｽ[ｿｽXｿｽﾌ型
ｿｽｿｽｿｽﾓ先売ｿｽｿｽz varchar(9) ｿｽｿｽｿｽﾓ先名 varchar(40)

ｿｽｿｽｿｽｿｽｿｽﾌ鯉ｿｽｿｽｿｽ
ｿｽｿｽｿｽﾓ先売ｿｽｿｽzｿｽZｿｽｿｽｿｽﾌカｿｽｿｽｿｽ}ｿｽﾒ集ｿｽｿｽｿｽoｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB

ｿｽｿｽｿｽﾓ先売ｿｽｿｽzｿｽｿｽnumeric(9,0)ｿｽﾉゑｿｽｿｽｿｽﾆ編集ｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽ成ｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽYｿｽﾌ関係ｿｽﾉゑｿｽ闕｡ｿｽｿｽｿｽｿｽﾌ型ｿｽﾏ更ｿｽﾍ難しｿｽｿｽｿｽﾌでゑｿｽｿｽB

ｿｽfｿｽ[ｿｽ^ｿｽeｿｽ[ｿｽuｿｽｿｽｿｽﾌ値ｿｽｿｽfｿｽ[ｿｽ^ｿｽ¥ｿｽ[ｿｽXｿｽﾉセｿｽbｿｽgｿｽｿｽｿｽｿｽOｿｽﾉ、ｿｽ^ｿｽﾏ奇ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽ
ｿｽｿｽｿｽﾄ会ｿｽｿｽｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽいｿｽｿｽﾆ考ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽAｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB

Imports System.Data.SqlClient
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Using cn As New SqlConnection(My.Settings.SqlConnectionString)
            cn.Open()
            Dim sql As String
            Dim table As New DataTable

            sql = "SELECT ｿｽｿｽｿｽﾓ先売ｿｽｿｽz,ｿｽｿｽｿｽﾓ先名 FROM ｿｽｿｽｿｽﾓ撰ｿｽ ORDER BY ｿｽｿｽｿｽﾓ先売ｿｽｿｽz"

            Dim Adapter As New SqlDataAdapter(sql, cn)
            Adapter.Fill(table)

            DataGridView1.DataSource = table

            DataGridView1.Columns(0).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
            DataGridView1.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            DataGridView1.Columns(0).DefaultCellStyle.Format = "###,###,##0"
            DataGridView1.Columns(0).Width = 120

            DataGridView1.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleLeft
            DataGridView1.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
            DataGridView1.Columns(1).Width = 200
        End Using
    End Sub
End Class

ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2009/05/25(ｿｽｿｽ) 19:14:50

ｿｽ¥ｿｽｿｽｿｽﾌみの目的ｿｽﾅゑｿｽｿｽｿｽﾎ、SQL ｿｽﾌ趣ｿｽｿｽ_ｿｽｿｽ
http://yaplog.jp/orator/archive/38
ｿｽﾌようｿｽﾉゑｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄ取得ｿｽｿｽｿｽﾄゑｿｽｿｽﾎ良ゑｿｽｿｽｿｽｿｽﾆ。


ｿｽｿｽｿｽ驍｢ｿｽﾍ、DataTable ｿｽｿｽｿｽﾉ趣ｿｽｿｽｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽB

table.Columns.Add("ｿｽz", GetType(Decimal), "CONVERT(ｿｽｿｽｿｽﾓ先売ｿｽｿｽz, System.Decimal)").SetOrdinal(0)
table.Columns("ｿｽｿｽｿｽﾓ先売ｿｽｿｽz").SetOrdinal(2)
DataGridView1.DataSource = table
DataGridView1.Columns(2).Visible = False

DataGridView1.Columns(0).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
DataGridView1.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
DataGridView1.Columns(0).DefaultCellStyle.Format = "###,###,##0"
DataGridView1.Columns(0).Width = 120

DataGridView1.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleLeft
DataGridView1.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
DataGridView1.Columns(1).Width = 200


ｿｽｿｽｿｽｿｽｿｽｿｽﾍ、Decimal ｿｽ^ｿｽﾌ暦ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ DataTable ｿｽﾉ転ｿｽﾊゑｿｽｿｽｿｽﾆゑｿｽｿｽB

Dim dummyTable As DataTable = table.Clone()
dummyTable.Columns("ｿｽｿｽｿｽﾓ先売ｿｽｿｽz").DataType = GetType(Decimal)
Using stm As New MemoryStream()
    table.WriteXml(stm)
    stm.Flush()
    stm.Seek(0, SeekOrigin.Begin)
    dummyTable.ReadXml(stm)
    stm.Seek(0, SeekOrigin.End)
    stm.Close()
End Using
DataGridView1.DataSource = dummyTable

ｿｽgｿｽV 2009/05/26(ｿｽｿｽ) 09:18:21

ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽｿｽｿｽご回答ゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽFｿｽXｿｽｿｽｿｽｿｽがゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ、ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽQｿｽﾔ目の包ｿｽｿｽ@ｿｽﾅ会ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

Created by board of various Programming Library.