|
私は普段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
|
|