QA@IT

テキストボックスの値とラジオボタン1~3のいずれかをデータテーブルへバインドしたい

1638 PV

vs2010expressを使用し宛名印刷プログラムを作っております。

Windowsフォーム5で取引先名を検索、ヒットした取引先名の取引先コードをフォーム3のテキストボックス(以下txtb)1に表示させます。
txtb2に印刷枚数を入力し、ラジオボタン1から3(敬称)のいずれかを選択します。
(mdbファイルに印刷枚数や敬称のテーブルはありませんのでselect構文列を設け、値を0としています。)

ボタン9をクリックして以下を行っています。
取引先コードを主キーにして取引先名、住所、郵便番号をデータテーブル(以下DT)に引き渡しているのですが、
上記の情報(入力した印刷枚数と選択した敬称)をデータテーブルに取り込む事は出来るのでしょうか?
データテーブルには複数の取引先情報を保持しますので、複数回行う必要があります。

現時点ではデータグリッドビュー(以下DGV)の敬称区分と印刷枚数は0で表示されています。

Dim dt As DataTable
Public Sub New()
InitializeComponent()
dt = New DataTable
End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

Dim Cn As New OleDbConnection
Dim Command As OleDbCommand = New OleDbCommand
Dim OLEDBCon As OleDb.OleDbConnection = _
New OleDb.OleDbConnection
OLEDBCon.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Form1.TextBox1.Text & ";" & _
"Persist Security Info=False"
Command.Connection = OLEDBCon
Command.CommandText = "select 郵便番号, 住所1, 住所2, 取引先名 , 0 as 敬称区分, 0 as 印刷枚数 from 得意先T where 得意先コード = @得意先コード "
Command.Parameters.AddWithValue("@取引先コード", TextBox1.Text)

Dim Adapter As OleDbDataAdapter = New OleDbDataAdapter 
Adapter.SelectCommand = Command
Adapter.Fill(dt)

'DTの内容をDGVで確認
DataGridView1.DataSource = dt

End Sub

宜しくお願い申し上げます。

ウォッチ

この質問への回答やコメントをメールでお知らせします。