データベース(文化の日)

タグの編集
投稿者 緋竜  (小学生) 投稿日時 2008/11/3 14:46:18
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.ObjectByVal 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 ObjectByVal 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.ObjectByVal 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.ObjectByVal 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

修得。
投稿者   (その他) 投稿日時 2008/11/4 07:37:32
ここはお前のメモ張じゃねぇ。
そろそろアレだからアレしてくんない。
投稿者 緋竜  (小学生) 投稿日時 2008/11/4 07:56:56
ん?なんだ、馬の骨か・・(苦笑)
投稿者 緋竜  (小学生) 投稿日時 2008/11/4 08:13:32
前から言ってるだろ。
緋竜の書き込みが、1行でも消されたら、そこには現れないとな。
消してみれば?
投稿者 緋竜  (小学生) 投稿日時 2008/11/5 11:14:52
あげ。