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』
>としても、うまく抽出をしてくれません。何か構文に間違いがあるのでしょうか?
>それとも、根本的に何かが違うのでしょうか?
そのやり方では恐らくできないでしょう。
例)サーバーのDドライブ直下にsample.mdbを置き、
Dドライブを共有設定にして、
「C:\sample.mdb」を『\\サーバーのIPアドレス\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