VB初心者友の会 - 超初心者専用Q&A掲示板過去ログ

> そこで、既に作成されているAccessデータベース内の特定のテーブルを削除するためには、どのような
> コードをコーディングすれば良いのでしょうか？

DROP ステートメントのヘルプを見てね。

ぜんちゃん、こんにちは。

ご回答いただきありがとうございます。
> DROP ステートメントのヘルプを見てね。

ヘルプを見てみたのですが、英語で書かれているため何が何やら分かりません。
お手数をおかけしますが、具体的な方法を教えていただけませんか？

> ヘルプを見てみたのですが、英語で書かれているため何が何やら分かりません。
> お手数をおかけしますが、具体的な方法を教えていただけませんか？
えっ？なんで？
なんで英語なの？

もしかして、ＶＢ６でＡＤＯ使ってるんですか？
私のはＶＢ５のＤＡＯ3.5なんで参考になるかどうか・・・

とりあえず、ヘルプの使用例をそのまま載せておきます。

構文
DROP {TABLE table | INDEX index ON table}
DROP ステートメントには、次の指定項目があります。

指定項目	内容
table	削除するテーブルの名前、または削除するインデックスのあるテーブルの名前。
Index	引数 table から削除するインデックスの名前。
次の例では、データベースから Employees テーブルを削除します。

Sub DropX2()

	Dim dbs As Database

	' この下の行を、使用しているコンピュータ上の
	' Northwind のパスに変更してください。
	Set dbs = OpenDatabase("Northwind.mdb")

	' Employees を削除します。
	dbs.Execute "DROP TABLE Employees;"

	dbs.Close

End Sub

> ぜんちゃん、こんにちは。
> 
> ご回答いただきありがとうございます。
> > DROP ステートメントのヘルプを見てね。
> 
> ヘルプを見てみたのですが、英語で書かれているため何が何やら分かりません。
> お手数をおかけしますが、具体的な方法を教えていただけませんか？

「 DROP TABLE  削除したいテーブル; 」
とＳＱＬで記述すればＯＫ！
まあ、ＳＱＬを知らんと話になりませんが・・・・

ぜんちゃん、こんにちは。

ありがとうございました。
ぜんちゃんの言うとおり、VB6を使っています。(説明不足で申し訳ありません m(_._)m

お陰様で、上手くいきました。
ADOでは、若干異なる部分もありますが、基本的にはDAOと変わりなくできました。

ぜんちゃん、こんにちは。

度々で申し訳ありません。

> お陰様で、上手くいきました。
> ADOでは、若干異なる部分もありますが、基本的にはDAOと変わりなくできました。
と思ったのですが、何度もこの命令をかけると、「テーブルが存在しません！」と起こられてしまいます。

指定した、テーブルが存在するかどうかを確認するにはどうしたらいいのでしょうか？

> 指定した、テーブルが存在するかどうかを確認するにはどうしたらいいのでしょうか？

　DAOしかわかりませんが・・・
　常套手段として、
　Dim tbf As TableDef
　として、
　TableDefsコレクションの中をループで回して探し、
　If tbf.Name = <目的> Then
     tbf.Delete
　としています。

> 指定した、テーブルが存在するかどうかを確認するにはどうしたらいいのでしょうか？

ADOならOpenSchemaメソッドを使ってDB名を取得すればよろしいかと…
ヘルプにいい例があります。