スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

--.--.-- | | スポンサー広告

仕事メモ(レポート)

ACCDBではレポートをRecordSetで設定することができないのでストアドをそのまま使うことができません。
なのでクエリを作成する方法で~

Dim qdf As QueryDef
Dim ItemQdf As QueryDef
Dim mysql As String

Const QueryName = "クエリ名"
Const StrCON = "ODBC;DRIVER=SQL Server;SERVER=[サーバー名];UID=sa;PWD=;WSID=anywsid;DATABASE=[データベース名]"

mysql = "SELECT文(ストアドのSELECT文をここで記入)"

For Each ItemQdf In CurrentDb.QueryDefs
If ItemQdf.Name = QueryName Then
CurrentDb.QueryDefs.Delete QueryName
Exit For
End If
Next

Set qdf = CurrentDb.CreateQueryDef(QueryName)
qdf.Connect = StrCON
qdf.ReturnsRecords = True
qdf.SQL = mysql
qdf.Close
Set qdf = Nothing

これでクエリができるのでレポートのRecordSourceにクエリを指定して完成

2013.05.24 | | Comments(0) | Trackback(0) | メモ

コメント

コメントの投稿


秘密にする

«  | HOME |  »

プロフィール

ヤーン

Author:ヤーン
ギルドウォーズでちまちま遊んでます。
ネタが出来たらなんか書くはずです(ぇ
最近はROHANがメインに・・・・

カレンダー

09 | 2017/10 | 11
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 31 - - - -

ブログ内検索

FC2カウンター

著作権等

Guild Warsの画像に関する著作権
2005-2006 © Copyright ArenaNet Inc. and NCsoft Corporation. All Rights Reserved. Guild Wars and all associated Guild Wars logos and designs are trademarks of NCsoft Corporation. NCsoft, the interlocking NC logo, and all associated NCsoft logos and designs are trademarks or registered trademarks of NCsoft Corporation.NC Japan K.K. was granted by NCsoft Corporation the right to publish, distribute, and transmit Guild Wars in Japan.

Tower of AIONの画像に関する著作権
The Tower of AION(TM) is a trademark of NCsoft Corporation. Copyright (c) 2009 NCsoft Corporation. NC Japan K.K. was granted by NCsoft Corporation the right to publish, distribute and transmit The Tower of AION(TM) in Japan. All rights reserved.

R.O.H.A.Nの画像に関する著作権
(c) 2009 ROHAN by YNK JAPAN Inc. All Rights Reserved. (c) 2005-2009 ROHAN by YNK GAMES Inc. All Rights Reserved


上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。