VBA(Access)でWebServiceを利用する
とりあえず、MSXML2.XMLHTTPを利用すればWebServiceにリクエストを投げてレスポンスが取得できるらしい。
最初に参考にさせていただいたサイトはここ
今回はAuth処理とかいらないのでその辺は削って使いました。
(Function化してるので引数など使ってますが、そこは記載していません。最後の初期化処理なども省略してますのでオブジェクトはNothingをセットして最後処理してあげてください)
'HTTP接続 With httpReq 'POST .Open "POST", pm_hogeUlr, False If pm_contentType <> "" Then .setRequestHeader ContentType, pm_contentType End If .send strParam '接続確認 If .Status <> HTTP_STATUS_OK Then strRes = "" Else Debug.Print .responseText strRes = .responseText End If End With
ところがWebServiceとの接続は上手くいっているのですが、XML文章としてこのあとMSXML2.DOMDocumentで変換すると上手くいかない。
怪しいXMLが返ってきてるのかなあ・・・。
猫型チョコその後
猫型チョコですが、予想外に好評でしたw
味の感想は、多分みなさん気を使ってのことかとは思いますが・・・(;´∀`)
形はやっぱり「かわいい!!」「食べられない!」とのこと。
来年は味をもうちょっと向上させて貰えないもんですかね・・・。
ムービーも取れるデジカメが欲しい
自宅で猫を撮影するには、スマフォのカメラじゃイマイチと思い始めました。
特にムービーとか全然ダメなので・・・。
ヨドバシに見に行ってみましたが、良く考えたら自分はデジカメとかビデオカメラとかまったく素人で意味がわからず・・・(;´Д`)
でネットで色々と検索してみたところ、自分の条件(欲しい性能・価格)に合致しそうなのが
パナソニック TZ30
でした。
Sonyとかもよさげなんですが、自分アンチSonyなんで却下・・・(;´∀`)ウフフ
まだ発売前なので、まだまだ調べようとは思っています。