データベース（文化の日） への返答

投稿で使用できる特殊コードの説明。(別タブで開きます。)
本名は入力しないようにしましょう。
投稿した後で削除するときに使うパスワードです。返答があった後は削除できません。
返答する人が目安にします。相手が小学生か社会人かで返答の仕方も変わります。
最初の投稿が質問の場合、質問者が解決時にチェックしてください。(以降も追加書き込み・返信は可能です。)
※「過去ログ」について書くときはその過去ログのURLも書いてください。

以下の返答は逆順(新しい順)に並んでいます。

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

修得。
0