| |
▼TB1 さん：
こんにちは。
> 本題はもともとある01というテーブルの売価項の値を、
> 8掛けの代わりにほかのxls、csvファイルの売価に差換えたい、ということです。
まずデータの持ち方になるのですが、
Uniqueな(重複しない)項目は存在していますか？
今回は商品マスタの更新という事ですので
元からあるテーブルにもCSVファイルにも
商品コードの様なものが存在しているとは思われますが、
これがないと差換える事はできません。
DAOなりADOで行うとしたら
CSVをインポートしたテーブルのUniqueな項目をループさせながら
元テーブルのUniqueな項目を検索させ、
一致した場合に更新を行う様な処理になります。
>Private Sub 支店01_実行_Click()
> …
> …
正直な話、ご提示されたコードは
「myImport 」「Get_FilleName」という不明な関数や
「pstrERR」というどこにも定義されていない変数が出てきたりする為
回答する側としても訳のわからないコードになってしまっています。
また、DAO/ADOが混在しているコードであったりと
TB1 さんがコードの中身を理解されて書いているのか疑問を持ってしまいます。
(切り貼りしている感が否めません。)
雅さんのご提示された内容にもありましたが、
・ワークテーブルの削除クエリ
・ワークテーブルへの追加クエリ(もしくはTransferTextメソッド)
・元テーブルへの更新クエリ
の順序で行うのが一番シンプルの様に思えますね。
(もちろんDAO/ADOを駆使しても可能です)
|
|
小僧
- 06/8/20(日) 11:20 -
