あまりDB接続などに詳しくないので、
うまく説明できないと思いますがご了承下さい。
環境は
Win2000+VB6+SQLSERVER2000+ADO2.5
やりたいことは、
SQLSERVERに設定してあるストアドがあります。
そのストアドをVB上から呼び出し結果を得たいわけです。
ストアドは、1つのパラメータを与えることで、
そのパラメータの最大値を取得してきます。
そして、データベース内では最大値が+1されているというものです。
現在
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にはきちんとレコードセットが返ってきてない感じです。
どうすれば、最大値を取得できるでしょうか?
No.2ベストアンサー
- 回答日時:
その取得したい値(最大値)というのは、ストアドが更新して、どこかのテーブルに保存されているのですよね?
例えば、テーブル T1 のカラム C1 = 1 のレコードの、カラム C2 に取得したい値があるとすると、
...
adoCmn.CommandText = "EXEC ストアド名 'パラメータ'"
adoCmn.Execute
の後に
Set adoCmn2 = New ADODB.Command
adoCmn2.ActiveConnection = adoCon
adoCmn2.CommandText = "SELECT C2 FROM T1 WHERE C1=1"
Set adoRs = New ADODB.Recordset
adoRs.Open adoCmn2
とか
Set adoRs = adoCon.Execute("SELECT C2 FROM T1 WHERE C1=1")
となります。
おっしゃる通り、ストアドが更新した最大値は、
テーブル内に保存されております。
そして、tsukasa-12rさんのおっしゃるような
やり方で最大値は取得できました。
大変ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelからAccessのテーブルに書き込む時に時間がかかる 1 2022/10/14 20:38
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Excel(エクセル) VBA フォルダ見える化のコードについて 2 2023/06/19 15:04
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Visual Basic(VBA) 貼り付けた値が消えていく 以下はソースファイルの2番目のシートのB6から最終行を取得 ターゲットファ 2 2023/07/27 12:23
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
テキストボックスのvalueとtext...
-
Powershellのparamについて
-
値を返さないコード パス
-
マクロ 特定のセル値のみクリ...
-
ハッシュテーブル(連想配列)が...
-
PysimpleGUIでデータベースを作る
-
リソースの値を変数で取得
-
VB初心者。小数点以下の表示で...
-
変数に代入してある数値を表示...
-
コンボボックスの値がうまく取...
-
Excel vba ユーザーフォームテ...
-
aspx.csからJSON形式にする方法
-
VB.NETでコンボボックスの1行目...
-
変数が勝手に変わります
-
PL/SQLでのTO_DATEの時間取得に...
-
コンボボックスで選択した項目...
-
[VB.net] DataGridViewのコンボ...
-
VBAでWEB上の入力項目に値をい...
-
標準ライブラリのcos関数の値が...
-
ユーザーフォームのテキストボ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
テキストボックスのvalueとtext...
-
Excel VBAのリストボックスの値...
-
VB.NETでコンボボックスの1行目...
-
Excel VBA 複数選択したリスト...
-
マクロ 特定のセル値のみクリ...
-
値を返さないコード パス
-
変数名の取得
-
VB初心者。小数点以下の表示で...
-
power BI クエリエディター 〇...
-
DataTableに対するLINQについて
-
PL/SQLでのTO_DATEの時間取得に...
-
ASPの変数の値をJAVA Script内...
-
[VBA]選択範囲の下から上に処理...
-
vb6のVSFlexGridで選択行、列の...
-
VBAでWEB上の入力項目に値をい...
-
textboxとLabelを動的に変更する
-
[VB.net] DataGridViewのコンボ...
-
Powershellのparamについて
-
VB.NETのスクロールバーコント...
-
ISDBNULLをスルーしてDBNULLが...
おすすめ情報