質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.48%
MySQL

MySQL(マイエスキューエル)は、TCX DataKonsultAB社などが開発するRDBMS(リレーショナルデータベースの管理システム)です。世界で最も人気の高いシステムで、オープンソースで開発されています。MySQLデータベースサーバは、高速性と信頼性があり、Linux、UNIX、Windowsなどの複数のプラットフォームで動作することができます。

Visual Studio 2012

Microsoft Visual Studio 2012は、Microsoftによる統合開発環境(IDE)であり、多種多様なプログラミング言語に対応しています。 Visual Studio 2010の次のバージョンです

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

Q&A

解決済

1回答

1500閲覧

[VB.NET]テーブルのIDと名前を紐付けたい

reeeo

総合スコア42

MySQL

MySQL(マイエスキューエル)は、TCX DataKonsultAB社などが開発するRDBMS(リレーショナルデータベースの管理システム)です。世界で最も人気の高いシステムで、オープンソースで開発されています。MySQLデータベースサーバは、高速性と信頼性があり、Linux、UNIX、Windowsなどの複数のプラットフォームで動作することができます。

Visual Studio 2012

Microsoft Visual Studio 2012は、Microsoftによる統合開発環境(IDE)であり、多種多様なプログラミング言語に対応しています。 Visual Studio 2010の次のバージョンです

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

0グッド

0クリップ

投稿2017/07/25 03:58

開発環境
・visualstudio2012
・windows7
・.net4
・mysql

windowsformでコンボボックスから選んだ商品をデータグリットビューに追加し、登録ボタンを押下したらデータベースに反映させるプログラムを作成しています。
・マスターテーブル

CREATE TABLE `m_item` ( `ITEM_ID` int(11) NOT NULL, `ITEM_NAME` text, `ITEM_PRICE` int(11) DEFAULT NULL, PRIMARY KEY (`ITEM_ID`) ) ENGINE=InnoDB DEFAULT CHARSET=utf8

・トランザクションテーブル

CREATE TABLE `t_item` ( `ITEM_ID` int(11) NOT NULL, `COUNT` char(1) DEFAULT NULL, `registTIME` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP, PRIMARY KEY (`ITEM_ID`) ) ENGINE=InnoDB DEFAULT CHARSET=utf8

・追加ボタンでデータグリットビューに追加するときの処理

'追加ボタンが押されたとき Private Sub add_btn_Click(sender As Object, e As EventArgs) Handles add_btn.Click Dim item As String = "" '商品名 Dim price As Integer = 0 '価格 Dim num As Integer = 0 '個数 Dim sum As Integer = 0 '合計 '追加ボタンが押された時の処理 If IsNumeric(num_text.Text) Then ' DataGridViewに追加 DataGridView1.Rows.Add(item_box.SelectedValue, price_text.Text, num_text.Text, price_text.Text * num_text.Text) Else MsgBox("数値を入力してください。") num_text.Focus() End If '合計の表示 For i = 0 To DataGridView1.RowCount - 1 sum = sum + DataGridView1.Rows(i).Cells(3).Value Next sum_text.Text = sum End Sub

・登録ボタン押下時のソース

Try 'DB接続 conn.ConnectionString = myconnectionstring conn.Open() 'insert文 For i = 0 To DataGridView1.RowCount - 1 Step +1 Dim myinsert As String = "INSERT INTO T_ITEM VALUES(?ITEM_ID,?COUNT,?registTIME)" Dim mycomand As New MySqlCommand(myinsert, conn) 'パラメータセット mycomand.Parameters.AddWithValue("?ITEM_ID", DataGridView1.Rows(i).Cells(4).Value) mycomand.Parameters.AddWithValue("?COUNT", DataGridView1.Rows(i).Cells(2).Value) mycomand.Parameters.AddWithValue("?registTIME", dtNow.ToString) 'クエリ実行 mycomand.ExecuteNonQuery() Next MsgBox("接続") Catch ex As Exception MsgBox(ex.Message) Finally conn.Close() End Try

これで実行したら「ITEM_IDが空だよ」とエラーが出てしまいました。
コンボボックスで選んで商品とIDを紐付けしたいのですがどうしたらいいのですか?

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

m.ts10806

2017/08/02 01:12

「ITEM_IDが空だよ」というエラーの実際の本文をご提示ください。ご提示ソース内では該当メッセージがありませんし、システム側が吐き出しているエラーであればその部分の解決が先です。
guest

回答1

0

ベストアンサー

mycomand.Parameters.AddWithValue("?ITEM_ID", DataGridView1.Rows(i).Cells(4).Value)

mycomand.Parameters.AddWithValue("?ITEM_ID", DataGridView1.Rows(i).Cells(0).Value)
の間違いでは?

見る限り「DataGridView1.Rows(i).Cells(4)」は、i行5列目を指してますが、DataGridView1に5列目は存在しますか?

投稿2017/08/07 07:31

toro1

総合スコア90

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

reeeo

2017/08/07 08:38

回答ありがとうございます。こちらの質問はすでに解決済みでしたが解決済みにしておくのを忘れてしまいました。申し訳ございません。また、何かありましたらお願いします!!
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.48%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問