データベース（文化の日）

Option Strict On

'VisualBasic2008(無料版) 

'このプログラムは、製作者しか使用できません 

'参照のみにして下さい。 

'VBヘルプより、初めてのDataベース作成～レッスン4で作れます 

'ヘルプ(H)⇒カテゴリを選択⇒データアクセス⇒DATAの格納から始めれば作れます。 

'印刷すると、30ページ位です。 

'＜内容＞ 

'データベースに格納、引き出し、修正できます。 

'データ内容を変数に格納、グラフ等で使用できます。 

Public Class Form1

    Private BusyouName As String

    Private Seiji As Integer

    Private Chibou As Integer

    Private Buryoku As Integer

    Private Heika As String

    Private Kahou As String

    Private tokugi As String



    Private Sub SangokusiBusyouBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SangokusiBusyouBindingNavigatorSaveItem.Click

        Me.Validate()

        Me.SangokusiBusyouBindingSource.EndEdit()

        Me.TableAdapterManager.UpdateAll(Me.Database2DataSet)

    End Sub



    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        If MessageBox.Show("アプリ終了", "Saveします", MessageBoxButtons.YesNo _

                           , MessageBoxIcon.Question) = Windows.Forms.DialogResult.No Then

            e.Cancel = True

        Else

            Me.Validate()

            Me.SangokusiBusyouBindingSource.EndEdit()

            Me.TableAdapterManager.UpdateAll(Me.Database2DataSet)

        End If

    End Sub



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'TODO: このコード行はデータを 'Database2DataSet.SangokusiBusyou' テーブルに読み込みます。必要に応じて移動、または削除をしてください。 

        Me.SangokusiBusyouTableAdapter.Fill(Me.Database2DataSet.SangokusiBusyou)



    End Sub



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        BusyouName = 武将名前TextBox.Text.ToString

        Seiji = CInt(政治TextBox.Text)

        Chibou = CInt(智謀TextBox.Text)

        Buryoku = CInt(武力TextBox.Text)

        Heika = 兵科TextBox.Text.ToString

        Kahou = 家宝TextBox.Text.ToString

        tokugi = 特技TextBox.ToString

        '検証 

        MessageBox.Show(Chibou.ToString)

    End Sub

End Class