グリッドからのデータを読みこんでmdbに保存
解決使用環境 WinXP/VB6.0
すみません。以前「csvデータをmdbに保存するには？」という質問をしたみそです。
今回もやはりmdbに保存なのですが、csvファイルをそのまま保存、ではなくて一度データグリッドに表示したものをコマンドボタンを押すと保存できる、という形にしたいのです。
一応表示されたデータ（１２行１７７１列のデータです）を読み込むＦｏｒ文は完成したのですがここからどうＳＱＬ文を使ってmdbに保存するのかがよくわからないのです。
自分で作ったをのせます。
なにかいいアドバイス、添削がありましたらぜひともお願いします。
使っていない変数はこれから使うかなぁと思って設定したものです。
--------------------------------------------------------
Private Sub Command7_Click()
Dim rstData As Recordset
Dim db As Database
Dim strsql As String
Dim strTextdata(11) As String
Dim lngCnt As Integer
For lngCnt = 1 To vsFlexGrid1.Rows - 1
strTextdata(0) = vsFlexGrid1.TextMatrix(lngCnt, 0)
strTextdata(1) = vsFlexGrid1.TextMatrix(lngCnt, 1)
strTextdata(2) = vsFlexGrid1.TextMatrix(lngCnt, 2)
strTextdata(3) = vsFlexGrid1.TextMatrix(lngCnt, 3)
strTextdata(4) = vsFlexGrid1.TextMatrix(lngCnt, 4)
strTextdata(5) = vsFlexGrid1.TextMatrix(lngCnt, 5)
strTextdata(6) = vsFlexGrid1.TextMatrix(lngCnt, 6)
strTextdata(7) = vsFlexGrid1.TextMatrix(lngCnt, 7)
strTextdata(8) = vsFlexGrid1.TextMatrix(lngCnt, 8)
strTextdata(9) = vsFlexGrid1.TextMatrix(lngCnt, 9)
strTextdata(10) = vsFlexGrid1.TextMatrix(lngCnt, 10)
strTextdata(11) = vsFlexGrid1.TextMatrix(lngCnt, 11)
Next
strsql = "SELECT * " & "FROM strTextData(lngCnt) "
db.Execute strsql
End Sub
> strsql = "SELECT * " & "FROM strTextData(lngCnt) "
↑は意味的に↓こっちの方がしっくり来ると思う。
% strsql = "SELECT * " & "FROM " & strTextData(lngCnt)
基本的にはGridから値を取得し、
SQL文を作成、発行(Execute)する方針になるかと
新規追加行であるならば、
strsql = "INSERT INTO " & "strTextData(lngCnt) 〜"で
更新行であれば
strsql = "UPDATE " & "strTextData(lngCnt) " & "Set 項目名=" & vsFlexGrid1.TextMatrix(lngCnt, 11)
※ちょっと気になったもので、
strsql = "SELECT * " & "FROM strTextData(lngCnt) "
↓
strsql = "SELECT * FROM" & strTextData(lngCnt)
＞ガッ様 Ｕ様
ご指導ありがとうございます。
strsqlなんですが自分でも投稿した後ちょっとおかしいとおもって直した次第です。
mdbにはすでにフィールド名のみ入力してあってほかは入力されてない状態です。グリッドのデータをすべてmdbに入れる感じです。
エラーになるとわかりつつも実行してみたところ「オブジェクト変数またはwithブロック変数がありません」とでてしまいました。
変数は全部宣言していると思うのですが・・・・？
> エラーになるとわかりつつも実行してみたところ
>「オブジェクト変数またはwithブロック変数がありません」
> とでてしまいました。
そのエラーは、
db.Execute strsql
の行で出るのかなぁ〜。
>変数は全部宣言していると思うのですが・・・・？
デバック実行を行った時に、１行１行実行できますが、
上記エラーが出た行で変数が想定外になっていると思います。
エラーが出た行を特定し、
その行で使用している変数を範囲選択し、
右クリック > ウォッチ式に追加...
とやると、値が<オブジェクト変数またはwithブロック変数がありません>
となるはずですので、まず変数の特定しよう。
残念ながら、SQL文では配列から一気にMDBへINSERTはできません。
For lngCnt = 1 To vsFlexGrid1.Rows - 1
strSQL = "INSERT INTO テーブル名"(項目1,項目2,...) VALUES("
strSQL = strSQL & "'" & vsFlexGrid1.TextMatrix(lngCnt, 0) & "',"
strSQL = strSQL & "'" & vsFlexGrid1.TextMatrix(lngCnt, 1) & "',"
'中略
'というようにSQL文を組み立てて．．．．．．
db.Execute strSQL
Next
とするのがひとつの方法です。
ちなみに、VSFlexGridでしたら、
（せっかくの有料高機能コンポーネントですのでその利点を利用しない手は無いでしょう）
SaveGridメソッドが用意されていますので、
それでCSVファイル化して前回同様の方法で一気にINSERTしてもいいでしょう。
＞Ｕ様
おっしゃるとおり
>db.Execute strsql
のところでエラーになります。
グリッドに表示するCSVファイルのデータを削除して１行だけにして、１行ずつ実行していくと
>strsql = "SELECT * " & "FROM " & strTextdata(lngCnt)
の「strTextdata(lngCnt)」の部分にはいっているものがなぜかほしいデータの一部分しかありませんでした。
この場合、「strTextdata(lngCnt)」の変数宣言が間違っていると考えていいのでしょうか？
データベースを扱った事の無い目で見ると、
> 「オブジェクト変数またはwithブロック変数がありません」
これは、オブジェクト変数に何も参照されていないときに、
そのインスタンスメンバを修飾したときに起こる例外です。
例えばこんなので…
Dim u As Collection
Msgbox u.Count
> の「strTextdata(lngCnt)」の部分にはいっているものがなぜかほしいデータの一部分しかありませんでした。
> この場合、「strTextdata(lngCnt)」の変数宣言が間違っていると考えていいのでしょうか？
貴方が「欲しいデータの一部」しかstrTextData(lngCnt)に代入していないからでは？
元のプログラムから察するに、
strTextData(lngCnt) は vsFlexGrid1.TextMatrix(vsFlexGrid1.Rows, 11) となりましょうな…
＞もげ様
教えていただいて大変恐縮なのですが、「ＩＮＳＥＲＴ ＩＮＴＯ」は使うな、といわれておりまして・・・有用だとは思うのですが今やっている段階では使うことができないのです。
こちらの説明不足で申し訳ありません。
SaveGridメソッドは初耳です。
ちょっとヘルプで調べてみますね。
>「ＩＮＳＥＲＴ ＩＮＴＯ」は使うな、といわれておりまして・・・
...orz
では、RecordsetのAddNewメソッドなら許されるのかどうか判りませんが、
そちらを調べてみてください。
>「ＩＮＳＥＲＴ ＩＮＴＯ」は使うな、といわれておりまして・・・
UPDATEを使えってことなのかなぁ
U殿>UPDATEを使えってことなのかなぁ
みそ殿>mdbにはすでにフィールド名のみ入力してあってほかは入力されてない状態です。
とおっしゃっているので、空のテーブルが用意されていると解釈しましたが、
SELECTやUPDATEではGridからのデータはテーブルに入りませんよね。
みそ殿がその上司？殿からどのような指示を受けているかわかりませんが、
SQL文を使うな なのか、はたまた指示を誤解していらっしゃる可能性をありますね。
ここでのやり取りを印刷して、上司殿に見せたほうが解決が早いのか...
（いや、ここで下請けになる気は無いので、仕様を再確認ください という意味で）
＞もげ様
>RecordsetのAddNew
こちらは使っても良いといわれました。
一応ヘルプをみたのですが具体的な使い方がわからなく、思考中です。
＞Ｕ様
>UPDATA
こちらをつかうとしたらどういった使い方をすればいいのでしょうか？
<UPDATE>ってデータを変更するときに使うものですよね？
私の場合、mdbに新規でグリッド表示データをいれるってことですから・・・
ど、どうなるんでしょう？？？
＞もげ様
えっとですね、すごい大雑把な説明しかされてなくて私自身もなにをつかっていいのかどれがダメなのかイマイチわからないんです(^^;)
わかっているのは
★ＳＱＬ文は使ってもいいけど（むしろ使って）INSERT INTOはダメ
★ＣＳＶファイルを直接mdbにいれるのではなくてあくまでもグリッドに一度表示して、表示されたものをmdbに入れなさい
すごいアバウトで申し訳ないです。
上司がきたらまた詳しく聞いてみます。午後２時くらいになるかと。
ではAddNewで。
http://www.microsoft.com/japan/msdn/data/techmat/ado/dao2ado_3.asp
の[新しいレコードの追加]のあたりをご参考まで。
なんとか解決できました。
ご教授くださったガッ様、もげ様、Ｕ様本当にありがとうございました！
| ツイート |  |