Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


61561 / 76732 ←次へ | 前へ→

【19787】VBAをオラクルと接続しDBの結果を出した...
質問  みかん  - 04/11/17(水) 10:36 -

引用なし
パスワード
   はじめまして!!
今、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
0 hits

【19787】VBAをオラクルと接続しDBの結果を出した... みかん 04/11/17(水) 10:36 質問
【19797】Re:VBAをオラクルと接続しDBの結果を出した... Asaki 04/11/17(水) 13:54 回答
【19836】何とかなりました。しかし、またわからない... みかん 04/11/17(水) 17:40 お礼
【19837】Re:何とかなりました。しかし、またわから... Asaki 04/11/17(水) 17:55 回答
【19858】Re:何とかなりました。しかし、またわから... みかん 04/11/18(木) 9:14 質問
【19863】Re:何とかなりました。しかし、またわから... Asaki 04/11/18(木) 9:37 回答
【19865】Re:何とかなりました。しかし、またわから... みかん 04/11/18(木) 9:47 お礼
【19990】ありがとうございました!! みかん 04/11/22(月) 16:30 お礼

61561 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free