Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


35873 / 76732 ←次へ | 前へ→

【46050】エクセルとデータベースの連帯
質問  もんち  - 07/1/21(日) 22:48 -

引用なし
パスワード
   私は普段PHP&MYSQLのアプリケーションを開発しておりますが、この度友人からエクセルのみでのデータ管理をエクセル&アクセスでの管理に変えたいというので、試行錯誤中なのですが、色々調べて現状あるエクセルでのデータを一旦全てアクセスのmdbファイルにインポートし、そのデータを検索クエリ等を使い、エクセルのシートに抽出したいのですが、とりあえずネットで調べてDAOというものを使おうと思い、VBAの参照設定から、DAOをチェックして、以下のコードを見よう見真似で書いてみましたが、抽出条件でデータ型が一致しませんとエラーが出ます。
ちなみに変数のkokyakuNOはLong型で、テーブルのフィールドkokyakunoは数値型の長整数型にしております。
いまいちPHPとVBAと全く違う事が多くわからないのですが、よろしければご教授のほどよろしくお願いします。
あと、よろしければ、エクセルVBA&アクセスのテーブルの連帯や、クエリの書き方など、詳しく書いてあるサイト等があれば教えていただきたいです。


Dim moneyTotal As Currency
Dim kokyakuNO As Long
Dim dbobj As Database
Dim dbrecord As Recordset
Dim filename As String
Dim m As Field
Dim tsql As String
  
  kokyakuNO = Val(F請求業務.Textkode.Value)
  filename = "C:\Documents and Settings\aaa\aaa\aaa\aaa.mdb"
 
  Set dbobj = OpenDatabase(filename)
  tsql = "select * from T_kokyaku where kokyakuno = '" & kokyakuNO & "';"
  Set dbrecord = dbobj.OpenRecordset(tsql, dbOpenDynaset)

  Worksheets("請求印刷").Select
  Range("A6").CopyFromRecordset dbrecord

  dbrecord.Close
  dbobj.Close

2 hits

【46050】エクセルとデータベースの連帯 もんち 07/1/21(日) 22:48 質問
【46053】Re:エクセルとデータベースの連帯 かみちゃん 07/1/21(日) 23:15 発言
【46055】Re:エクセルとデータベースの連帯 かみちゃん 07/1/21(日) 23:29 発言
【46056】Re:エクセルとデータベースの連帯 Kein 07/1/21(日) 23:31 発言
【46065】Re:エクセルとデータベースの連帯 neptune 07/1/22(月) 11:55 発言

35873 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free