質問日時: 2009/11/14 15:08 回答数: 2 件 PostgreSQLのDBに、SQL文を投げて、結果をシートに書きだす、というマクロを組みました。 しかし、A5などのソフトでこのSQL文を実行すると正しく結果が返ってくるのですが、下記のマクロで流そうとすると、. CommandText = Array(myCmd) 部分で"型が一致しません"とエラーを返します。 この原因がおわかりの方がいたら、是非教えて下さい。 netで調べたりしたけどわかりません。 ちなみに、マクロで、注意A)のSQL文を実行すると エラーなく実行できました。尚、下記のSQL文の改行は 見やすくするためにしているだけで、実際とは異なります。 また、SQL文を3つの変数に区切り、最後にmyCmdにドッキングして 実行したりもしましたがダメでした。 Sub test() Dim myCnc As String Dim myCmd As String ' 'ワークシートの追加 Sheets("ユーザー名簿") '接続先サーバーを指定 myCnc = "ODBC;DRIVER={PostgreSQL Unicode};DATABASE=" & t_name & ";SERVER=" & s_ver & ";PORT=5432;UID=" & user & ";;SSLmode=disable;ReadOnly=0;Protocol=7, " 'Select 文 myCmd = "SELECT t_syukka. order_dtl_id As 受注先コード, As 受注先 FROM t_nonyusaki, t_syukka, t_torihikisaki WHERE = And = t_syukka. juchusaki_id ukka_date >='20091120' ukka_date <='20091201'" With ( _ Connection:=myCnc, Destination:=Range("A5")). CommandText = Array(myCmd) = t_name. 型が一致しません winactor. Refresh BackgroundQuery:=False End With End Sub 注意A) "SELECT t_syukka. order_dtl_id As 受注先コード, As 受注先 ukka_date >='20091120' And ukka_date <='20091201'" 環境) DB:Linux PostgrSQL クライアント:WindowsXP, VISTA Office2007
VBAでのスクレイピング時にエラーが起こるパソコンがあります。 エラーが起きないパソコンもあり、対処法がさっぱりわかりません。 どなたかアドバイスお願いいたします。 プログラムが使えているパソコンの環境: ・Windows10 Home 64bit(32bitのパソコンでも確認済み) ・Excel 2016 32ビット ・Internet Explorer 11. 0.
質問日時: 2005/06/23 10:20 回答数: 3 件 ACCESS2000で、フォーム上にボタンを作り、そのボタンをクリック時に 以下のイベント プロシージャを実行させています。 Dim dbs As Database Dim rst As Recordset Set dbs = CurrentDb Set rst = Recordset("採番_相談者") Dim Number veFirst Number = rst! 相談者番号 Number = Number + 1 Me. 相談者NO = Number '相談者NOはフォーム上のテキストボックスです。 で上記 Set rst = Recordset("採番_相談者") の所で、「実行時エラー 13 型が一致しません」とエラーになります。 テーブル:採番_相談者は、オートナンバー型のIDフィールドと相談者番号という7桁のテキスト型で "1000001"が入っています。(ちなみに、数値型に変えても同じエラーでした。) 詳しい方教えてください。お願いします。 No. 3 ベストアンサー 回答者: AlexSuns 回答日時: 2005/06/23 11:34 #1さんの回答に同じく さらにソースの先頭に「Option Explicit」を記述するともっとベター このソースは、フォーム上の相談者NOテキストボックスに新規"相談者番号"を取得して表示すものでしょうか? (余計なおせっかいですが... Java - eclipse 型 はパッケージと一致しません - 解決方法. )ソースに省略箇所がありありなので、ちょっと修正 Dim dbs As base Dim rst As cordset Dim strSQL As String Dim Number As Integer strSQL = "select max(相談者番号) as max相談者番号 from 採番_相談者;" Set rst = Recordset(strSQL, dbOpenSnapshot) If IsNull(("max相談者番号")) Then Number = 1000001 Else Number = CInt(("max相談者番号")) Number = Number + 1 End If Me. 相談者 = Number 0 件 No. 2 O_cyan 回答日時: 2005/06/23 11:26 これはDAOの記述ですよね。 Access2000はADOがデフォルトなのでまずDAO X. X Object Libraryに参照設定して宣言部でrstを宣言するときにrstがDAOのレコードセットオブジェクトであることを明示的に宣言する必要があります。 のように またはADOで Dim Rst As New cordset として "採番_相談者", nnection, adOpenKeyset, adLockPessimistic でいけるのではと No.
これまでに作成したMHXの片手剣装備(MHXX 上位装備)のまとめです。気に入ったものがあったらテンプレ装備としてお使いください。 ※この記事は前作MHXの装備まとめです。MHXX版のG級装備は以下リンクよりどうぞ。 【MHXX】オススメの「片手剣」G級テンプレ装備 15パターンをまとめてみました! 1. 状態異常サポート 装備 2. 鈍器使い 装備 3. 会心特化 装備 4. 剣士汎用 装備 5. スキル特盛り 装備 6. 炎熱火力盛り 装備 7. バランス 装備 8. 会心属性強化 装備 9. 属性片手剣 装備 10.
後は護石でカスタムすればほぼこの装備で大丈夫だと思います! アカムトシリーズ一式のデータはコチラ ラグドスタバール用装備(見切り2、切れ味2、砥石、罠師) 発動スキル:見切り2、切れ味2、砥石、罠師 防御力 [558]/武器スロなし 頭装備:隼刃羽飾 胴装備:3スロ 腕装備:フィリアr 腰装備:ディノs 脚装備:ディノs お守り:匠5s3 お守り難易度やや高め。 条件同じ(会心刃薬、同じ肉質)の期待値では見切り3刃薬で100%超会心のナルガ剣を上回る物理火力。 弱点属性のバラける複数狩猟向け。 ソロならスタイリッシュに爆弾置ける。 エリアル・デスパラ運用装備(心眼、鈍器使い、スタミナ急速回復、砥石使用高速化、乗り名人) 発動スキル:心眼、鈍器使い、スタミナ急速回復、砥石使用高速化、乗り名人 防御力 [638]/余りスロ [0]/武器スロ[2] 頭装備:アカムトRサクパケ[1] 胴装備:ラギアRメイル [1] 腕装備:アカムトRサクンペ[1] 腰装備:EXレックスS [1] 脚装備:アカムトRケマル [2] お守り:研師6以上 [3] 装飾品:剣豪珠【1】x2、早気珠【1】x2、研磨珠【1】x2、乗慣珠【1】x5 耐性値:火[10] 水[2] 雷[-9] 氷[1] 龍[-20] コメント:スキルは、護石次第でかなり変えられます。
20 ID:ctBLRY13 Zの武器アクションは最高だったぞ モンスターはドスベースでもいいんだ そのままオフ用移植するか新エンジンでF2始めろ 12: 2021/07/14(水) 18:21:35. 27 ID:uc1BDVwl 3ベースでええぞ 段差いらんわ 13: 2021/07/14(水) 18:30:53. 50 ID:LZlefi1Z 非ホストプレイだと、ホスト(他人)の画面に映る自キャラが攻撃当てないと当たったことにならない そのくせ通信ラグは0. 5〜1秒(環境悪ければもっと)にもなるうえ、キャラの位置や向きなどは時間が経過しても多少ズレたまま こんな仕様がサ終まで続いてたんだからな そりゃ最終的にはソロゲーになるわな 16: 2021/07/14(水) 18:42:16. 07 ID:GI6SFBwE >>13 むしろそれ前提のラグ当てとかあったから面白かったぞ 14: 2021/07/14(水) 18:31:36. 35 ID:JQggGQeU G級失敗したからだよね? 17: 2021/07/14(水) 18:43:03. 20 ID:61n4wDDj メインシリーズとの差別化要素が減ったのとエンジンの厳しさ、開発コストに対するリターンの少なさが問題だったのが実態だよ モンハンのモンスターはどうしたってRPGのボス一体より工数かかるし工夫や既存モンスターとの差別化も求められる アクションメインでメインシリーズの基本ルールに則ったネトゲ、しかもメインもどんどん作品出す中で12年続いたのは快挙と言っていい 21: 2021/07/15(木) 02:41:56. 50 ID:rOVKBwfP 段差とか傾斜嫌いだしターン制だからF楽しかったけどな 22: 2021/07/15(木) 08:12:22. 61 ID:GRROTgJO 黒レイアあたりは本家で回収して欲しい 25: 2021/07/15(木) 08:30:47. 76 ID:/GeSsjtA で、総合的にフロンティア面白かったの? 34: 2021/07/15(木) 14:35:47. 74 ID:gVSaY2o/ >>25 武器アクションだけはシリーズで一番面白かった あとはクソ 27: 2021/07/15(木) 08:45:06. 17 ID:GAN1/0Uo 昔のモンハンは限られた人だけがオンラインで遊びその他大勢は仲間内でオフラインマルチをやるゲームだった でも時代が流れて今は誰でもオンラインで遊べる時代になった。もはやオンラインゲームとコンシューマーゲームの垣根は無くなった 今さらワールドベースのフロンティアを作る意味がない。ワールドそのものを遊べばいいだけだから 28: 2021/07/15(木) 09:10:01.