削除、追加、更新処理に関して

質問

開発環境　Visual Basic 2008／ACCESS 2000

教えて下さい。

VBからACCESSを操作しようと思い、以下のような記述をしましたが、どうしても
以下のようなエラーとなってしまいます。

《記述内容》

'データベースファイル名
Dim sfina As String = "C:/sample.mdb"
'データベースパラメータ
'Dim strDatbasePara As String

'参照設定をしない
Dim myCon As Object, myRS As Object

'New キーワードを使用して新規ConnectionオブジェクトとRecordsetオブジェクトを生成
'**参照設定をしないのでCreateObject関数を使用する
myCon = CreateObject("ADODB.Connection")
myRS = CreateObject("ADODB.Recordset")

'接続
myCon.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sfina)

'接続先から「社員」テーブルの内容を読み込む
myRS.Open("table1", myCon)

Try

'テーブル全件削除（クリア）
Do Until myRS.EOF
myRS.Delete()　　　　※　ここでエラー
myRS.MoveNext()
Loop

Catch ex As Exception

Throw ex

smsg = "失敗しました。"
MessageBox.Show(smsg, "TEST", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

End Try

'Recordsetオブジェクトへの接続を閉じ、オブジェクトを破棄
myRS.Close() : myRS = Nothing
'データベースへの接続を切断し、オブジェクトを破棄
myCon.Close() : myCon = Nothing

《エラー内容》

　現在の Recordset は更新をサポートしていません。プロバイダーか、選択された
　ロックタイプの限界の可能性があります。

なぜ参照設定を使用しないかという事に関しては、他のクライアントでバージョン違い
があり、動作しないという現象があった為、このObject型を使って接続しようと
考えています。

この形でも削除、追加、更新ができるような記述の仕方を教えて下さい。

よろしくお願いします。

回答No.2

MARU4812 · ベストアンサー

> とはいえ、パラメータを追加すれば、参照設定をしていない為、エラーとなり、、、
> 上記の内容の件ですが、どのようにしたら良いでしょうか？？？
> 良い方法はないでしょうか
ちゃんと回答に書いてあるよ？
> Access のイミディエイトウィンドウで
> ?adopenkeyset としてEnterにて返り値を調べてください。
↑これが方法です。
回答者の言っていることが分かるようにもっと勉強してね。
結構基本的なことだよ、上記の回答は。

もっと本格的に調べるなら、
パラメータは定数ですので、オブジェクトブラウザで調べて自分で定数宣言
したものに置き換えます。
直接数値で書いても動くのですが、マジックナンバーは避けた方がいいです。
私は１つ、専用の名前空間とかクラスを用意しておいて、そこにまとめて
宣言しておいて、Imports の指定を変更する事で対応していますね。

参照設定ありのとき
Imports ADODB

参照設定なしのとき上記宣言を下記に変更
Imports AccessConst

Public Class AccessConst
Public Enum CursorTypeEnum As Integer
adOpenUnspecified = -1
adOpenForwardOnly = 0
adOpenKeyset = 1
adOpenDynamic = 2
adOpenStatic = 3
End Enum
End Class

どちらでもコードでは
CursorTypeEnum.adOpenKeyset と指定できる。

お礼

MARU4812様、お礼が遅くなり申し訳ありません。

教えて頂いたとおり実行したところ、問題なくできていました、、、

ありがとうございました！！！

回答No.1

nicotinism

>myRS.Open("table1", myCon)
省略しちゃってますのでReadOnly です。
http://www.accessclub.jp/ado/08.html

全件削除ならレコードセットを廻すよりも
mycon.execute("delete * from table1")
の方でも検討してみてください。
http://www.happy2-island.com/access/gogo04/capter01301.shtml

参照設定を行っていれば、自動メンバ表示などがされませんか？
作成中は参照設定を有効にしておいて
最後に参照設定を外して微調整ができませんかね。

adOpenKeyset・・・などの定数も参照設定を行ってないとエラーになるので
Access のイミディエイトウィンドウで
?adopenkeyset としてEnterにて返り値を調べてください。

補足

nicotinism様、ご回答ありがとうございます。

省略するとReadOnlyになってしまうのですね、、、

とはいえ、パラメータを追加すれば、参照設定をしていない為、エラーとなり、、、

参照設定ができればものすごく簡単ですが、参照設定はできず、、、

>最後に参照設定を外して微調整ができませんかね。

上記の内容の件ですが、どのようにしたら良いでしょうか？？？

良い方法はないでしょうか

教えて下さい。