• 締切済み

Commandオブジェクトについて

VBをやった事の無い私が、会社でプログラムを組むことになってしまい、今、困っています。 ADOを使ってSQLに接続する場合、RecordsetやConnection、Commandなどのオブジェクトがありますよね？ 会社で渡されたサンプルには、 /////////////////////////////////////////////// Dim rc As New ADODB.Recordset Dim cmd As New ADODB.Command 　・ 　・ 　・ cmd.ActiveConnection = a_db cmd.CommandText = "SELECT * FROM AA_DATA" rc.Open cmd 　・ 　・ 　・ /////////////////////////////////////////////// ↑こんな感じにCommandオブジェクトを使用しているのですが、参考書などのサンプルを見ると、Commandオブジェクトをあまり使っていないように思えます。 私は、Commandオブジェクトを使用しなくても接続できると解釈したのですが・・・。 何故Commandオブジェクトを使用するのでしょうか？ Commandオブジェクトを使用することによって、何かメリットがあるのでしょうか？ 本当に初心者質問で申し訳ありません。 MSDNのヘルプや参考書を見てもわからないんです。 どなたか分かりやすく教えてください。 よろしくお願いいたします！

  • dizzy
  • お礼率95% (47/49)

みんなの回答

  • muran
  • ベストアンサー率31% (12/38)
回答No.1

きちんと検証したわけではないので、自信はないのですが・・・ データの更新は、 CommandオブジェクトでもConnectionオブジェクトのどちらにも 更新メソッドがありますので、どちらでも可能です。 それと、Commandオブジェクトでないとできない処理 (例えばストアドプロシージャ呼出) もあるのでそういった違いでしょうか・・・ 処理内容は同じでも速度の違いもあるようです 1回きりの処理だったらConnectionオブジェクト使用のほうが速く、 2回以上同じ処理を繰り返すのであればCommandオブジェクトのほうが速いそうです。 メモリ上に処理内容を残すか残さないかとか、 そういう違いだと聞いたことがあります。 あまり自信ないのですが、何かのお役に立てれば幸いです

dizzy
質問者

お礼

御礼が遅くなりました！ なるほど、そういう違いなのですか・・・。 やっぱり、Commandオブジェクトを使用した方が良いのでしょうか。 今は、Commandオブジェクトがまだ良く分かっていないので、Commandオブジェクトを使わないでやっていますが・・・。 ともかく、アドバイスありがとうございました！ 参考にします！！

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • レコードの削除

    VB6.0　ACCESSで開発しています。 t_nyukoテーブルのデータを全て削除するのは下記のように 出来たのですが dataGridに表示されているものを1つ選択し 選択されたものだけ削除したいのですがどうすればいいのでしょうか？ よろしくお願いします。 Private Sub Command1_Click() Dim cn As New ADODB.Connection Dim cmd As ADODB.Command Dim cat As New ADODB.Command Dim strSQL As String 　 Set cn = New ADODB.Connection cn.ConnectionString = _ "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=C:\temp\db2.mdb" cn.Open cat.ActiveConnection = cn strSQL = "DELETE FROM t_nyuko " Set cmd = New ADODB.Command cmd.ActiveConnection = cn cmd.CommandText = strSQL cmd.Execute cn.Close Set cmd = Nothing Set cn = Nothing Set cat = Nothing End Sub

  • エクセルVBAの処理速度アップについて

    以下のエクセルVBAを組んでいるのですが、処理の速度をあげたいです。 無駄な記述があると思うのですが、調べても試行錯誤しても、上手くいきません。 処理速度をあげる記述をご教示願います。よろしくお願い申し上げます。 ※別ファイルのAccessファイルをデータベースとして、「今年」テーブルと、「前年」テーブルそれぞれから条件抽出して、受注数量を合計させるものです。 ※SQLのVBAです。なお、実際ファイルのVBAは、以下記述の５倍量あります（内容は、セル範囲が違うだけで同じ。現在速度：約３０秒）。 ※「配列」というのを活用すれば速くなるようなのですが、理解できませんでした。。。 ーーーー【以下、VBA】－－－－－－－－－－－ Sub DSUM集計() Application.ScreenUpdating = False Dim db As ADODB.Connection Dim rs As ADODB.Recordset Dim mySQL As String Dim cmd As ADODB.Command Dim AA As Variant AA = "AND 営業箇所" & Range("C13") & " AND 拒 IS NULL AND 販売伝票 <" & Range("D13") & " AND 品名 " & Range("E13") & " AND 得意先名 " & Range("F13") & " AND 請求先名 " & Range("G13") & " AND 出荷先名 " & Range("H13") Set db = New ADODB.Connection db.Provider = "Microsoft.Ace.OLEDB.12.0" db.Open "\\▲▲▲\ACCESS.accdb" With Worksheets("補助計算") mySQL = " SELECT SUM(受注数量) FROM 今年 " mySQL = mySQL & "WHERE 納入期日=" & Range("B13") & AA Set rs = New ADODB.Recordset Set cmd = New ADODB.Command Set cmd.ActiveConnection = db cmd.CommandText = mySQL Set rs = cmd.Execute Range("I13").CopyFromRecordset rs mySQL = " SELECT SUM(受注数量) FROM 今年 " mySQL = mySQL & "WHERE 納入期日=" & Range("B14") & AA Set rs = New ADODB.Recordset Set cmd = New ADODB.Command Set cmd.ActiveConnection = db cmd.CommandText = mySQL Set rs = cmd.Execute Range("I14").CopyFromRecordset rs mySQL = " SELECT SUM(受注数量) FROM 前年 " mySQL = mySQL & "WHERE 納入期日=" & Range("K14") & AA Set rs = New ADODB.Recordset Set cmd = New ADODB.Command Set cmd.ActiveConnection = db cmd.CommandText = mySQL Set rs = cmd.Execute Range("M14").CopyFromRecordset rs 　　 mySQL = " SELECT SUM(受注数量) FROM 前年 " mySQL = mySQL & "WHERE 納入期日=" & Range("K15") & AA Set rs = New ADODB.Recordset Set cmd = New ADODB.Command Set cmd.ActiveConnection = db cmd.CommandText = mySQL Set rs = cmd.Execute Range("M15").CopyFromRecordset rs rs.Close Set rs = Nothing Set db = Nothing Application.ScreenUpdating = True End With End Sub ーーーーーーーーーーーーーーーーーーーー 以上

  • ACCESS2010でSELECTの問題

    ACCESS初心者です。 既にレコードが存在すテーブルで、DBを更新モードで開き、SELECT句を実行すると、更新モードから読み込みモードになり、更新/追加ができなく困っています。 以下にサンプルコーディングを掲載します。 SQLを実行する前と、実行後に 　LockType を表示したところ、 　実行前は「３」更新可 　実行後は「１」更新不可 となります。 どのようにすれば「LockType」が変らないようにできるでしょうか。 よろしくお願いします。 ---------------------------------------------------------------------------------------------------------------------- Dim cmd As New ADODB.Command Dim rs_issues As ADODB.Recordset Dim adoCn As Object 'ADOコネクションオブジェクト Set adoCn = CreateObject("ADODB.Connection") 'ADOコネクションオブジェクト adoCn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & "データベース名" Set cmd = New ADODB.Command Set cmd.ActiveConnection = adoCn Set rs_issues = New ADODB.Recordset rs_issues.Open "T_issues", db, adOpenDynamic, adLockOptimistic cmd.CommandText = "SELECT *FROM T_issues WHERE i_チケット番号=123456" 　 Debug.Print rs_issues.LockType　　　'(1)LockType=3 Set rs_issues = cmd.Execute Debug.Print rs_issues.LockType　　　'(1)LockType=1

  • MySQLへのレコード追加

    VB6でMySQL4.1に接続して テーブル"table1"にレコードを追加したいんですけど MySQLには接続できるんですけど、新しいレコードを 追加できません。 エラーメッセージは 　Unknown column 'ID'in'fieldlist' とでます。 教えてください。 Dim SQL As String Dim ID As Integer Dim name As String Dim cmd As ADODB.Command Set cmd = New ADODB.Command ID = Text1.Text name = Text2.Text SQL = "insert into table1(AID,Aname) values(ID,name) " cmd.ActiveConnection = cn cmd.CommandText = SQL cmd.Execute table1の内容は AID Aname ←フィールド名 -------------　　 1　 suzuki 2 satou 3 takahasi みたいな感じです。

  • VB６．０でエクセルを扱うプログラムについて

    こんにちは。VB初級者です。宜しくお願いします。 現在、VB６．０でエクセルの表を操作するようなプログラムを作っています。下に書いたプログラム(わかりにくいとは思いますが、ご教授お願いします。）で値の更新は出来たようなのですが、実際に表を開こうとすると”不正な処理が行われました”というエラーメッセージが出て開くことが出来ません。ADOオブジェクトでエクセルを扱うのがちょっとおかしい(？)のかもしれませんが、今回はEXCELオブジェクトは使わないという方針です。 自分ではどこが間違っているかわかりませんでしたので教えて頂ければと思います。宜しくお願い致します。 Private Sub Command1_Click() Dim cn As ADODB.Connection Set cn = New ADODB.Connection cn.Provider = "Microsoft.Jet.OLEDB.4.0" cn.Properties("Extended Properties") = "Excel 8.0" cn.Properties("Data Source") = "C:\VB\株価管理\株価.xls" cn.Open Dim cmd As ADODB.Command Dim mySQL As String mySQL = "update [株価$] set 高値 =10000 where 高値 = 7" Set cmd = New ADODB.Command cmd.ActiveConnection = cn cmd.CommandText = mySQL cmd.Execute Set rst = New ADODB.Recordset rst.Source = "Select * From [株価$]" rst.ActiveConnection = cn rst.CursorType = adOpenDynamic rst.Open , , , , adCmdText Do While Not rst.EOF Debug.Print rst.Fields("高値") rst.MoveNext Loop rst.Close cn.Close Set rst = Nothing Set cn = Nothing Set cmd = Nothing End Sub

  • CMD.Executeの結果をメッセージボックスで表示したい

    Public Sub SQLActionCmd() 　　　 Dim CN As ADODB.Connection 　　　 Dim CMD As ADODB.Command 　　　 Dim MYSQL As String 　　　 '接続 　　　 Set CN = CurrentProject.Connection 　　　 '更新 　　　 MYSQL = "SELECT * FROM 名簿 WEHRE 性別 = "男" ;" 　　　 Set CMD = New ADODB.Command 　　　 CMD.ActiveConnection = CN 　　　 CMD.CommandText = MYSQL 　　　 CMD.Execute 　　　'終了 　　　 Set CMD = Nothing 　　　 RS.Close: Set RS = Nothing 　　　 CN.Close: Set CN = Nothing 　　　End Sub と言う感じで実際にはAccessのフォームのボタンをクリックしたタイミングでコードをかいているのですが、このCMD.EXECUTEを実行した結果、テーブルに該当データがなければない旨のメッセージボックスを出したいのです。 そういうことは可能でしょうか？

  • ADO接続によるストアド

    あまりDB接続などに詳しくないので、 うまく説明できないと思いますがご了承下さい。 環境は Win2000+VB6+SQLSERVER2000+ADO2.5 やりたいことは、 SQLSERVERに設定してあるストアドがあります。 そのストアドをVB上から呼び出し結果を得たいわけです。 ストアドは、１つのパラメータを与えることで、 そのパラメータの最大値を取得してきます。 そして、データベース内では最大値が＋１されているというものです。 現在 Dim adoCon As ADODB.Connection Dim adoCmn As ADODB.Command Dim adoRs As ADODB.Recordset ''DBに接続 Call DB接続関数(adoCon) Set adoCmn = New ADODB.Command Set adoRs = New ADODB.Recordset adoCmn.ActiveConnection = adoCon adoCmn.CommandText = "EXEC ストアド名 'パラメータ'" adoRs.Open adoCmn という状態で、ストアド自体は動作することができました。 しかし、最大値を取得することができません。 adoRsにはきちんとレコードセットが返ってきてない感じです。 どうすれば、最大値を取得できるでしょうか？

  • AccessVBAでInputBoxの値をSQLに組み込むには

    AccessVBA超初心者です。 テーブル上の項目の受付日時をInputBoxよりGetして、 フラグが１であるものに一律その値をセットしたいと思っているのですが、なかなか上手くいきません。 おそらくSQLの中に直接パラメタを入れられないのだと思いますが、どうしていいかわかりません。 すみませんが、よろしくお願いいたします。 ----------------------------------------------- Public Sub cmd_1_Click() Dim cmdReset As New ADODB.Command Dim cmdResult As New ADODB.Command Dim strDate As String cmdReset.ActiveConnection = CurrentProject.Connection cmdResult.ActiveConnection = CurrentProject.Connection cmdReset.CommandText = "UPDATE テーブル SET 受付日時='';" cmdReset.Execute strDate = InputBox(prompt:="処理日付を入力して下さい。（yyyy/mm/dd)", Title:="処理日の入力") cmdResult.CommandText = "UPDATE テーブル SET 受付日時 = strDate WHERE　フラグ='1' " cmdResult.Execute MsgBox "終了" End Sub ------------------------------------------

  • オブジェクトとは、わかりやすくいうと何なのでしょうか？

    いつも習ってばかりで申し訳ありません。 質問なのですが、本でVB6を勉強していて、疑問が出ました。 コマンドボタンや、ラベルなどは、コントロールと言います、 と書いてあります。しかし、進んでいくにつれて、いつの間にか それらをオブジェクトと書いてあります。これはコントロール=オブジェクト と考えて問題ないのでしょうか？さらに進んでいくと、 Dim Cn As ADODB.Connection Dim Rs As ADODB.Recordset というので、アクセスに接続するためのものだというのは漠然とわかるのですが、 深く考えていったら、最初の方にはasの後はデータ型を指定しますと あるのですが、ADODB～はデータの型なんでしょうか？ さらに、これをレコードセットオブジェクトと言いますとあります。 えぇ！これがオブジェクト！？オブジェクトって一体何なんだろうと 悩み始めました(>_<)調べても、明確には理解できませんでした。 どうか、こんな僕に教えて下さい、よろしくお願いします<(_ _)>

  • ExcelVBA Accessにデータ書き込み

    VBAでコマンドボタンを押した際に特定のセルの値をAccessDBに入力するプログラムを作りたいのですが、上手くいきません...。 実行した際に「実行時エラー '21472179000 (80040e 14)':　オートメーションエラーです。」と表示されます。 また、ステップインで実行してみるとEnd Withのところでエラーが発生します。 恐らくインサート文が間違っていると思うのですが、試行錯誤しても解決できませんでしたので教えて頂きたいです。 以下プログラムです。 Private Sub CommandButton1_Click() Dim cn As ADODB.Connection Dim cmd As ADODB.Command Dim rs As ADODB.Recordset Dim constr As String Dim strSQL1 As String Dim a As String a = Range("A1").Value Dim b As String b = Range("A2").Value Dim c As String c = Range("A3").Value constr = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=～.accdb strSQL1 = "insert into " & _ "TableName (1,2,3) " & _ "values ('" + Range("A1").Value + "','" + Range("A2").Value + "','" + Range("A3").Value + "')" Set cn = New ADODB.Connection cn.ConnectionString = constr cn.Open Set cmd = New ADODB.Command With cmd .ActiveConnection = cn .CommandText = strSQL1 .Execute End With Set cmd = Nothing Set rs = Nothing cn.Close Set cn = Nothing End Sub 以上、宜しくお願い致します。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する