Excel2013からAccess2013 accdbファイルを参照しデータを変更したい

最近の書き込み件数: 今日 0件、昨日 0件
未読分:1件

最新20件 最新50件 最新100件 最新200件 200件以前
昨日以降(0) 2日前以降(0) 3日前以降(0) 4日前以降(0) 5日前以降(0)


Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応

近田 伸矢, 植木 悠二, 上田 寛

IEのデータ収集&自動操作のプログラミング本はこの1冊だけ!IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。

Message#1 2015年2月5日(木)17時17分
From: ボラン
返事 削除 変更
今以下のようなコードでAccess2013にExcel2013からVBAでアクセスし、データをRecordsetで取得して編集しています。
やりたいことは、行単位でロックする、そして、Update前に、または、新規追加前に、レコードソースをロックし、エクセルを最初に開く時に取得したRecordsetの日付と、今の日付を比較して日付が同じなら、Update/Insert/Delete処理を実行するという処理を作りたいです。
この時、以下の
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.CursorLocation = adUseServer
の当り、これで良いのかどうか、使い方など教えて欲しいです。

よろしくお願いします。

■以下、ソースのサンプルです。↓
Public Cn As ADODB.Connection
Public Rs As ADODB.Recordset

Set Cn = New ADODB.Connection
'データベースに接続する
Cn.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;" _
& "Data Source=" & modPublic.DBPATH & ""
Cn.Open

SQL = "Select * from [K60施工会社管理テーブル]"
Set Rst = New ADODB.Recordset
With Rs
.ActiveConnection = Cn
.Source = SQL
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.CursorLocation = adUseServer
.Open
End With

■ソースのサンプル終わり

最新20件 最新50件 最新100件 最新200件 200件以前
昨日以降 2日前以降 3日前以降 4日前以降 5日前以降

ExcelのVBAについてのQ&A掲示板

↑ExcelのVBA全般について分からない事があればこちらの掲示板よりご質問ください^^

VBAのInternetExplorer操作入門

↑ExcelのVBAをマスターできたら、エクセルVBAのIE(InternetExplorer)操作にも挑戦してみてください^^

VBAのIE制御入門RSS

RSSフィードを登録すると最新記事を受け取ることができます。

VBAIE操作のスカイプレッスン

エクセルVBAのステートメント

こちらでは、エクセルVBAの事例で利用したステートメントをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

スポンサー リンク

エクセルVBAのオブジェクト

こちらでは、エクセルVBAの事例で利用したオブジェクトをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

スポンサー リンク

エクセルVBAのプロパティ

こちらでは、エクセルVBAの事例で利用したオブジェクトのプロパティをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

エクセルVBAのメソッド

こちらでは、エクセルVBAの事例で利用したオブジェクトのメソッドをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

エクセルVBAのイベント

こちらでは、エクセルVBAの事例で利用したオブジェクトのイベントをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

dmb.cgi Ver. 1.068
Copyright(C) 1997-2014, hidekik.com