Toggle navigation
(株)SSKPC
SSPCのブログ
アクセス
お問い合わせ
各種記事
ソフト開発
ホーム
SqlServer データ追加、更新、削除
次の文書
'変数
Dim strSQL As String
'テストデータの追加
Public Sub InsTestData()
Dim db As New ADODB.Connection 'DB接続オブジェクト
Dim rs As New ADODB.Recordset 'データ取得オブジェクト
Dim strSEL As String
Dim Con As String
db.CommandTimeout = 0 'タイムアウト時間なし
'DB接続情報格納
Con = "Provider = SQLOLEDB;"
Con = Con & "DATABASE=SSKPC;"
Con = Con & "UID=DBUser01;"
Con = Con & "PWD=DBUser01;"
db.Open Con 'DB接続
'テストデータ追加SQL
'Dim Wkey As String
'Dim Wcount As Integer
'Dim W名称 As String
Wkey = "'XYZ5'"
Wcount = 88
W名称 = "'44'"
'strSQL = "INSERT INTO counter ([KEY],[count],[名称]) VALUES(" & Wkey & "," & Wcount & "," & W名称 & ")"
strSQL = "INSERT INTO counter VALUES(" & Wkey & "," & Wcount & "," & W名称 & ")"
On Error GoTo エラー処理
db.BeginTrans
db.Execute (strSQL) 'SQL文実行
db.CommitTrans
db.Close
Set cn = Nothing
MsgBox "終了しました"
Exit Sub
エラー処理:
db.RollbackTrans
db.Close
Set cn = Nothing
MsgBox "エラーで終了しました"
End Sub
'テストデータの更新
Public Sub UpdTestData()
Dim db As New ADODB.Connection 'DB接続オブジェクト
Dim rs As New ADODB.Recordset 'データ取得オブジェクト
Dim strSEL As String
Dim Con As String
db.CommandTimeout = 0 'タイムアウト時間なし
'DB接続情報格納
Con = "Provider = SQLOLEDB;"
Con = Con & "DATABASE=SSKPC;"
Con = Con & "UID=DBUser01;"
Con = Con & "PWD=DBUser01;"
db.Open Con 'DB接続
'画面描画の停止
'Application.ScreenUpdating = False
'テストデータ更新SQL
Wkey = "'XYZ3'"
Wcount = 99
W名称 = "'88'"
strSQL = "UPDATE counter SET count=" & Wcount & ",名称=" & W名称 & " WHERE [KEY]=" & Wkey
'SQL文実行
On Error GoTo エラー処理
db.BeginTrans
db.Execute (strSQL), W更新件数
db.CommitTrans
db.Close
Set cn = Nothing
MsgBox "終了しました 更新件数=" & W更新件数
Exit Sub
エラー処理:
db.RollbackTrans
db.Close
Set cn = Nothing
MsgBox "エラーで終了しました"
End Sub
'テストデータの削除
Public Sub DelTestData()
Dim db As New ADODB.Connection 'DB接続オブジェクト
Dim rs As New ADODB.Recordset 'データ取得オブジェクト
Dim strSEL As String
Dim Con As String
db.CommandTimeout = 0 'タイムアウト時間なし
'DB接続情報格納
Con = "Provider = SQLOLEDB;"
Con = Con & "DATABASE=SSKPC;"
Con = Con & "UID=DBUser01;"
Con = Con & "PWD=DBUser01;"
db.Open Con 'DB接続
'画面描画の停止
'Application.ScreenUpdating = False
'テストデータ更新SQL
Wkey = "'XYZ3'"
Wcount = 99
W名称 = "'88'"
'テストデータ削除SQL
On Error GoTo エラー処理
db.BeginTrans
strSQL = "DELETE FROM counter WHERE [KEY]=" & Wkey
'SQL文実行
db.Execute (strSQL), W削除件数
db.CommitTrans
db.Close
Set cn = Nothing
MsgBox "終了しました 削除件数=" & W削除件数
Exit Sub
エラー処理:
db.RollbackTrans
db.Close
Set cn = Nothing
MsgBox "エラーで終了しました"
End Sub
参考サイト https://itlogs.net/vba-database/
コメント入力欄
← 左の文字をここへ入力後 登録ボタンをクリックしてください
(サイト管理者承認後掲載されます)
サイト内記事検索
ExcelVBA
列文字変換
SqlServer データ追加、更新、削除
SqlServerからのデータ取得2
SqlServerからのデータ取得
SqlServerへの接続
列で並替え
メモリ不足
全モジュールで有効な変数の設定
InputBox ユーザ使用者の判断を仰ぐ
1次元 2次元 配列を使用する
改行を含む文字列の処理をするには
条件を満たしている間 繰返し処理を
一定回数 繰り返し処理を行う
値と比較し条件に応じて処理を行う2
値と比較し条件に応じて処理を行う1
変数の宣言と値の代入をする
VBAからセルに値を入力するには
セル範囲の幅高さを取得する
開発タブ(VBA)を表示するには
変数の値を確認する ウォッチ式
ブレイクポイントを設定する
ブックの一覧を取得する
数値の絶対値を取得する
指定フォルダのファイル名検索2
図を動かす
セルがクリックされた場所
楕円を書く
Excel2010 フォームコントロール チェックボックスの判定
Webカラーを作成する
IP検索1
IP検索3
IP検索2
ボタンの色
改ページ毎合計
リストボックス
指定フォルダのファイル名検索1
処理中のメッセージ
文字バイト数カウント
乱数を利用する
枠線の色を変える
文字列検索(部分一致)
文字列検索(全てが一致)
図のサイズ変更
図の削除(すべて)
図の削除(一部)
任意のブックが開いているか
ステータスバー(StatusBar)
文字列の分割(Split関数)
<
2024年5月
>
日
月
火
水
木
金
土
28
29
30
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
1
2
3
4
5
6
7
8