得意先の宛名印刷プログラムを作っております。
得意先コードをキーにして得意先名や住所、郵便番号をデータテーブルに引き渡す所までは出来ました。
VS2010Proとアクセス2003を使っております。PCはXPProです。
Windowsフォームに印刷枚数を入力するテキストボックス２と
敬称選択出来るラジオボタン１、２、３があります。
（mdbファイルに印刷枚数や敬称のテーブルはありません。）
テキストボックス２に数字を入力し、ラジオボタン１から３のいずれかを選択します。
この情報（入力した印刷枚数と選択した敬称）をデータテーブルに取り込む事は出来るのでしょうか？
例えば
得意先コード１２３４５は印刷枚数５枚で、敬称は御中
得意先コード１１１１１は印刷枚数１２枚で、敬称は殿
取り込む事が出来たら、それをクリスタルレポートへ引き渡したく思います。
参考になる情報等ありましたら、お教え下さい。
データテーブルに取り込むコードは以下になります
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
If TextBox1.Text = Nothing Then
MessageBox.Show("コード確認！", "☆エラー画面☆")
End If
'プログラムコード
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 郵便番号, 住所１, 住所２, 得意先名 from 得意先T where 得意先コード = @得意先コード "
Command.Parameters.AddWithValue("@得意先コード", TextBox1.Text)
Dim Adapter As OleDbDataAdapter = New OleDbDataAdapter
Dim dt As New DataTable
Adapter.SelectCommand = Command
Adapter.Fill(dt)
'レコード取得
If dt.Rows.Count = 1 Then
TextBox3.Text = CStr(dt.Rows(0).Item(0)) ’郵便番号
TextBox4.Text = CStr(dt.Rows(0).Item(1)) '住所１
TextBox5.Text = CStr(dt.Rows(0).Item(2)) '住所２
TextBox6.Text = CStr(dt.Rows(0).Item(3)) '得意先名
Else
MessageBox.Show("表示出来ません！", "エラー")
End If
End Sub
以上宜しくお願い申し上げます
