人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

VB.NETとACCECE2000を使用してMSFlexGrid上に検索したものを表示させAxMSFlexGridの中身(商品番号、サイズ、数量)を登録したいのですが登録1件しかできません。よろしくお願いします。

Dim Cn As New OleDb.OleDbConnection()
Dim Re1 As Integer
Cn.ConnectionString = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & Application.StartupPath & "\pizza.mdb"
Cn.Open()
Dim mysql As New OleDb.OleDbCommand()

mysql.Connection = Cn
Dim Re2 As Integer


'注文明細T登録
For lngCount = 1 To AxMSFlexGrid1.Rows - 1
AxMSFlexGrid1.Row = lngCount
AxMSFlexGrid1.Col = 0
G_ID = AxMSFlexGrid1.Text
AxMSFlexGrid1.Col = 2
G_size = AxMSFlexGrid1.Text
AxMSFlexGrid1.Col = 3
G_kosuu = AxMSFlexGrid1.Text

mysql.CommandText = "insert into M08_Meisai(hatyuno,meisaino,hadate,M02_SyohinID,M03_Size,M03_kosuu) Values (" & Label5.Text & "," & f3 & "," & TextBox3.Text & "," & G_ID & ",'" & G_size & "'," & G_kosuu & ")"

Next
AxMSFlexGrid1.Row = f3
Re2 = 0
Re2 = mysql.ExecuteNonQuery()


Cn.Close()

●質問者: rurudorufu1218
●カテゴリ:コンピュータ
✍キーワード:application AS F3 JET MDB
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● llusall
●60ポイント

はずしていたらすみません。

ExecuteNonQuery()

は、ループ内にあるべきではないでしょうか?

'注文明細T登録

For lngCount = 1 To AxMSFlexGrid1.Rows - 1

    AxMSFlexGrid1.Row = lngCount

    AxMSFlexGrid1.Col = 0

    G_ID = AxMSFlexGrid1.Text

    AxMSFlexGrid1.Col = 2

    G_size = AxMSFlexGrid1.Text

    AxMSFlexGrid1.Col = 3

    G_kosuu = AxMSFlexGrid1.Text

    mysql.CommandText = "insert into M08_Meisai(hatyuno,meisaino,hadate,M02_SyohinID,M03_Size,M03_kosuu) Values (" & Label5.Text & "," & f3 & "," & TextBox3.Text & "," & G_ID & ",'" & G_size & "'," & G_kosuu & ")"

    Re2 = mysql.ExecuteNonQuery()

Next

◎質問者からの返答

回答ありがとうございます。

私自身ミスに気がついて訂正しましたがMSFlexGridに表示されているもの1件しか登録できません。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ