cmd.ExecuteNonQueryは私が私のWinフォームでのDataGridViewを持って

Question

を追加し続け、私の接続文字列は、私は、SQL DBにデータを挿入するためのボタンがあり

dim con as new sqlconnection("Data source=" & My.Settings.sqlserver & ", " & My.Settings.sqlport & ";Network Library=DBMSSOCN;initial catalog=" & My.Settings.dbname & ";User id=" & My.Settings.Username & ";Password=" & My.Settings.Password & ";") 

です。コードは

dim cmd as new sqlcommand("insert into db(Firstname) values(@fname)") 
con.opn 
cmd.parametres.add("@fname",sqldbtype.varchar).value=txt.text 
cmd.executenonquery 
con.close 
end sub 

このコードは正常に動作しますが、DataGridViewのは/更新、私はアプリを再起動しない限り、自分自身をリフレッシュしません。だから私はそれを、このコード

Private sub btn_click 
    dim cmd as new sqlcommand("insert into db(Firstname) 
    values(@fname)") con.opn 
    `cmd.parametres.add("@fname",sqldbtype.varchar).value=txt.text 
    if cmd.executenonquery() =1 then 
    dim cmd as new sqlcommand("Select *from contacts") 
    dim adapter as new sqldataadapter 
    dim table as datatable 
    apater.fill(table) 
    dgvw.datasource=table 
    con.close 
end sub 

このコードは、コードは/がdgvwを更新しますが、私のテキストボックスに想定される問題は、私が「ABCDE」と入力リフレッシュしform_load.Thisに追加され

`

を追加しました

ように見えるSQL DBに複数のデータを挿入する「」 「AB」 「ABC」ように と（これは、DBテーブルに最初のデータを追加します）！ 何が間違っていますか？どのように私はこれを修正すべきですか？最後に、もし私がadaper.filと他のコードをcmd.executenonquery if文で削除すると、予想通りに1つのデータしかテーブルに追加されません！助けてください！

screensht：[リンク1] https://drive.google.com/open?id=0B9Q3-Og5WXqYOWFMaGRBT2tGRVk

[リンク2] https://drive.google.com/open?id=0B9Q3-Og5WXqYbEV2YUVSdW1kWkU

Answer 1

それを修正！ TypeOf関数のCtrlキーが次に ctype関数（CTRL、テキストボックス）の.text =文字列のテキストボックスである場合root.Controls ClearTextBox（CTRL） でコントロールとして各CTRLについて ます。Public Sub ClearTextBox（コントロールとしてByValルート） ： 問題は、このでした。 次のCTRL End Subの

が