|
はじめまして!!
今、VBAを勉強中です。
DBの中にある、個人データを名前から検索して出す。と言う、VBAを作っています。フォームの方は、何とかできたのですが、そこからオラクルに接続する方法がわかりません。サンプルソースをもらったのですが、いまいち解読できず、悪戦苦闘中です。どなたか、この方法を教えてください。下に載せたのがサンプルソースです。
Sub GetData(strPG As String)
On Error GoTo Err_Fnc
' ADOのオブジェクト変数を宣言する
Dim cnn As New ADODB.Connection
Dim rec As New ADODB.Recordset
Dim strID As String
Dim strPWD As String
Dim strSID As String
Dim strSQL As String
'接続情報の取得
strID = ActiveSheet.Cells(3, 3)
strPWD = ActiveSheet.Cells(4, 3)
strSID = ActiveSheet.Cells(5, 3)
' Oracleとの接続を確立する
cnn.Open "Provider=MSDAORA;" & _
"Data Source=" & strSID & ";", strID, strPWD
'ストアドの引数設定
strSQL = "begin "
strSQL = strSQL & strPG & ";"
strSQL = strSQL & "end;"
'ストアドを実行する。
Set rec = cnn.Execute(strSQL)
'終了メッセージ
MsgBox "データの登録が終了しました", vbOKOnly, "確認"
Exit_Fnc:
' 終了処理
cnn.Close
Set cnn = Nothing
Exit Sub
Err_Fnc:
'エラー処理
MsgBox "エラーが発生しました" & vbCrLf & Err.Number & ":" & Err.Description
Exit Sub
End Sub
|
|