• ベストアンサー

データベースにアクセス

OSはWindows2000Serveを使用しています。 VB6でOracle8iのデータベースに接続してデータのやり取りを行いたいです。 Option Explicit Public OraSession As Object 'オラクルセッション用変数名 Public OraDatabase As Object 'オラクルデータベース用変数名 こういった標準モジュールをベースに考えています。 今回行いたいのはデータベースに接続してセレクト文で引っ張ってきたデータを表示させたいというものなのですがこういったごく簡単なサンプルコードはありませんでしょうか? インターフェース部分だけでよろしいのでよろしくお願いします。 またVBとオラクル関係の詳しく記述されているHPなんかがあればよろしく お願いします。

  • fm0606
  • お礼率13% (100/761)

質問者が選んだベストアンサー

  • ベストアンサー
  • Mizyu
  • ベストアンサー率41% (245/593)
回答No.2

VBとOracle、というより、VBとODBC、もしくはVBとoo4oてな感じでしょうか? 下記URLでVBとあらゆるDBとの繋ぎ目について記述されてます。参考にしてみてください。

参考URL:
http://homepage2.nifty.com/inform/vbdb/

その他の回答 (1)

  • hysteric5
  • ベストアンサー率28% (4/14)
回答No.1

Yahooで 『誰のためでもない Oracle』 と検索してみてください。 基本となる部分をなかなか詳しく説明されていると思います。

関連するQ&A

  • データ型について(oo4o)

    OraSession型ってバージョンによって 使えたり使えなかったりするんですか? 例えば下記のように記述してあるプログラムを Public OraSession As OraSession 'オラクルセッション用変数名 Oracle8i8.1.5では大丈夫だったのに、Oracle8i8.1.7にしたら Object型にしないと駄目だったんです。 OraSessionというデータ型は避けたほうがいいのでしょうか。 ちなみにVB5.0のプログラムをVB6.0でコンパイルしようと して起きた問題です。 VBとoo4oのバージョンの問題でもあるんでしょうか。

  • VB6でのPL/SQLの実行について

    現在VB6(SP6)でORACLEのデータベースに接続後、プロシージャを実行してOUTのパラメータを取得したいと思ってプログラムを作っております。 ORACLEへの接続はいろいろ調べてできたのですが、プロシージャの実行(呼び出し)のしかたがわからず困っております。 PL/SQL(プロシージャ名"TEST_DATA") out1 = TEST(OUTパラメータ1) out2 = これはテストです。(OUTパラメータ2) VB6(SP6) Dim OraSession As OraSession Dim OraDatabase As OraDatabase Dim OraDynaset As OraDynaset Dim P1 AS String Dim P2AS String '接続処理 Set OraSession = CreateObject("OracleInProcServer.XOraSession") Set OraDatabase = OraSession.OpenDatabase("TEST", "TEST/TEST DB_DEFAULT) OraSession.BeginTrans 'ここでPL/SQLを実行して、パラーメタを取得したいです。 '取得したパラメータをセット P1 = パラメータ1(TEST) P2 = パラメータ1(これはテストです。) OraSession.CommitTrans '結果表示 Call MsgBox(P1 & "結果" & P2) ご教授のほどをお願いいたします。

  • データベース更新時間を短くしたい

    環境 EXCEL2003-Oracle Database 11g Release 2 Client(11.2.0.1.0) for Microsoft Windows(32-bit) excelマクロでデータベース更新時間を短くする方法を教えていただきたく。 オラクルのデータベースに作業時間の実績が登録されるAシステムがあります。 このAシステムはBシステムと連携しています。 Bシステムのチームコード変更は10/6までに対応される予定で、 それと連携してAシステム側もチームコード変更が必要になります。 Aシステム側の変更は、いろんなテーブルにチームコードが関連しているので、 暫定対策として、AからBにデータを渡すテーブルのみチームコードを変更しようとしています。 OSQLというツールで実績のチームコードを変更してもよいのですが、 編集で開いてしまうと、実績収集が停止してしまう為、実績を変更するexcelマクロを作成しました。 ところが、実際に動かしてみると、とても長い時間がかかってしまいます。(10分程度) 下記がマクロです。 マクロはいろんなサイトから寄せ集めたもので、私はマクロに関しては全くの初心者です。 なので、実際のコードでどこをどの様に変更したらよいかを教えていただきたく。 Private Sub man_Click() 'MANテーブルから登録されている実績をダウンロードする Sheets("man_koshin").Select Call ClearmanDisp 'oo4o用のオブジェクト変数の宣言 Dim OraSession As Object 'セッション Dim OraDatabase As Object 'データベース Dim rs As Object 'データセット(レコードセット) Dim rownum As Long Dim colnum As Integer Dim ID As String Dim ED As Long Dim SQL_STR As String Application.ScreenUpdating = False 'sheet2のA1セルを参照し、接続先を切り替える ID = Sheets("sheet2").Range("A1") 'セッションオブジェクトの生成 Set OraSession = CreateObject("OracleInProcServer.XOraSession") '接続環境 'oo4oデータベースオブジェクトの生成(DBへUserID:im、パスワード:intで接続) Set OraDatabase = OraSession.OpenDatabase(ID, "im/int", 0&) 'MANテーブルから2013.10以降の実績を取得する Set rs = OraDatabase.CreateDynaset("select * from MAN where DATE > '201310'", 0&) 'フィールド名の表示 For colnum = 0 To rs.Fields.Count - 1 ActiveSheet.Cells(1, colnum + 2) = rs(colnum).Name Next 'データの表示 rownum = 0 Do Until rs.EOF For colnum = 0 To rs.Fields.Count - 1 ActiveSheet.Cells(rownum + 2, colnum + 2) = rs(colnum).Value Next rs.MoveNext rownum = rownum + 1 Loop 'オブジェクトのクローズ rs.Close '各種オブジェクトの開放 Set rs = Nothing Set OraDatabase = Nothing Set OraSession = Nothing 'チームコードをAからBに変更。チーム名称の置換処理 Cells.Replace What:="A", Replacement:="B", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False '変更したチーム名称でMANテーブルを更新 On Error GoTo ERR_HANDLER 'oo4o用のオブジェクト変数の宣言 Dim OraSession As Object 'セッション Dim OraDatabase As Object 'データベース Dim rs As Object 'データセット(レコードセット) Dim rownum As Long Dim colnum As Integer Dim ID As String Dim SQL_STR As String ID = Sheets("sheet2").Range("A1") 'oo4oセッションオブジェクトの生成 Set OraSession = CreateObject("OracleInProcServer.XOraSession") 'oo4oデータベースオブジェクトの生成(DBへUserID:ID、パスワード:intで接続) Set OraDatabase = OraSession.OpenDatabase(ID, "im/int", 0&) 'oo4oデータセット(レコードセット)の生成(全データを返すレコードセットの生成) Set rs = OraDatabase.CreateDynaset("select * from MAN", 0&) 'データの更新 For rownum = 2 To 20000 If ActiveSheet.Cells(rownum, 5) = "" Then Exit For End If '更新対象データの検索 rs.Findfirst ("TIME=" & ActiveSheet.Cells(rownum, 5)) '編集モードに設定 rs.Edit For colnum = 1 To rs.Fields.Count - 1 Select Case rs(colnum).Type Case 10 rs(colnum).Value = ActiveSheet.Cells(rownum, colnum + 2) Case 8 rs(colnum).Value = CDate(ActiveSheet.Cells(rownum, colnum + 2)) Case Else rs(colnum).Value = ActiveSheet.Cells(rownum, colnum + 2) End Select Next rs.update Next 'オブジェクトのクローズ rs.Close QUIT_OPER: 'オブジェクト変数用に確保したメモリの開放 Set rs = Nothing Set OraDatabase = Nothing Set OraSession = Nothing Exit Sub End Sub データの更新を20000件分としているのでこれが遅くなっている要因です。 1日700件くらい実績があがるので1ケ月で実働20000件あれば十分かと考えました。 チームコード変更は、まとめて月末に実施しようと思っていますが、 時間がかかるのであれば、週(20000件→5000件程度)あるいは日(20000件→800件程度)単位でやるしかないかと思っています。

  • セル値参照でデータベースから範囲抽出

    セル値を元にデータ抽出する内容でVBAが正しく動作せず困っています。 V_JISKDATEの列に下記の様に文字列日付が入っています。 201210010830 (2012年10月1日8時30分というデータです) 月単位でデータをEXCELに取り出したいので、 下記の様に範囲指定を実施しました。 これに関しては正しく動作します。 Set rs = OraDatabase.CreateDynaset("select * from T_MANHOUR_DETAILS where V_JISKSTDATE> '201210' AND V_JISKSTDATE <'201211'", 0&) 次に範囲指定をセル値から参照して実行させたいので、 セル値を変数扱いで下記内容を追加しました。 A10に201210 A11に201211 が入っています。 下記、追加及び変更部 Dim ST As String Dim Ed As String ST = Range("A10") Ed = Range("A11")   … where V_JISKSTDATE > 'ST' AND V_JISKSTDATE < 'ED'", 0&) これだとだんまりで正しく動作しません。 変数部の'を取り下記の様にすると、   … where V_JISKSTDATE > ST AND V_JISKSTDATE < ED", 0&) 実行時エラー'440': オートメーションエラーです。 とのエラーが出ます。 文字を<>で比較するのが怪しい感じがするのですが…。 どこを直せばよいのか教えていただきたく。 下記は10月分が正しく抽出される全文です。 ---------------------------------------------------------- Private Sub btnGetDataoo4o_Click() 'oo4o用のオブジェクト変数の宣言 Dim OraSession As Object 'セッション Dim OraDatabase As Object 'データベース Dim rs As Object 'データセット(レコードセット) Dim rownum As Long Dim colnum As Integer 'セッションオブジェクトの生成 Set OraSession = CreateObject("OracleInProcServer.XOraSession") 'oo4oデータベースオブジェクトの生成(DBへUserID:ID、パスワード:PWで接続) Set OraDatabase = OraSession.OpenDatabase(ActiveSheet.Cells(26, 1), "ID/PW", 0&) 'oo4oデータセット(レコードセット)の生成(全データを返すレコードセットの生成) Set rs = OraDatabase.CreateDynaset("select * from T_MANHOUR_DETAILS where V_JISKSTDATE> '201210' AND V_JISKSTDATE <'201211'", 0&) 'すでに表示されている内容のクリア Call ClearDisp 'フィールド名の表示 For colnum = 0 To rs.Fields.Count - 1 ActiveSheet.Cells(2, colnum + 3) = rs(colnum).Name Next 'データの表示 rownum = 0 Do Until rs.EOF For colnum = 0 To rs.Fields.Count - 1 ActiveSheet.Cells(rownum + 3, colnum + 3) = rs(colnum).Value Next rs.MoveNext rownum = rownum + 1 Loop 'セル幅の自動調整 ' ActiveSheet.Columns("B:AU").EntireColumn.AutoFit 'オブジェクトのクローズ rs.Close '各種オブジェクトの開放 Set rs = Nothing Set OraDatabase = Nothing Set OraSession = Nothing End Sub ---------------------------------------------------------- EXCEL2003 ORACLE V9.0です

  • EXCEL VBAでデータベース更新

    OFFICE2010 ORACLE 9.1 あるサーバ(A)にあるデータを(B)にコピーする方法を教えていただきたく。 サーバ(A)には、オーダ情報が毎日登録されます。 サーバ(B)は、ソフト開発用に用意されていたサーバで、 このサーバを利用して、EXCEL連携でデータ参照したいと思っています。 EXCEL VBAでサーバ(A)、サーバ(B)両方とも連携可能なので、 直接サーバ(A)を参照すればデータ自体は見られます。 しかし、他部門にツールとして渡すので、データベースを壊されたら困るので、 サーバ(B)を参照サーバとして利用したいというおもいです。 実施したいのは、 サーバ(A)のinfoというテーブルから サーバ(B)のinfoというテーブルへデータを更新する方法。 サーバ(A)とサ-バ(B)の差分を更新する方法もあるかと思いますが、 サーバ(A)は、レコード自体が更新されていくので、 サーバ(B)のinfoデーブルの内容を全て削除してから、 サーバ(A)のinfoテーブルの内容をコピー という方法を教えていただきたく。 参考に、下記はサーバ(A)のinfoテーブルから全レコードを取得するマクロです。 Private Sub receive_Click() Application.ScreenUpdating = False 'oo4o用のオブジェクト変数の宣言 Dim OraSession As Object 'セッション Dim OraDatabase As Object 'データベース Dim rs As Object 'データセット(レコードセット) Dim rownum As Long Dim colnum As Integer 'セッションオブジェクトの生成 Set OraSession = CreateObject("OracleInProcServer.XOraSession") 'oo4oデータベースオブジェクトの生成(サーバA) Set OraDatabase = OraSession.OpenDatabase("A", "name/password", 0&) 'oo4oデータセット(レコードセット)の生成(全データを返すレコードセットの生成) Set rs = OraDatabase.CreateDynaset("select * from info", 0&) 'すでに表示されている内容のクリア Call ClearDisp 'フィールド名の表示 For colnum = 0 To rs.Fields.Count - 1 ActiveSheet.Cells(2, colnum + 2) = rs(colnum).Name Next 'データの表示 rownum = 0 Do Until rs.EOF For colnum = 0 To rs.Fields.Count - 1 ActiveSheet.Cells(rownum + 3, colnum + 2) = rs(colnum).Value Next rs.MoveNext rownum = rownum + 1 Loop 'セル幅の自動調整 ActiveSheet.Columns("B:I").EntireColumn.AutoFit 'オブジェクトのクローズ rs.Close '各種オブジェクトの開放 Set rs = Nothing Set OraDatabase = Nothing Set OraSession = Nothing Application.ScreenUpdating = True End Sub B2からBI2までがタイトル B3からBI10000くらいまでデータがあります。 D2列がシリアル番号になっており、同じ番号は登録されません。 マクロ、全くの初心者です。 ベタのコードで教えていただきたく。 上記マクロは、ホームページに記載されていたものを分かる範囲で変更したものです。 サーバ(B)からのデータ取得はAがBになるだけです。 'oo4oデータベースオブジェクトの生成(サーバB) Set OraDatabase = OraSession.OpenDatabase("B", "name/password", 0&) ※A,Bは実際のサーバ名ではありません。

  • oracleを利用できません。(global.asa利用)

    asp + oracle + oo4oをglobal.asaファイルを利用して プログラムを組むことになりまして、ネットでサンプルファイルを見つけまして 実行したところエラーになっていまいます。 サンプルは以下の通りです。 ----global.asa--- 'OO4O用の設定 <OBJECT RUNAT=Server SCOPE=Application ID=OraSession PROGID="OracleInProcServer.XOraSession"> </OBJECT> <SCRIPT LANGUAGE=VBScript RUNAT=Server> Sub Session_OnStart 'OO4O用の設定(Net*8を使用してOracle8に接続する) Set Session("OraDatabase") = OraSession.DbOpenDatabase("sun151_ora803", "scott/tiger", Clng(3)) Set Session("OraDynaset") = Session("OraDatabase").DbCreateDynaset("select * from emp order by empno", Clng(4)) End Sub Sub Session_OnEnd Set Session("OraDynaset") = Nothing Set Session("OraDatabase") = Nothing End Sub </SCRIPT> ---global.asaここまで--- ---emp_o1.asp--- <%@ LANGUAGE="VBSCRIPT" %> <HTML> <HEAD> <TITLE>emp_o1.asp</TITLE> </HEAD> <BODY> <% '変数の設定 Dim OraDatabase Dim OraDynaset Dim OraFields Dim fieldNum Dim recNum Set OraDatabase = Session("OraDatabase")   ↑ここでエラーがでます。(line17) Set OraDynaset = Session("OraDynaset") --以下略 ---emp_o1.aspここまで--- エラーとして エラー タイプ Microsoft VBScript 実行時エラー (0x800A01A8) オブジェクトがありません。: '[undefined]' /rhc/emp_o1.asp, line 17 というのが出てしまいます。 VBとoracleの経験はあるのですが、aspは今回初めてです。 しょうもない質問かもしれませんが、どなたかよろしく お願いいたします。

  • 01722 数値が無効です

    ドラえもん 2012-10-29(月) 10:30 ホームページで公開されていたVBAを流用して、EXCELからデータベースの更新、削除をしようとしています。 データベースの更新に関してはうまく動作するのですが、データ削除を実施すると、 440)データをフェッチ中にエラーが発生しました。ORA-01722数値が無効です。 というエラーが発生してしまいます。 01722のエラー内容をホームページ並びに、本サイトで検索したのですが、 データの型が違うという内容で、類似の内容が無い状況でした。 型が違うという内容に対して、何をどうしたらよいかが分かりません。 コーディングのミスを指摘いただきたく よろしくお願いいたします。 VBAまったくの初心者です。 下記は、マクロの構成です。 (1)B3からR***の領域にデータベースからダウンロードしたデータが表示される。  ***は列数でデータベースの項目数で変化する (2)B2からR2には項目名称が表示されている。 (3)編集用の領域はT2からAJ2に(2)と同じ項目名を表示する。 (4)編集用のデータ領域はT3からAJ20まで。 ※ID並びにパスワードは実際のものから変更しています。  ORACLE9.0 EXCEL2003 ------------------------------------------------------------- '「データの削除」ボタン押下後の処理 ' oo4o使用時 Private Sub btnDeleteDataoo4o_Click() On Error GoTo ERR_HANDLER 'oo4o用のオブジェクト変数の宣言 Dim OraSession As Object 'セッション Dim OraDatabase As Object 'データベース Dim rs As Object 'データセット(レコードセット) Dim rownum As Long Dim colnum As Integer Dim sSQL As String '削除対象のみを抽出するSQL文の作成 sSQL = "select * from M_TOOL_MEISAI where LINECD=" & ActiveSheet.Cells(3, 20) For rownum = 4 To 20 If ActiveSheet.Cells(rownum, 20) = "" Then Exit For End If sSQL = sSQL & " OR LINECD=" & ActiveSheet.Cells(rownum, 20) Next 'oo4oセッションオブジェクトの生成 Set OraSession = CreateObject("OracleInProcServer.XOraSession") 'oo4oデータベースオブジェクトの生成(DBへUserID:○、パスワード:×で接続) Set OraDatabase = OraSession.OpenDatabase(ActiveSheet.Cells(26, 1), "○/×", 0&) 'oo4oデータセット(レコードセット)の生成(削除対象データのみを返すレコードセットの生成) Set rs = OraDatabase.CreateDynaset(sSQL, 0&) 'レコードセット内の全レコードの削除 Do Until rs.EOF rs.Delete rs.MoveNext Loop 'オブジェクトのクローズ rs.Close 'データ表示の更新 btnGetDataoo4o_Click QUIT_OPER: 'オブジェクト変数用に確保したメモリの開放 Set rs = Nothing Set OraDatabase = Nothing Set OraSession = Nothing Exit Sub ERR_HANDLER: 'エラー処理 'エラー番号とエラー内容の表示 MsgBox Err.Number & ")" & Err.Description Err.Clear GoTo QUIT_OPER End Sub ------------------------------------------------------------------------------- 以上がエラーが発生するVBA 下記は、更新処理で正しく動作するVBA ------------------------------------------------------------------------------- '「データの更新」ボタン押下後の処理 ' oo4o使用時 Private Sub btnUpdateDataoo4o_Click() On Error GoTo ERR_HANDLER 'oo4o用のオブジェクト変数の宣言 Dim OraSession As Object 'セッション Dim OraDatabase As Object 'データベース Dim rs As Object 'データセット(レコードセット) Dim rownum As Long Dim colnum As Integer 'oo4oセッションオブジェクトの生成 Set OraSession = CreateObject("OracleInProcServer.XOraSession") 'oo4oデータベースオブジェクトの生成(DBへUserID:○、パスワード:×で接続) Set OraDatabase = OraSession.OpenDatabase(ActiveSheet.Cells(26, 1), "○/×", 0&) 'oo4oデータセット(レコードセット)の生成(全データを返すレコードセットの生成) Set rs = OraDatabase.CreateDynaset("select * from M_TOOL_MEISAI", 0&) 'データの更新 For rownum = 3 To 20 If ActiveSheet.Cells(rownum, 20) = "" Then Exit For End If '更新対象データの検索 rs.Findfirst ("LINECD=" & ActiveSheet.Cells(rownum, 20)) '編集モードに設定 rs.Edit For colnum = 1 To rs.Fields.Count - 1 Select Case rs(colnum).Type Case 10 rs(colnum).Value = ActiveSheet.Cells(rownum, colnum + 20) Case 8 rs(colnum).Value = CDate(ActiveSheet.Cells(rownum, colnum + 20)) Case Else rs(colnum).Value = ActiveSheet.Cells(rownum, colnum + 20) End Select Next rs.Update Next 'オブジェクトのクローズ rs.Close 'データ表示の更新 btnGetDataADO_Click QUIT_OPER: 'オブジェクト変数用に確保したメモリの開放 Set rs = Nothing Set OraDatabase = Nothing Set OraSession = Nothing Exit Sub ERR_HANDLER: 'エラー処理 'エラー番号とエラー内容の表示 MsgBox Err.Number & ")" & Err.Description Err.Clear GoTo QUIT_OPER End Sub

  • vbからoracleへの接続

    vbからoracleへの接続について教えて下さい。 ORACLEデータベースにoo4oを使って接続をしているのですが、Oracleクライアントをインストール済みのPCでは何ら問題なく接続できます。 OracleクライアントをインストールしていないPCではエラーメッセージがでてしまいます。 処理はこんな感じです... Public ssOra As Object       Public dbOra As OraDatabase Public dynOra As OraDynaset Set ssOra = CreateObject("OracleInProcServer.XOraSession") Set dbOra = ssOra.OpenDatabase("HRH", "HRH00/HRH00", 0&) Set dynOra = dbOra.DbCreateDynaset("select * from 消耗品_注文履歴", 0&) Set ssOra... のところでエラーとなってしまいます。エラー内容は ********実行時エラー'429'***************************** ActiveXコンポーネントはオブジェクトを作成できません ************************************************** activeX,oracle関連のDLLファイルは参照設定に登録しています。 これを解決するためにはOracleクライアントをインストールするしかないのでしょうか? また、インストールしたらエラーは本当になくなるのでしょうか? 皆様宜しくお願いします。 ちなみにクライアントPCはOS:WIN95 oracleバージョン8.1.7です

  • ASPでoo4o接続ができません。

    WindowsXPpro(IIS6.0) + Orale9i + ASPで開発をしていますが、 oo4o接続がうまくいかず困っています。 IISとDBサーバは同マシン内の同ドライブ(C)にあり、 現在、やむを得ず、DBサーバにて開発を行っています。 色々調べ、以下のことは全て試してみましたが、 どうしても以下のエラーが出てしまいます。 なお、VB6.0で同じDBにoo4oで接続するサンプルを作って試しましたが、 そちらはうまくいきました。 わかる方、どうかご教授ください。 【試したこと&確認したこと】 ・oo4oはインストールされている ・oip9.dll のレジストリ登録(念のため) ・ora92フォルダに、インターネットゲストアカウントの  読み取り実行&書き込みのアクセス許可を与える  (ちなみにフルコントロール許可を与えてもダメでした) ・SQLNET.oraファイルを以下のように書き換え  SQLNET.AUTHENTICATION_SERVICES= (NONE) 【global.asa】 <OBJECT RUNAT=Server SCOPE=Application ID=OraSession PROGID="OracleInProcServer.XOraSession"> </OBJECT> <SCRIPT LANGUAGE=VBScript RUNAT=Server> Sub Session_OnStart 'OO4O用の設定(Net*8を使用してOracle8に接続する) Set Session("OraDatabase") = OraSession.DbOpenDatabase ("sun151_ora803", "scott/tiger", Clng(3)) Set Session("OraDynaset") = Session ("OraDatabase").DbCreateDynaset("select * from emp order by empno", Clng(4)) End Sub Sub Session_OnEnd Set Session("OraDynaset") = Nothing Set Session("OraDatabase") = Nothing End Sub </SCRIPT> 【エラー内容】 Microsoft VBScript 実行時エラー (0x800A01FB) 例外が発生しました。: 'OraSession.DbOpenDatabase'

  • オラクルのグローバルデータベース名について

    グローバルデータベース名またはSIDはどこに設定されているのでしょうか?環境変数?レジストリ? 問題はOracle8iをアンインストールしてOracle9iのインストール時に同じグローバルデータベース名もしくはSIDがありますというエラーメッセージが出てしまいます。同じ名称でDBを作成したいのですが。 アドバイスお願いします。

専門家に質問してみよう