Wiki: /* 概要 */

2025-01-23T05:55:44Z

概要

@@ 1行目: / 1行目: @@
 == 概要 ==
 Visual Basic 6でODBCを使用する場合、一般的にADODB (ActiveX Data Objects) を使用する。<br>
 ADODBは、ODBCを含む様々なデータソースに対して統一的なインターフェースを提供している。<br>

Wiki: ページの作成:「== 概要 == Visual Basic 6でODBCを使用する場合、一般的にADODB (ActiveX Data Objects) を使用する。
ADODBは、ODBCを含む様々なデータソースに対して統一的なインターフェースを提供している。

代替手段として、RDO (Remote Data Objects) や DAO (Data Access Objects) も選択できるが、ADODBが最も一般的で機能が豊富である。

== SQL Server == ==== SQL Serverへの接…」

2025-01-23T05:44:54Z

ページの作成:「== 概要 == Visual Basic 6でODBCを使用する場合、一般的にADODB (ActiveX Data Objects) を使用する。 ADODBは、ODBCを含む様々なデータソースに対して統一的なインターフェースを提供している。 代替手段として、RDO (Remote Data Objects) や DAO (Data Access Objects) も選択できるが、ADODBが最も一般的で機能が豊富である。 == SQL Server == ==== SQL Serverへの接…」

新規ページ

== 概要 ==
Visual Basic 6でODBCを使用する場合、一般的にADODB (ActiveX Data Objects) を使用する。 
ADODBは、ODBCを含む様々なデータソースに対して統一的なインターフェースを提供している。 
 
代替手段として、RDO (Remote Data Objects) や DAO (Data Access Objects) も選択できるが、ADODBが最も一般的で機能が豊富である。 
 

== SQL Server ==
==== SQL Serverへの接続 ====
<syntaxhighlight lang="vb">
' SQL Serverへの接続を行う
Private Function ConnectDatabase() As ADODB.Connection
On Error GoTo ErrorHandler

Dim conn As New ADODB.Connection

' 接続文字列の設定
conn.ConnectionString = "Driver={SQL Server};" & _
"Server=<DBサーバ名>;" & _
"Database=<データベース名>;" & _
"Uid=<ユーザID>;" & _
"Pwd=<パスワード>;"

' データベースに接続
conn.Open

Set ConnectDatabase = conn
Exit Function

ErrorHandler:
MsgBox "データベース接続エラー:" & vbCrLf & Err.Description, vbCritical
Set ConnectDatabase = Nothing
End Function
</syntaxhighlight>
 
==== レコードの取得 ====
<syntaxhighlight lang="vb">
' レコードを取得する
Private Sub GetRecords()
On Error GoTo ErrorHandler

Dim conn As ADODB.Connection
Dim rs As New ADODB.Recordset

' データベースに接続
Set conn = ConnectDatabase()
If conn Is Nothing Then Exit Sub

' SQLの実行
rs.Open "SELECT * FROM <テーブル名> WHERE <条件式>", conn, adOpenStatic, adLockReadOnly

' 結果の処理
Do While Not rs.EOF
' ここでレコードの処理
Debug.Print rs.Fields("列名").Value
rs.MoveNext
Loop

CleanUp:
' リソースの解放
If Not rs Is Nothing Then
If rs.State = adStateOpen Then rs.Close
Set rs = Nothing
End If
If Not conn Is Nothing Then
If conn.State = adStateOpen Then conn.Close
Set conn = Nothing
End If
Exit Sub

ErrorHandler:
MsgBox "データ取得エラー:" & vbCrLf & Err.Description, vbCritical
Resume CleanUp
End Sub
</syntaxhighlight>
 
==== レコード更新 ====
<syntaxhighlight lang="vb">
' レコードを更新する
Private Sub UpdateRecord(ByVal ID As Long, ByVal NewValue As String)
On Error GoTo ErrorHandler

Dim conn As ADODB.Connection
Dim cmd As New ADODB.Command

' データベースに接続
Set conn = ConnectDatabase()
If conn Is Nothing Then Exit Sub

' コマンドの設定
With cmd
Set .ActiveConnection = conn
.CommandType = adCmdText
.CommandText = "UPDATE <テーブル名> SET <列名> = ? WHERE ID = ?"
.Parameters.Append .CreateParameter("@Value", adVarChar, adParamInput, 50, NewValue)
.Parameters.Append .CreateParameter("@ID", adInteger, adParamInput, , ID)
.Execute
End With

CleanUp:
' リソースの解放
If Not conn Is Nothing Then
If conn.State = adStateOpen Then conn.Close
Set conn = Nothing
End If
Exit Sub

ErrorHandler:
MsgBox "データ更新エラー:" & vbCrLf & Err.Description, vbCritical
Resume CleanUp
End Sub
</syntaxhighlight>
 
==== レコードの追加 ====
<syntaxhighlight lang="vb">
' レコードを追加する
Private Sub InsertRecord(ByVal Value1 As String, ByVal Value2 As Long)
On Error GoTo ErrorHandler

Dim conn As ADODB.Connection
Dim cmd As New ADODB.Command

' データベースに接続
Set conn = ConnectDatabase()
If conn Is Nothing Then Exit Sub

' コマンドの設定
With cmd
Set .ActiveConnection = conn
.CommandType = adCmdText
.CommandText = "INSERT INTO <テーブル名> (<列名1>, <列名2>) VALUES (?, ?)"
.Parameters.Append .CreateParameter("@Value1", adVarChar, adParamInput, 50, Value1)
.Parameters.Append .CreateParameter("@Value2", adInteger, adParamInput, , Value2)
.Execute
End With

CleanUp:
' リソースの解放
If Not conn Is Nothing Then
If conn.State = adStateOpen Then conn.Close
Set conn = Nothing
End If
Exit Sub

ErrorHandler:
MsgBox "データ追加エラー:" & vbCrLf & Err.Description, vbCritical
Resume CleanUp
End Sub
</syntaxhighlight>
 
==== レコードの削除 ====
<syntaxhighlight lang="vb">
' レコードを削除する
Private Sub DeleteRecord(ByVal ID As Long)
On Error GoTo ErrorHandler

Dim conn As ADODB.Connection
Dim cmd As New ADODB.Command

' データベースに接続
Set conn = ConnectDatabase()
If conn Is Nothing Then Exit Sub

' コマンドの設定
With cmd
Set .ActiveConnection = conn
.CommandType = adCmdText
.CommandText = "DELETE FROM <テーブル名> WHERE ID = ?"
.Parameters.Append .CreateParameter("@ID", adInteger, adParamInput, , ID)
.Execute
End With

CleanUp:
' リソースの解放
If Not conn Is Nothing Then
If conn.State = adStateOpen Then conn.Close
Set conn = Nothing
End If
Exit Sub

ErrorHandler:
MsgBox "データ削除エラー:" & vbCrLf & Err.Description, vbCritical
Resume CleanUp
End Sub
</syntaxhighlight>
 

{{#seo:
|title={{PAGENAME}} : Exploring Electronics and SUSE Linux | MochiuWiki
|keywords=MochiuWiki,Mochiu,Wiki,Mochiu Wiki,Electric Circuit,Electric,pcb,Mathematics,AVR,TI,STMicro,AVR,ATmega,MSP430,STM,Arduino,Xilinx,FPGA,Verilog,HDL,PinePhone,Pine Phone,Raspberry,Raspberry Pi,C,C++,C#,Qt,Qml,MFC,Shell,Bash,Zsh,Fish,SUSE,SLE,Suse Enterprise,Suse Linux,openSUSE,open SUSE,Leap,Linux,uCLnux,Podman,電気回路,電子回路,基板,プリント基板
|description={{PAGENAME}} - 電子回路とSUSE Linuxに関する情報 | This page is {{PAGENAME}} in our wiki about electronic circuits and SUSE Linux
|image=/resources/assets/MochiuLogo_Single_Blue.png
}}

__FORCETOC__
[[カテゴリ:その他]]

Visual Basic 6とデータベース - ODBC - 版の履歴

Wiki: /* 概要 */