![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
サンプルです。
※funcUpdate関数
BeginTransはしていましたか?
もし同じ処理を行っているのであれば、そちらの不具合の出ているソースを見せてください。
※getTableColumn関数
参照設定で
Microsoft ADO Ext. x.x for DDL and Srcurity
を指定しなければいけません。
Sub funcUpdate()
Dim adoCnn As ADODB.Connection
Dim strSQL As String
' 接続を確立する
Set adoCnn = New ADODB.Connection
adoCnn.Open "Provider=SQLOLEDB;Data Source=(local);Initial Catalog=pubs;", "sa", ""
'新規トランザクションを開始
adoCnn.BeginTrans
'レコードに何らかの変更を加えるSQL文を実行する
strSQL = "insert into table1 (test1,test2) values ('あ','い')"
adoCnn.Execute strSQL
If MsgBox("変更を行いますか?", vbOKCancel) = vbOK Then
'変更をすべて保存
adoCnn.CommitTrans
Else
'カレント トランザクションで行った変更内容をすべてキャンセルしてトランザクションを終了
adoCnn.RollbackTrans
End If
'開放
adoCnn.Close
Set adoCnn = Nothing
End Sub
Sub getTableColumn()
Dim adoCnn As ADODB.Connection
Dim adoRec As ADODB.Recordset
Dim adoxCat As ADOX.Catalog
Dim adoxTbl As ADOX.Table
Dim adoxClm As ADOX.Column
' 接続を確立する
Set adoCnn = New ADODB.Connection
adoCnn.Open "Provider=SQLOLEDB;Data Source=(local);Initial Catalog=pubs;", "sa", ""
'カタログにセット
Set adoxCat = New ADOX.Catalog
adoxCat.ActiveConnection = adoCnn
'テーブルループ
For Each adoxTbl In adoxCat.Tables
Debug.Print "******************************"
Debug.Print "テーブル[" & adoxTbl.Name & "]"
'カラムループ
For Each adoxClm In adoxTbl.Columns
Debug.Print " " & adoxClm.Name
Next adoxClm
Debug.Print "******************************"
Debug.Print
Next adoxTbl
'開放
adoCnn.Close
Set adoxCat = Nothing
Set adoCnn = Nothing
End Sub
参考URL:http://oshiete1.goo.ne.jp/kotaeru.php3?q=98371
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) EXCELの外部データ取得ができない 1 2023/03/23 09:03
- SQL Server [SQLServer] テーブル名からカラム名を取得する 1 2022/08/23 21:20
- その他(パソコン・スマホ・電化製品) 現在、Q-SL2を使用しています。Q-H1を接続しようとすると本体ソフトウェア確認中にエラーが発生し 1 2023/03/04 23:14
- その他(データベース) 更新クエリをリンクデータベーステーブルに実行し実行時エラー3362固有インデックスに重複する値が含ま 1 2022/09/21 11:44
- 物理学 コンデンサを並列接続とする見方がイマイチ理解できません。 等価回路を考えてみると、赤線が等電位という 4 2023/05/22 04:02
- Access(アクセス) access フォーム 大分類、小分類 1 2022/08/11 18:03
- FX・外国為替取引 MQL5にて謎のエラーが発生!だれか対処を教えてください! 1 2023/03/25 15:59
- SQL Server 大学でSQLの授業があるのですが全くわかりません。 表ではなく文で説明されているのですが調べても理解 6 2022/07/20 02:26
- Visual Basic(VBA) VBAでのMATCH関数 3 2022/10/17 19:06
- PostgreSQL DBFluteについて質問です。 環境:PostgreSQL java8 前提:webアプリケーショ 1 2022/07/07 00:49
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
IF文、条件分岐の整理方法
-
VBAコードのインデント表示
-
【ExcelVBA】値を変更しながら...
-
Excel VBA 選択範囲の罫線色の...
-
VBA 別ブックからコピペしたい...
-
時間短縮のために、テキストフ...
-
エクセルのマクロについて教え...
-
ワードVBA どの表か知ることは...
-
Excelのマクロについて教えてく...
-
Excelのマクロについて教えてく...
-
Excelのマクロについて教えてく...
-
Excelのマクロについて教えてく...
-
久しぶりのプログラミング
-
エクセルVBA
-
Excelのマクロについて教えてく...
-
VBA 別ブックから条件に合うも...
-
エクセルのVBAコードについて教...
-
エクセルのマクロについて教え...
-
エクセルのVBAコードについて教...
-
エクセルのマクロについて教え...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
[ASP]If~Else If~End If 対 Case
-
MoveNextの処理速度は?
-
Excel VBA マクロ処理 リンク先...
-
トランザクションとは何のこと...
-
リフレッシュ処理の意味を教え...
-
表面の導出
-
JDBCでのトランザクション・排...
-
VB & SQLサーバ
-
【プログラム】論理的思考のコツ
-
ステップ数について
-
ubuntuで デイスク/deb/loopと...
-
パソコンでインターネット接続...
-
プログラムの規模を表す単位「k...
-
ゆゆにゃ。
-
ライン数とステップ数の違いに...
-
ステップ数??
-
エラー?メッセージ
-
hdmiはパラレル?シリアル?
-
サブネットマスクが255.255.255...
-
VB6.0で #の意味
おすすめ情報