[OSのVer]：Windows　　　　[VBのVer]：VB.NET　　
フォームにあるlbl営業日,list商品などの情報をテーブルT_送信情報に追加していきたいのですが、S
QL文(追
加の仕方)のところがいまいちわかりません。どうしたらいいのでしょうか？
※list商品の情報は商品と数量を１つのレコードに追加したい。(複数の商品があるため)
<例:テーブルに追加後>
営業日　　　伝票N0　商品名　個数
2005/09/29　000001　塩タン　3
2005/09/29　000001　ロース　1
2005/09/29　000001　カルビ　3

SQL文でINSET INTO を使うのはわかるのですが、その後の追加の記述(lbl営業日は営業日へlist商品
の商品
は商品へlist商品の数量は数量へ)しかたがわかりません。
教えていただけないでしょうか？？お願いします。

お世話になります。

"INSERT INTO T_送信情報(営業日, 伝票NO, 商品名, 個数) " _
"VALUES ( '" + lbl営業日.Text + "'" …
となるんでしょう。

伝票N0・商品名・個数は、画面上で
どの様なコントロールにどの様な値でもっているんですか？

[OSのVer]：Windows　　　　[VBのVer]：VB.NET　　
ありがとうございます。
> 伝票N0・商品名・個数は、画面上で
> どの様なコントロールにどの様な値でもっているんですか？
↑
フォームの？
フォームでしたら
↓
伝票N0：
○コントロール
Label
○値
数値(0001とか)

商品名・個数:
テーブルからListBoxに商品コード、商品名を呼び出してきて商品名を表示させた後にtxt数量(個数)に
入力され
た値を追加しているもの。

お世話になります。

この前の続きですか。
だったら、Me.m_TestDtを弄ってやればいいでしょう。こんな風に。
# そのままコピペせずに、内容を理解してから使ってくださいね。
# 解らないところがあれば、回答しますので。

Private Function getSQL() As String
　　Dim sqlBuilder As System.Text.StringBuilder
　　Try
　　　　sqlBuilder = New System.Text.StringBuilder
　　　　For Each row As DataRow In Me.m_TestDt.Rows
　　　　　　With sqlBuilder
　　　　　　　　.Append("INSERT INTO T_送信情報(営業日, 伝票NO, 商品名, 個数) ")
　　　　　　　　.Append("VALUES(")
　　　　　　　　.Append("'" + Me.lbl営業日付.Text + "',")
　　　　　　　　.Append("'" + Me.lbl伝票NO.Text + "',")
　　　　　　　　.Append("'" + CType(row("商品名"), String) + "',")
　　　　　　　　.Append(CType(row("数量"), String) + ")")
　　　　　　　　.Append(";" + ControlChars.NewLine)
　　　　　　End With
　　　　Next
　　　　Return sqlBuilder.ToString()
　　Catch ex As Exception
　　　　Throw ex
　　End Try
End Function

> [OSのVer]：Windows　　　　[VBのVer]：VB.NET　　
> ありがとうございます。
> > 伝票N0・商品名・個数は、画面上で
> > どの様なコントロールにどの様な値でもっているんですか？
> ↑
> フォームの？
> フォームでしたら
> ↓
> 伝票N0：
> ○コントロール
> Label
> ○値
> 数値(0001とか)
>
> 商品名・個数:
> テーブルからListBoxに商品コード、商品名を呼び出してきて商品名を表示させた後にtxt数量(個数)
に
> 入力され
> た値を追加しているもの。

[OSのVer]：Windows　　　　[VBのVer]：VB.NET　　
ありがとうございます。
> Private Function getSQL() As String
> 　　Dim sqlBuilder As System.Text.StringBuilder
> 　　Try
> 　　　　sqlBuilder = New System.Text.StringBuilder
> 　　　　For Each row As DataRow In Me.m_TestDt.Rows
> 　　　　　　With sqlBuilder
> 　　　　　　　　.Append("INSERT INTO T_送信情報(営業日, 伝票NO, 商品名, 個数) "
;)
> 　　　　　　　　.Append("VALUES(")
> 　　　　　　　　.Append("'" + Me.lbl営業日付.Text + "',")
> 　　　　　　　　.Append("'" + Me.lbl伝票NO.Text + "',")
> 　　　　　　　　.Append("'" + CType(row("商品名"), String) + "'
,")
> 　　　　　　　　.Append(CType(row("数量"), String) + ")")
> 　　　　　　　　.Append(";" + ControlChars.NewLine)
> 　　　　　　End With
> 　　　　Next
> 　　　　Return sqlBuilder.ToString()
> 　　Catch ex As Exception
> 　　　　Throw ex
> 　　End Try
> End Function

では、さっそく。
上記の動きは送信ボタンを押してから発生したいのですが、
上記を記述して、送信ボタンのクリックイベントの中でgetSQL()を呼べばいいのでか？？

お世話になります。

> では、さっそく。
> 上記の動きは送信ボタンを押してから発生したいのですが、
> 上記を記述して、送信ボタンのクリックイベントの中でgetSQL()を呼べばいいのでか？？

そうなんですが、
呼んでも、SQL文が格納されたStringが戻ってくるだけです。

なので、呼んで、取得した値（SQL文）を、データベースに対して
発行しないといけませんね。
そのやり方については、Google等で検索すればなんぼでも出てきますんで
ご自分でお調べになって下さい。

[OSのVer]：Windows　　　　[VBのVer]：VB.NET　　
ありがとうございます。
調べてみます(*>_<*)!!

[OSのVer]：Windows　　　　[VBのVer]：VB.NET　　
お世話になります。
がんばって探したのですが、出てこなくて(涙)

            Dim scm As SqlClient.SqlCommand
            Dim scn As SqlClient.SqlConnection
            scn = New SqlClient.SqlConnection( _
                "Data Source = localhost;PersistSecurityInfo=False" _
                + ";Integrated Security=SSPI;database=Yuukari")
            scn.Open()

            

            scn.Close()
上記のコードの中のscn.Open()とscn.Close()の間に取得した値(SQL文)をデータベースに発行するコー
ドを書
けばいいのですか？

お世話になります。

↓を参照して、もうちょっとがんばってみましょう。
hhttp://www.microsoft.com/japan/msdn/library/default.asp?
url=/japan/msdn/library/ja/cpref/html/frlrfsystemdatasqlclientsqlcommandclassexecutenonqueryt
opic.asp

[OSのVer]：Windows　　　　[VBのVer]：VB.NET　　
ありがとうございます。

Dim scm As SqlClient.SqlCommand
            Dim scn As SqlClient.SqlConnection
            scn = New SqlClient.SqlConnection( _
                "Data Source = localhost;PersistSecurityInfo=False" _
                + ";Integrated Security=SSPI;database=Yuukari")
            scn.Open()
            Try
                scm = New SqlClient.SqlCommand(getSQL(), scn)
                scm.ExecuteNonQuery()
            Catch ex As Exception
                Throw ex
            End Try

            scn.Close()

でやったらできました！！
こういう事だったんのですか？？

お世話になります。

↓を参考にトランザクションを使ってみましょう。あともう一息。
hhttp://www.microsoft.com/japan/msdn/library/default.asp?
url=/japan/msdn/library/ja/cpref/html/frlrfsystemdatasqlclientsqlconnectionclassbegintransact
iontopic3.asp

> [OSのVer]：Windows　　　　[VBのVer]：VB.NET　　
> ありがとうございます。
>
>  Dim scm As SqlClient.SqlCommand
>             Dim scn As SqlClient.SqlConnection
>             scn = New SqlClient.SqlConnection( _
>                 "Data Source = localhost;PersistSecurityInfo=False" _
>                 + ";Integrated Security=SSPI;database=Yuukari")
>             scn.Open()
>             Try
>                 scm = New SqlClient.SqlCommand(getSQL(), scn)
>                 scm.ExecuteNonQuery()
>             Catch ex As Exception
>                 Throw ex
>             End Try
>
>             scn.Close()
>
> でやったらできました！！
> こういう事だったんのですか？？

[OSのVer]：Windows　　　　[VBのVer]：VB.NET　　
お世話になります。
このコードで動いたのですが何か問題でもあるのですか？

お世話になります。

> [OSのVer]：Windows　　　　[VBのVer]：VB.NET　　
> お世話になります。
> このコードで動いたのですが何か問題でもあるのですか？

確かに、動くと思います。
ただ、トランザクションを使う事は色々とメリットがあります。

hhttp://www.atmarkit.co.jp/fnetwork/rensai/sql25/sql1.html
より引用
データの不整合が起きないことを保証するリレーショナルデータベースシステム（RDBMS）のメカニズム
です。

今回のじゅんさんのアプリケーションは複数人で使用するのかどうかはわかりませんが、
データベースに対し、更新のSQL文（INSERT、DELETE、UPDATE）
を発行する時は、トランザクションを使う習慣を付けておいた方が今後の為と思われます。

[OSのVer]：Windows　　　　[VBのVer]：VB.NET　　
お世話になります。

> 確かに、動くと思います。
> ただ、トランザクションを使う事は色々とメリットがあります。
>
> hhttp://www.atmarkit.co.jp/fnetwork/rensai/sql25/sql1.html
> より引用
> データの不整合が起きないことを保証するリレーショナルデータベースシステム（RDBMS）のメカ
ニズム
> です。
>
> 今回のじゅんさんのアプリケーションは複数人で使用するのかどうかはわかりませんが、
> データベースに対し、更新のSQL文（INSERT、DELETE、UPDATE）
> を発行する時は、トランザクションを使う習慣を付けておいた方が今後の為と思われます。
なるほどそ言う事なのですか！！
今後のために使うようにしたいと思います。
ありがとうございました。