• ベストアンサー

access2002 DAOのデータ読込投入

今access2002のアプリケーションを作っています。 そのデータをエクセルから、テーブルにインポートする作業を仕様としています。 今考えているのは、EXCELのデータを、 ほぼそのままテーブルＡとしてインポートし、 そのテーブルを読み込んで編集＆項目追加をして、 テーブルＢに書き込みます。 その際、のコーディングは、 Private Sub sample_click() DIM dbDAO AS DAO.DATABASE DIM rsDAO AS DAO.RRECORDSET DIM rsDAO2 AS DAO.RRECORDSET set rsDAO = dbDAO.OPENrecordset("テーブルA",dbOpenTable) Do Until rsDAO.EOF = true rsDAO2.AddNew rsDAO2.項目B1 = rsDAO.項目A1+変数A1 rsDAO2.項目B2 = rsDAO.項目A2*変数A2 rsDAO2.項目B3 = rsDAO.項目A3/変数A3 rsDAO2.項目B4 = rsDAO.項目A4-変数A4 rsDAO2.Update rsDAO.MoveNext loop rsDAO.Close: Set rsDAO = Nothin rsDAO2.Close: Set rsDAO2 = Nothin End Sub 上記のように記述すると、テーブルAの全レコードを、 すべて自動編集し、テーブルBに追加できますでしょうか？ やりたいことは単純なのですが、クエリーでも僕のレベルでは、 うまくできそうにないので、質問させていただきました。 どうかよろしくお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
noname#79209
noname#79209
回答No.1

基本的にはOKです。 テーブルＢは4フィールドでよいのでしょうか？ ４つの変数がどこでもセットされていませんが、省略しているのですか？ 追加クエリでも良さそうですし、クエリの方が速いのですがね。

groovyreality
質問者

お礼

ありがとうございます。 変数については、例として書かせていただいたもので、 定義するのを忘れていました。 実際には、設定する値に条件式がいくつかあるって、 クエリでは処理できないと判断したので、このように考えています。

その他の回答 (2)

noname#79209
noname#79209
回答No.3

変数の内容が決まらないのでクエリでは出来ないとの判断でしょうか？ それぞれの変数の値を決めるのに、ユーザー定義関数を使うテもありますが．．． あと、#2さんが言われているように、 「RECORDSET」が「RRECORDSET」 「Nothing」が「Nothin」 だったりしていますが．．．

groovyreality
質問者

お礼

かなり難しくなってきましたね・・・。 がんばってみます。 ありがとうございました。

  • t2hayashi
  • ベストアンサー率46% (102/219)
回答No.2

DAO.RRECORDSET などの誤字はあります。 あと、dbDAOをCurrentDBでセット、 また、rsDAO2 がセットされていません。 rsDAO2 を opendbdynaset オプションで開く必要があります。 でないと編集できないですからね。 っていう構文問題ぐらいで（といっても致命的）、考え方としては合ってます。

groovyreality
質問者

お礼

致命的ですか・・・ ありがとうございました

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. その他（プログラミング・開発）

関連するQ&A

  • DAOでテーブルを作成

    DAOでテーブルを作成したいのですが 主キーにしてオートナンバー型にするにはどうすればいいですか？ Sub MyTableCreate() Dim db As DAO.Database Dim tbdef As DAO.TableDef Dim Field1 As DAO.Field Dim Field2 As DAO.Field Set db = CurrentDb Set tbdef = db.CreateTableDef("T_test") Set Field1 = tbdef.CreateField("ID", dbInteger) Set Field2 = tbdef.CreateField("氏名", dbText, 20) tbdef.Fields.Append Field1 tbdef.Fields.Append Field2 db.TableDefs.Append tbdef db.Close: Set db = Nothing End Sub これで、IDフィールドを主キーにしつつ、 dbIntegerではなくオートナンバー型にしつつ、 主キーを付与する方法を教えてください。 DAOのType プロパティのヘルプを見たのですがありませんでした。 今回は http://www.accessclub.jp/dao/20.html を参考にしました。

  • DAOでテーブルの内容を検索したいのですが…

    DAOでテーブルの内容を検索したいのですが… アクセス初心者です。 フォームで取得した値をテーブルで検索して命令するために，次のようなことをしてみましたが，FindFirstのところでエラーがでます。 どうしたらよいのかご指導ください。 コマンドボタンのイベントプロシージャで Private Sub テストテーブル作成_Click() Dim gakki As Integer Dim test As Integer Me.学期 = gakki Me.テスト = test Call testテーブル作成 End Sub として，標準モジュールに Sub testテーブル作成() Dim myDB As DAO.Database Dim myRS As DAO.Recordset Set myDB = CurrentDb Set myRS = myDB.OpenRecordset("T_生徒テスト") myRS.FindFirst "学期ID=" & "" & "gakki" & "" & "AND テストID =" & "" & "test" & "" If myRS.NoMatch = False Then DoCmd.OpenQuery "Q_TSテストA" DoCmd.OpenForm "F_テスト" DoCmd.Close Else DoCmd.OpenQuery "Q_TSテスト" DoCmd.OpenQuery "Q_テスト" DoCmd.Close DoCmd.OpenForm "F_テスト" End If myRS.Close: Set myRS = Nothing myDB.Close: Set myDB = Nothing End Sub としました。よろしくお願いします。

  • アクセス2000VBA　DAOをADOに書き換えてください

    アクセス2000VBA　DAOをADOに書き換えてください 下記プログラムをADOに書き換えてください。（DAT1、DAT2はモジュールにて定義してあります） Option Compare Database Dim DBS As Database Dim QDF As QueryDef Dim RST As DAO.Recordset Dim COUNT1 Private Sub Form_Load() On Error Resume Next DAT2 = [Forms]![伝票]![HAKKOU1] Set DBS = CurrentDb Set QDF = DBS.QueryDefs("発行") With QDF .Parameters("DAT1") = DAT2　’もしかしたら　DAT2　ではエラーがでるかもしれません。 Set RST = .OpenRecordset()　’正しい記述を教えてください .Close End With With RST COUNT1 = !指示書 .Close End With

  • ACCESS2007でのDAO（？）につきまして

    お世話になっております。 ACCESSの件で色々教えて頂き、とても感謝しております。 つきましては、ACCESS2007で疑問に思える点がありましたので 以下に記述いたします。 あるACCESS2007のVBAの記述で Dim myDB As Database Dim myQueryDef As QueryDef なる変数定義がされているのを見たのですが 質問があります ＜質問１＞ 上記の定義はDAOを使用しているという事になるのでしょうか？ ＜質問２＞ DAOであるならば Dim myDB As DAO.Database Dim myQueryDef As DAO.QueryDef と記述するのが正しいのではないでしょうか？ （Option Explicitは記述してあります） 私には謝った記述に見えるのですが、動作 している理由がわかりません。 質問が変かもしれませんが、どなたか教えて 頂けるありがたいです。

  • ACCESS VBAからDAOを使ってのExcelファイル読み込みについて

    以前もお世話になりました。またよろしくお願いできますでしょうか。（OS: XP , Access 2003) 今回はACCESS VBA からDAOを使ってのExcelファイルの読み込みを試みています。 最初はTransferSpreadsheetを使ってうまく行っている様に見えたのですが、Quit及びSet XLApp=Nothingをちゃんとしていても、タスクマネージャーを開けると裏でEXCELが走っている状態でした。 他サイトで同じ現象の解決でAddNewが提案されており、そのサイトの例と他のDAOを使っている例を自分用にアレンジしてみました。 （他サイトのURL張っていいのかわからないので外しておきます） エラー１）Import元のファイルを開けていないと"External table is not in the expected format" でOpenDatabaseの行で止まります。これは仕様でしょうか？わざわざ Excel.Applicationなどで開けないと行けないということですか？ エラー２）"Run-time error 1004. Method 'Range' of object '_Global' failed"。ファイルを開けて実行した場合Rangeの所で止まります。Public subにしたりしましたが関係なかったようです。 申し訳ありませんが、アドバイスお願い致します。 ------- Sub loadToDB() Dim rs, rs2 As DAO.Recordset Dim db As DAO.Database Dim SheetName As String Set db = OpenDatabase("U:\projects\ABC\TestFile.xls", False, False, "Excel 8.0;")　 　’ファイルを開けていないとまずここで SheetName = db.TableDefs(0).Name Set rs = db.OpenRecordset(SheetName) Set rs2 = CurrentDb.OpenRecordset("TableA") Do Until rs.EOF rs2.AddNew rs!F1 = Range("A1").Value　　　’ファイル開けているとここで駄目です rs!F2 = Range("B1").Value rs!F3 = Range("C1").Value rs!F4 = Range("D1").Value rs2.Update rs.MoveNext Loop rs.Close Set rs = Nothing db.Close Set db = Nothing rs2.Close Set rs2 = Nothing End Sub

  • Ａｃｃｅｓｓ　ＶＢＡ（データを横並べで追加）について

    いつもお世話なっております。なかなか解決できなくて、ヘルプ求めにきました。 　OS- XP SP2 ACCESS2003 T1(テープル） ID　　　　店名 連番 ----------------------- 1 A 1 2 A 2 3 A 3 4 B 4 5 B 5 6 B 6 7 C 7 8 C 8 9 C 9 ---------------------------- T2(空) ID(オート)店名1　　店名2 ----------------------------- T1の店名をT2へ横並べて追加したいので、↓のようににソースを書きました。 希望結果↓ ID(オート)店名1　店名2 ----------------------- 1 A A 2 A B 3 B B 4 C C 5 C Private Sub コマンド0_Click() Dim db As DAO.Database Dim RS1 As Recordset Dim RS2 As Recordset Dim fld As Field Dim A As Integer Set db = CurrentDb() Set RS1 = db.OpenRecordset("T1", dbOpenTable) Set RS2 = db.OpenRecordset("T2", dbOpenTable) RS1.MoveFirst For A = 1 To RS1.RecordCount If RS1![連番] Mod 2 <> 0 Then RS2.AddNew RS2![店名1] = RS1![店名] ElseIf RS1![連番] Mod 2 = 0 Then RS2![店名2] = RS1![店名] RS2.Update End If RS1.MoveNext Next MsgBox "終わり", vbExclamation RS1.Close RS2.Close End Sub 質問1－自分のこの書き方でデータ店名のCが一つ消えてしまいます。原因を教えてください。 質問2－後、店名が変わる時、店1からスタートさせたいですが、どうすれば、いいんでしょうか。 希望結果↓ T2 ID　　　　店名1　　　店名2 ----------------------------- 1 A A 2 A 3 B B 4 B 5 C C 6 C

  • DAOでデータベースを二つ開くには？

    環境 Windows2000 VB6 DAOで同じデータベースを開くためのやり方がわかりません。 下記のようにマスタのキーを使用して他のテーブルの 内容を更新したいのですが よろしくお願いします。m(__)m Dim ws As Workspace Dim db As Database Dim qd As QueryDef Dim rs As Recordset Dim STRSQL As String dim strsql2 as string Set ws = DBEngine.Workspaces(0) Set db = ws.Databases(0) STRSQL = "SELECT KEY FROM マスタ" Set qd = db.CreateQueryDef("", STRSQL) Set rs = qd.OpenRecordset() Do While Not rs.EOF strsql2 = "Update data from マスタ where key = " & rs!key ???? rs.MoveNext Loop rs.Close qd.Close db.Close

  • DAO　フィルターをかけたい　エクセルです

    昨日も http://oshiete.coneco.net/qa8283354.html で質問し、nicotinism様にご回答いただいたのですが またわからなくなったので教えてください。 エクセルからアクセスでＤＡＯで接続した時に、 フィルタをかけて該当のレコードの他のフィールドの値を返すにはどうすればいいでしょうか？ ------------------------- Sub test() Dim ac As Object Dim db As DAO.database Dim DAOrs As DAO.Recordset Set ac = CreateObject("Access.Application") Set db = ac.DBEngine.OpenDatabase("PW.accdb", False, True, ";pwd=0000") Set DAOrs = db.OpenRecordset("select * from TPW") DAOrs.Filter = "サイト名 = " & "'nanaco'" MsgBox DAOrs("Password") DAOrs.Close: Set DAOrs = Nothing db.Close: Set db = Nothing ac.Quit: Set ac = Nothing End Sub ------------------------- これだとエラーにもならないけどフィルタがかかってない為、全然関係ないレコードの値を取得してしまいます。 再度ご回答いただければ助かります。 ご教授よろしくお願いします。

  • テーブルのリンク（ACCESS)

    ACCESS2003で下記の記述で「実行時エラー　’3219’ 無効な処理です。」というエラーメッセージがでます。 外部mdbでテーブルをリンクさせるとこのエラーがでます。同じmdbファイルにデータテーブルを置くと問題なく処理できます。 参照設定も過去ログを見てチェックしています。 Dim dbs As DAO.Database Dim rst As DAO.Recordset Set dbs = CurrentDb Set rst = dbs.OpenRecordset("テーブル名", dbOpenTable) ACCESS97では何の問題もなかったのですが, 2003ではうまくいきません。 どうかよろしくお願いします。

  • Access 2000 の VB での テーブル作成について質問です。

    下記のようにAccess 2000のVBからDAOを使ってテーブルを作っておりますが、 作るフィールドに規定値の設定もVBからできないのでしょうか？DAOだと無理なのでしょぅか？ 教えてください Dim db As DAO.Database Dim tbdef As DAO.TableDef Dim flID As DAO.Field Set db = CurrentDb Set tbdef = db.CreateTableDef("テーブル") Set flID = tbdef.CreateField("ID", dbInteger) 　　tbdef.Fields.Append flID 　　db.TableDefs.Append tbdef db.Close: Set db = Nothing

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する