入力された値の動的取得方法について

質問

WINアプリ作成において画面上に非常に多くの項目(textboxなど)
が存在しており、その項目データ全てに対しmysqlを利用して保存したいと考えております。

例えばユーザーIDとパスワードがテキストボックスに入力され
それをDBへ保存するといったものです。こういった項目が数百
存在しております。

この処理の中で当然クエリを作成しなければならないのですが
項目数が非常に多いため動的にクエリを作成できればと
考えております。

insert into table名 (列1,列2,,,,) values(textbox1.text,textbox2.text,,,,,,)

このようなクエリになるのですが、結局のところ
動的にテキストファイルなどの値をどう取り出すか
ということになるかと思います。

現在は、自分で全て列名と値を書いているので効率が大変悪く、
動的に連続して処理させたいと考えております。

※入力されるtextbox（項目）が毎回同じではないので、入力された項目に従属して列名にinsertされるようにしたいと思っています。

回答No.2

tsukasa-12r · ベストアンサー

入力されていない項目に対して、
文字型なら ''
数値型なら 0
で INSERT すれば問題ないと思うんですけど・・・。
(この方法ならバインド変数を使う意味があります。)

ご注文のように、入力されていない項目は、列名、値、共に省略するのでしたら、
Dim strColumns As String
Dim strValues As String
Dim strSql As String

strColumns = ""
strValues = ""
If textbox1.Text <> "" Then
　strColumns = "列名1"
　strValues = "'" & textbox1.Text & "'"
End If
If textbox2.Text <> "" Then
　If strColumns <> "" Then
　　strColumns = strColumns & ","
　　strValues = strValues & ","
　End If
　strColumns = strColumns & "列名2"
　strValues = strValues & "'" & textbox2.Text & "'"
End If
If textbox3.Text <> "" Then
　If strColumns <> "" Then
　　strColumns = strColumns & ","
　　strValues = strValues & ","
　End If
　strColumns = strColumns & "列名3"
　strValues = strValues & "'" & textbox3.Text & "'"
End If
...
strSql = "INSERT INTO table名 (" & strColumns & ") Values (" & strValues & ")"
のようにすればよいのではないでしょうか。

ちなみに、開発環境は VB6 ですか？

お礼

ありがとうございました。
なんとかなりました。

回答No.1

tsukasa-12r

table名と列名は固定でしょうか？
固定であれば、
Dim strSql As String
strSql = "INSERT INTO table名 (列名1,列名2...) VALUES ("

'文字型の場合
strSql = strSql & "'" & textbox1.Text & "',"

'数値型の場合
If textbox2.Text <> "" Then
strSql = strSql & textbox2.Text
Else
strSql = strSql & "0,"
End If
...
strSql = strSql & ")"

のような感じで INSERT 文を組み立て、それを実行すればよいと思います。
table名が状況によって変わる場合は、table名によって列名も変わるでしょうから、all_tab_columns テーブルから列名を取得してやるとかしないといけないので、ちょっと面倒くさそうですね。

あと、Oracle とか MS-SQL だとバインド変数を使う方法もあるのですが（バインド変数を使用する方が SQL 文の解釈だとかの効率が良いらしいです。）、MySql ってバインド変数が使えるのでしょうか？

お礼

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

＞table名と列名は固定でしょうか？

　tableが複数あり、其の中にそれぞれ特定のテキストボックス（列名）が存在しているようになっていますので、特定のテーブル単体では毎回列名は固定されています。

今回たとえば、一画面にAとBテーブルがあったとして、AとBのテーブル内に

○A→３つのテキストボックス（列名のこと）
○B→６つつのテキストボックス（列名のこと）　があったとして、

まず、Aのテーブル内のテキストボックス２つに値を入力されたとします。（３つめのテキストボックスは入力されていない）
また、同時にBテーブルのボックス３つに入力されたとします。（残り３ボックスは入力されていません）

その際、入力されたAテーブルの２つのボックスに対応する列名とVALUESの値がINSERT文に記述されるような事を考えています。
また、Bテーブルでも同様にしたいと考えています。

つまり、入力されたボックスに焦点をあてて動的にINSERT文を作れないか？という事で、入力されていないテキストボックス名はINSERT文から省きたいと考えています。これを動的にしたいのです。

＞strSql = strSql & "'" & textbox1.Text & "',"

この文「　textbox1.Text 　」を入力されたテキストボックスから動的に変更出来ないのかが気になっています。

例えば 、３つのテキストボックスがありそのうち、1番目と2番目に入力があったとき、変数をiとして 1 と 2 が入るようにしたいので以下のように文が書けるのだろうか？？
「　textbox[i].Text　」
という事が知りたいと思っています。

＞MySql ってバインド変数が使える

調べてみたところ使えるようですが、いまいち良く分かりません。

ご教授お願い致します。