質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
87.20%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Access

Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

解決済

access vba ADOを利用して得たDBテーブルデータの値をフォーム画面に表示したい

nekomura
nekomura

総合スコア0

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Access

Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

1回答

-1評価

0クリップ

9051閲覧

投稿2016/03/02 07:00

わかりにくい内容かもしれませんがどうぞよろしくお願いいたします。

Accessで、フォーム画面を作っています。
表題にあるように、ADOを利用してSQLサーバーへ接続、テーブルのデータを取得(RecordSet)しています。
このデータを、ボタンのクリックイベントとしてメインフォームに設置しています。

新たにサブフォームを追加したのですが、ここにボタンのクリック結果を表示させたいのです。サブフォームはデータシート形式です。

つまり、メインフォームのプログラムであるRecordSetを、サブフォームのデータソース?にしたいのです。

どのようなプログラムを書けば、下記のコードの実行結果をサブフォームに出すことができるでしょうか。
何卒よろしくお願いいたします。

Private Sub command_Button_Click()

Dim dbCn As ADODB\.Connection Dim dbRs As ADODB\.Recordset Dim dbCom As ADODB\.Command Set dbCn = New ADODB\.Connection

dbCn.Open "Provider=SQLOLEDB.1;***;Persist Security Info=True;User ID=e**g;Initial Catalog=***;Data Source=***"

Set dbCom = New ADODB\.Command dbCom\.ActiveConnection = dbCn dbCom\.CommandText = Me!SQL 'dbCom\.CommandText = "select \* from eportnet_dbkg\.dbo\.tbmCountry" Set dbRs = New ADODB\.Recordset Set dbRs = dbCom\.Execute Do Until dbRs\.EOF Debug\.Print dbRs\(0\)\.Value & "," & dbRs\(1\)\.Value & "," & dbRs\(2\)\.Value _ & "," & dbRs\(3\)\.Value & "," & dbRs\(4\)\.Value & "," & dbRs\(5\)\.Value dbRs\.MoveNext Loop dbRs\.Close Set dbRs = Nothing dbCn\.Close Set dbCn = Nothing Set dbCom = Nothing

End Sub

良い質問の評価を上げる

以下のような質問は評価を上げましょう

  • 質問内容が明確
  • 自分も答えを知りたい
  • 質問者以外のユーザにも役立つ

評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

気になる質問をクリップする

クリップした質問は、後からいつでもマイページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

  • プログラミングに関係のない質問
  • やってほしいことだけを記載した丸投げの質問
  • 問題・課題が含まれていない質問
  • 意図的に内容が抹消された質問
  • 過去に投稿した質問と同じ内容の質問
  • 広告と受け取られるような投稿

評価を下げると、トップページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

twck
twck

2016/03/03 00:11

3日間のあいだにほぼ同じ質問を4回もしている。 https://teratail\.com/questions/28587 https://teratail\.com/questions/28639 https://teratail\.com/questions/28720 https://teratail\.com/questions/28755 理解しようとしていないのか? しかも解決済みにしないで新たに同じ質問を上げるのは回答者に対して失礼。
nekomura
nekomura

2016/03/03 01:04

申し訳ございませんでした。 なかなか回答がつかずせっぱつまってしまい、大変失礼いたしました。

まだ回答がついていません

会員登録して回答してみよう

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
87.20%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問

同じタグがついた質問を見る

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Access

Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。