ｍｄｂファイルに保存するには？
解決使用しているのはＶＢ６です。
初歩的な質問で大変申し訳ないのですが。
CSVファイルを読み込んでデータグリッドに表示しました。
今度はその表示したデータすべてを「取り込み」というコマンドボタンを新たに作成してそれを押すとmdbに保存できるようにしたいのです。
ＳＱＬ文を使う、ということはヒントでいただいたのですが、どうやったらmdbに保存できるのかがいまいちつかめないのです。
検索をいろいろしたのですがパっとこなくて・・・
なにかアドバイス、参考になるサイト等ありましたらよろしくお願いします。
目的のMDBは、空のMDBが用意されている状態ですか？
無ければそれを作成するところから始める必要があります。
http://www.microsoft.com/japan/msdn/data/techmat/ado/dao2ado_4.asp
の「データベースの作成」の項に、DAO、ADOXでの作成方法があります。
SQL文は、このへんとか。
http://www.geocities.co.jp/SiliconValley/4805/vbtips/vbtips019.htm
データによっては、schema.iniの作成が必要だったり、
ヘッダ行が無いとダメだったりと、いくつか制約があるので、
AccessのクエリデザインのSQLビューに貼り付けて確認する
などで実際に試しながら構文を調整していくとよいかと思いますよ。
＞もげ様
回答ありがとうございます。
目的のＭＤＢは空の状態で用意されています。
（テーブルのフィールド名も記入済みでデータ入力待ちの状態になってます）
読み込んでデータグリッドに表示しているＣＳＶファイルの内容なのですが、フィールド数が１４、レコード数が２０００程のデータです。
教えていただいたサイトを参考にもう少し勉強してみようと思います。
またなにか参考になるサイトや情報がありましたらよろしくお願いします。
お忙しい中このような初歩的な質問に丁寧に回答してくださってありがとうございました！
読み込んだデータをDataGrid上で修正するのであれば、
修正内容を一旦CSVに吐き出してからMDBへとなりますが、
で、あれば、むしろ、
CSV→MDBへインポート→MDBをデータソースにしてDataGridで表示（そのまま修正可能）
という流れのほうが自然かもしれません。
＞もげ様
特にDataGrid上での修正とかはしないんです。
ただCSVファイルをvsFlexGrid上に全部表示→表示データ全部をmdbに保存
という単純な流れなんです。
教えていただいた「Ｊｅｔデータベース（ＤＡＯ）〜」の関連項目を読んではいるのですがイマイチパっとしないんです。
すごい初歩な質問なんですが、JetデータベースというものはAccessで作れるデータベースと同じもの、ということなんでしょうか・・・？
Microsoft DAO Object Libralyというものを使って作れるデータベースというのはわかったのですがそれがどう機能するのかがさっぱりで。
実は上サイトからサンプルをＤＬしたのですが「ＩＳＡＭドライバがみつかりませんでした」と表示されてしまいどういった動きをするのかがわからなかったんです。すみません。
>JetデータベースというものはAccessで作れるデータベースと同じもの
そうです。AccessはJetデータベースを利用したアプリケーションです。
「ＩＳＡＭドライバがみつかりませんでした」
のエラーの場合は、本当にドライバ（MDAC）がインストールされていない場合の他にも、
いろいろ原因が考えられるので、以下の情報を教えてください。
・あなたの開発環境（OS、サービスパック）
・Accessのバージョンとサービスパックの適用状況
・VBのサービスパック
（Access2000形式のファイルを扱うにはSP3以上、WinXPならSP5以上）
ISAMドライバはVB6.0のCD-ROMからも導入できｍすが、ちょっと古いので、
取りあえず、MDAC2.5以上と（Access2000以上なら）Jet4.0の最新サービスパックを当てておくことをお薦めします。
開発環境ですが
WindowsXP HomeEdition
Access 2000
VB6.0 (SP5)
です。
ただ、ＶＢをインストールしたときにカスタムでいろいろ削ってインストールされている状態でして・・・（自分でインストールしたのではなく、指示されてインストールしたのでなにを削ったのか覚えてないのです）
おまけにＶＢのディスク自体も自由に使えないのでＩＳＡＭドライバを入れたくてもできないのです。
なんとかサンプルファイルを起動させて目的を達成することができました。
「グリッドのデータから」じゃなくて「ＣＳＶファイルそのものから」という考え方がようやくできました(^^;)
ただ、これではコピペで作ったようなもので自分の知識にはなってないと思います。
今、コードがどういったことをあらわしているのか調べています。
上記サイトのプログラムをみていたのですが以下の部分がなにを言っているのかイマイチわかりません。
ヘルプで単語の意味は調べているのですがそれらが組み合わさるとなんともいえなくて・・・
Set wsTxt = DBEngine.Workspaces(0)
Set dbTxt = wsTxt.OpenDatabase(StripFileNam(strTxtPath),0,0, "Text;")
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(strDbPath, False, False)
strConnect = "[Text;database=" & StripFileName(strTxtPath) & "]."
これらの文はいったいどういった働きをしているものなのでしょうか？
>ただ、これではコピペで作ったようなもので自分の知識にはなってないと思います。
>今、コードがどういったことをあらわしているのか調べています。
素晴らしい心掛けですね。
Jetデータベースエンジンでは、ISAMドライバを使用して
テキストファイルやExcelファイル等をデータベースとして扱えます。
その際の文法は、テキストファイルの場合は、
テーブル名に相当する部分が、
[Text;database=ファイルが存在するフォルダ名].[ファイル名]
のように表されます。
前述のサンプルですと、
strConnect のところは、その構文を途中まで組み立てていて、
StrSql変数のところで、
INSERT INTO 新規テーブル SELECT * FROM [Text;database=C:\TEMP\vbtips019].export.csv
のようなSQLになります。
このサンプル、
>Set wsTxt = DBEngine.Workspaces(0)
>Set dbTxt = wsTxt.OpenDatabase(StripFileNam(strTxtPath),0,0, "Text;")
のところは使用していませんね。（コメントにしても動作に影響無し）
テキストファイルをデータベースとして開こうとしていますが。
もげ様
>Set wsTxt = DBEngine.Workspaces(0)
>Set dbTxt = wsTxt.OpenDatabase(StripFileNa(strTxtPath),0,0, "Text;")
やはりこの２行は無くても大丈夫でしたか。
実は意味がわからないので削除して実行したらきちんと動いてしまったのでそのまま削除しちゃいました(^^;)
あと大変詳しい解説ありがとうございました。
おかげで理解できました。
本当にありがとうございます！！
| ツイート |  |