ADOでマスタ更新(SQL)
VBAでADOを使用し、マスターデータを更新します。
Sub sample1()
Dim objCn As New ADODB.Connection
Dim strSQL As
String
With objCn
.Provider =
"Microsoft.Jet.OLEDB.4.0"
.Properties("Extended Properties") = "Excel
8.0"
.Open ThisWorkbook.Path & "\" & ThisWorkbook.Name
End
With
strSQL = ""
strSQL = strSQL & " UPDATE
[顧客マスタ2$]"
strSQL = strSQL & " SET"
strSQL = strSQL & " 顧客名 =
'お名前'"
strSQL = strSQL & " WHERE"
strSQL = strSQL & " 顧客番号 =
12345"
objCn.Execute (strSQL)
objCn.Close
Set objCn =
Nothing
End Sub
※「参照設定」で「Microsoft ActiveX Data Objects 2.X
Library」を追加して下さい。
※Excel2007以降
.Provider = "Microsoft.ACE.OLEDB.12.0"
.Properties("Extended Properties") = "Excel 12.0"
こちらを使用してください。
Sub sample2()
Dim i As Long
On Error Resume Next
i =
Application.WorksheetFunction.Match(12345, Range("A:A"), 0)
If i > 0
Then
Cells(i, 2) = "お名前"
End If
On Error GoTo 0
End
Sub
または、Findメソッドを使うかでしょう。
同じテーマ「マクロVBAサンプル集」の記事
VBAでのCSVの扱い方まとめ
CSVの読み込み方法
CSVの読み込み方法(改)
CSVの読み込み方法(改の改)
CSVの読み込み方法(ジャグ配列)
CSVの読み込み方法(ジャグ配列)(改)
CSVの出力(書き出し)方法
UTF-8でCSVの読み書き(ADODB.Stream)
ADOでマスタ付加と集計(SQL)
ADOでマスタ更新(SQL)
ADOでCSVの読み込み(SQL)
新着記事NEW ・・・新着記事一覧を見る
抜けている数値を探せ|エクセル雑感(2022-07-01)
.Net FrameworkのSystem.Collectionsを利用|VBA技術解説(2022-06-29)
迷路ネコが影分身の術を体得したら…|エクセル雑感(2022-06-27)
迷路にネコが挑戦したら、どうなるかな…|エクセル雑感(2022-06-26)
サロゲートペアに対応した自作関数(Len,Left,Mid,Right)|エクセル雑感(2022-06-24)
「マクロの登録」で登録できないプロシージャーは?|エクセル雑感(2022-06-23)
オブジェクトのByRef、ByVal、Variant|エクセル雑感(2022-06-22)
コメントから特定形式の年月を取り出す|エクセル雑感(2022-06-19)
4,9を使わない連番作成|エクセル雑感(2022-06-17)
連番を折り返して出力|エクセル雑感(2022-06-16)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得(End,Rows.Count)|VBA入門
2.RangeとCellsの使い方|VBA入門
3.変数宣言のDimとデータ型|VBA入門
4.繰り返し処理(For Next)|VBA入門
5.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
6.Excelショートカットキー一覧|Excelリファレンス
7.マクロって何?VBAって何?|VBA入門
8.並べ替え(Sort)|VBA入門
9.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
10.エクセルVBAでのシート指定方法|VBA技術解説
- ホーム
- マクロVBA応用編
- マクロVBAサンプル集
- ADOでマスタ更新(SQL)
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。