Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7249 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【39864】アクセスデータ（WEB）の抽出 お力を！！ 06/7/3(月) 13:27 質問[未読]
【39875】Re:アクセスデータ（WEB）の抽出 Kein 06/7/3(月) 14:57 発言[未読]
【40334】Re:アクセスデータ（WEB）の抽出 お力を！！ 06/7/11(火) 17:33 お礼[未読]
【39881】Re:アクセスデータ（WEB）の抽出 お力を！！ 06/7/3(月) 15:20 質問[未読]
【39899】Re:アクセスデータ（WEB）の抽出 漂流民 06/7/3(月) 23:52 発言[未読]
【40333】Re:アクセスデータ（WEB）の抽出 お力を！！ 06/7/11(火) 17:31 お礼[未読]
【39864】アクセスデータ（WEB）の抽出
質問  お力を！！  - 06/7/3(月) 13:27 -
引用なし
パスワード
   現在、VBAでWEBに保存してあるアクセスより、データ抽出を行おうとしています。
sub sample13_10()
　dim mydb as databese,myrs as recordset,sql as string
　set mydb=opendatabase("C:\sample.mdb")
　sql="select*from住所録where住所like'東京*';"
　set myrs=mydb.openrecordset(sql)
　worksheets("sheet1").range("A1").copyfromrecordset myrs
　myrs.close
　mydb.close
end sub
*参考；Excel VBA完全制覇パーフェクト　田中　亨 著
アクセスからのデータ抽出は、上記VBAで理解をしたのですが、アクセスデータがWEB上に保存してある場合、どうしても抽出がうまくいきません。
どなたかアドバイスをお願いします。
【39875】Re:アクセスデータ（WEB）の抽出
発言  Kein  - 06/7/3(月) 14:57 -
引用なし
パスワード
   あまり詳しくないのですが、SQL文がおかしくないですか ?
スペースで区切るべきところを区切らないとダメなのでは・・?
【39881】Re:アクセスデータ（WEB）の抽出
質問  お力を！！  - 06/7/3(月) 15:20 -
引用なし
パスワード
   すいません、正しく記入します。

sub sample13_10()
　Dim myDB As Database, myRS As Recordset, sql As String
　set myDB = Opendatabase("C:\sample.mdb")
　sql = "select * from 住所録 WHERE 住所 Like '東京*';"
　Set myRS = myDB.OpenRecordset(sql)
　Worksheets("Sheet1").Range("A1").CopyFromRecordset myRS
　myRS.close
　myDB.close
End Sub

「C:\sample.mdb」を『http://〜〜〜/sample.mdb』
としても、うまく抽出をしてくれません。何か構文に間違いがあるのでしょうか？
それとも、根本的に何かが違うのでしょうか？
　
【39899】Re:アクセスデータ（WEB）の抽出
発言  漂流民  - 06/7/3(月) 23:52 -
引用なし
パスワード
   ▼お力を！！ さん：
こんばんわ

※返信は回答者に対して付けるようにして下さい。

>「C:\sample.mdb」を『http://〜〜〜/sample.mdb』
>としても、うまく抽出をしてくれません。何か構文に間違いがあるのでしょうか？
>それとも、根本的に何かが違うのでしょうか？
そのやり方では恐らくできないでしょう。
例）サーバーのＤドライブ直下にsample.mdbを置き、
Ｄドライブを共有設定にして、
「C:\sample.mdb」を『\\サーバーのＩＰアドレス\D\sample.mdb』
としてみて下さい。


ついでに、
>　myRS.close
>　myDB.close
最低限、オブジェクトは開放しましょう。
　myRS.Close
　Set myRS = Nothing
　myDB.Close
　Set myDB = Nothing
【40333】Re:アクセスデータ（WEB）の抽出
お礼  お力を！！  - 06/7/11(火) 17:31 -
引用なし
パスワード
   ▼漂流民 さん：

お力ありがとうございました。ご指摘どおり、私の勘違いでした。ありがとうございます。
【40334】Re:アクセスデータ（WEB）の抽出
お礼  お力を！！  - 06/7/11(火) 17:33 -
引用なし
パスワード
   ▼Kein さん：

ご指摘ありがとうございました。お礼が遅くなりましたが、あの後処理が出来ました。

確かに、一部構文エラーがありました。ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7249 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free