常連

バージョン VB.net 4.5.2

閲覧ありがとうございます。
単票形式の帳票で12件ずつのデータを出力します。
Daoで取得したDataTableをFoeRoopでDtoに詰め替えるのですが
どうしてもコードが冗長になるので、もっとスッキリ書ける方法はないかアドバイスを頂きたいです。

**DTOクラス**
```VB

Class RPT_0060SettingDto

    Public Property biz As String
    Public Property rack_id As String

    Public Property disp_color_1 As String
    Public Property parts_no_1 As String
    Public Property name_1 As String
    Public Property parts_name_1 As String
    Public Property location_no_1 As String
    Public Property order_point_1 As String

    Public Property disp_color_2 As String
    Public Property parts_no_2 As String
    Public Property name_2 As String
    Public Property parts_name_2 As String
    Public Property location_no_2 As String
    Public Property order_point_2 As String

  'プロパティが連番で12まで続く・・・
   
    Public Property disp_color_12 As String
    Public Property parts_no_12 As String
    Public Property name_12 As String
    Public Property parts_name_12 As String
    Public Property location_no_12 As String
    Public Property order_point_12 As String
   
End Class


```

**問題のコード**
```VB
Class RPT_0060Util

    Shared Function GetSettingDto(ByVal table As DataTable) As List(Of RPT_0060SettingDto)

        Dim dtoList As New List(Of RPT_0060SettingDto)
        Dim settingDto As RPT_0060SettingDto

        Dim i As Integer = 0

        For Each row As DataRow In table.Rows
            '改ページしたら初期化
            If i > 0 And i Mod 12 = 0 Then
                dtoList.Add(settingDto)
                settingDto = New RPT_0060SettingDto
            End If


            If i Mod 12 = 0 Then
                settingDto.disp_color_1 = row("disp_color").ToString
                settingDto.parts_no_1 = row("parts_no").ToString
                settingDto.parts_name_1 = row("parts_name").ToString
                settingDto.location_no_1 = row("location_no").ToString
                settingDto.order_point_1 = row("order_point").ToString
            ElseIf i Mod 12 = 1 Then
                settingDto.disp_color_2 = row("disp_color").ToString
                settingDto.parts_no_2 = row("parts_no").ToString
                settingDto.parts_name_2 = row("parts_name").ToString
                settingDto.location_no_2 = row("location_no").ToString
                settingDto.order_point_2 = row("order_point").ToString
            End If

            i = i + 1
        Next
        dtoList.Add(settingDto)

        Return settingDto

    End Function

End Class
```

DTOのプロパティが1から12までの連番になっているので
settingDto.disp_color_ + 変数・・・で取得できそうなのですがうまくいきませんでした。
何か良い方法をご教授いただけると助かります。

VB.net Dtoの詰め替えで効率の良い方法が分からない

以下赤枠の、テーブルプロパティシートの標準タブ内の「説明」を、
ACCESS VBA で取得したいです。

![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-10-02/8ad3d8a0-29dd-4c98-bb06-07c882dea85c.png)

色々しらべましたが、テーブルのフィールドプロパティを取得する方法は見つけたのですが、
テーブルのプロパティを取得する方法を見つけられませんでした。

ご存知の方がいらっしゃいましたら、ご教授いただきたいです。

どうぞよろしくお願いいたします。




【コメントに図を添付できないので、こちらに失礼します】

![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-10-02/d09de32a-67da-43da-a506-c3bb3c18854d.png)



ACCESS VBA テーブルプロパティシートの標準タブ内の「説明」を取得したい

![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-03-28/d00508a6-569b-46dd-82d7-25915029bc9f.png)

●実現したいこと
・DAOを利用して実行イメージの表示をさせたいです。
・山田花子さんの部署を営業部から総務部に変更させ、1件更新と表示させたいです。
・30～39歳の従業員のリストを表示させたいです。

●実行結果-------------------------------------
***特定の従業員の部署を変更する。***
0件更新されました。

***特定の年齢層の従業員リスト。***
30～39歳までの従業員：[]
------------------------------------------------
↑エラー表示は出ないのですが、更新されないのと、30～39歳の従業員の名前が表示されないです。
また、実行結果の山田花子さんの部署が変えることができないです。

●試してみたこと
・PrepareStatementをStatementに変えて試してみましたが上手くいきませんでした。

●ソースコード
テーブル名：employee
クラス名：ConnectionManager
クラス名：EmployeeDAO
クラス名：BusinessLogic
---------------------------
package DAO;

import java.sql.Connection;
import java.sql.DriverManager;
import java.sql.SQLException;

public class ConnectionManager {
	private final String URL = "jdbc:oracle:@デバイス名:1521/sampledb";
	private final String User = "ユーザ名";
	private final String PASSWORD = "パスワード";
　
　public static Connection getConnection() throws SQLException{
　return DriverManager.getConnection(URL,User,PASSWORD));
    }
}
//メソッド--------------------------------------------------------------------------------
package DAO;

import java.sql.Connection;
import java.sql.DriverManager;
import java.sql.ResultSet;
import java.sql.PrepareStatement;
import java.sql.SQLException;
import java.util.ArrayList;
import java.util.List;

public class EmployeeDAO {
　 public int updateSectionByCode(String name1) throws SQLException{
　 int count = 0;　
   　   try
　　   (Connection con = ConnectionManager.getConnection()){
　　   PrepareStatement pstmt = con.prepareStatement("Update 
　　   employee set section = '総務部' where name = '山田花子'"); 
　　   count = pstmt.executeUpdate();
　　   }
    }
return count;
}

  public List<String> selectNameByAge(int age1,int age2)throws SQLException{
       try
       (Connection con = ConnectionManager.getConnection()){
       PrepareStatement pstmt = con.prepareStatement("select name from 
       m_employee where age >= 30 and age <= 39");
       ResultSet res = pstmt.executeQuery();
	   while(res.next()) {
	   nameList.add(res.getString("name"));
	   }
        }
   return nameList;
   }
//メインクラス--------------------------------------------------------------------
package DAO;
import java.util.List;

public class BusinessLogic {
    public static void main (String[] args){
    String name1 = "山田花子";
	  try {
	  System.out.println("***特定の従業員の部署を変更する。***");
	  int count = dao.updateSectionByCode(name1);
	  System.out.println(count + "件更新されました。");
	  System.out.println("");
	  System.out.println("***特定の年齢層の従業員リスト。***");
	  System.out.print("30～39歳までの従業員：");
	  int age1 = 30
	  int age2 = 39;
	  List<String> nameList = dao.selectNameByAge(age1,age2);
	  System.out.print(nameList + " ");			
	  }catch(Exception e){
	  System.out.println("異常事態発生");
	  e.printStackTrace();
	  }
    }
}
-----------------
長文で申し訳ございません。
よろしくお願いいたします。

DAOを利用したデータ更新の方法がわからないです。

### 実現したいこと

ユーザの操作をベースに説明いたします。

Aさん
１．フォームのテキストボックスに受注番号00001を入力
２．カーソルを外す(ここでリンクテーブル→ワークテーブルにセット）

Bさん
１．Aさん同様(00001入力）
２．カーソル外す→他の人がそのデータを開いているメッセージを表示。
３．フォームのテキストボックスに00002を入力
４．カーソル外す（リンクテーブル→ワークテーブル）

※他の人は受注番号00001と00002をワークテーブルにセットできない。（リンクテーブルを参照できない）

### 前提
Access2019にてシステムを構築しています。

・システムは、ユーザーがそれぞれダウンロードし利用する。
・システムには、サーバーにあるAccessファイルを参照したリンクテーブルと、システム自体に作られたワークテーブル（ローカルなテーブル）が存在する。
・リンクテーブルの参照先は、社内ネットワーク上にあるテーブル管理用のAccessです。

Access 2019 リンクテーブルの排他制御について

### 状況
課題としてJavaEEを用いてWebアプリを制作しているのですが、
複数のテーブルからデータを取得し、一覧として表示する機能を実装するにあたり、
どのようにBO、DAO、DTOを組むのが最適か悩んでおります。

また、ファクトリの理解ができておらず、
DAOをハードコーディングしてしまっている状態です。

### 試したこと
1. DAOをテーブル単位、DTOはテーブル単位のものに加えてサービス単位のものを作り、BOでテーブル単位のDTOからサービス単位のDTOにデータをコピーする。
0. サービス単位のDAO、DTOを作り、SQLで複数テーブルからデータを取得する。

### 他不明な点
- リスト試したこと①において、サービス単位のDTOを作成する際にどのようにして作ればいいのか？（継承やファクトリ）

### 補足情報（FW/ツールのバージョンなど）
Eclipse (4.7.3a)
Java (9.0.4)
Tomcat (9.0)
MySQL (8.0.28)

### 最後に
お世話になっております。

独学での学習のため、オブジェクト指向やDAOパターンに対する知見が浅く、
問題が多々あるとは思いますが、ご指摘頂けますと幸いです。

初歩的な質問とは思いますが、ご教示頂けますよう、よろしくお願いいたします。


複数テーブルを扱う際のDAO、DTO設計に悩んでいます

### 実現したいこと

テーブルを参照したコンボボックスのフィールドで、主キーのフィールドでなく別フィールドの文字列で検索して出てくるようにしたい。

### 前提

ACCESSで発注書の一覧を検索する機能を制作しており、発注ID、発注日、発注者、発注先などから検索フィールドを選択して、検索文字列のテキストボックスに入力した単語からLike検索でフィルターをかけて抽出するようにしています。
しかし、その中の発注先は発注先一覧のテーブルを参照にしており、そのせいか検索文字列では参照元テーブルの主キーフィールドの発注先IDの文字列でしか抽出されなくなっており、それに続くフィールドの発注先の名前を入力して検索した場合、検索機能に認識されず何も出てこない状態になっております。
主キーフィールドの発注先IDでなく、発注先名の方で検索をかけて出るようにしたいのですが、何かいい解決方法はありますでしょうか。
ValueをTextに替えるのは行いましたが、それでも発注先IDの方で認識されるのは変わりませんでした。
分かりにくい質問ですがどうぞよろしくお願いします。

### 発生している問題・エラーメッセージ

```
検索対象フィールドの中に、発注先のコンボボックスが存在するのだが、そのコンボボックスは発注先リストのテーブルと繋がっている。
そのせいか、発注先のコンボボックスを指定して検索した場合、テーブルの主キーフィールドの発注先IDで検索しないと出てこない。
```

### 該当のソースコード
Private Sub コマンド31_Click()

Dim db As DAO.Database            'データベースへの参照を代入する変数を宣言する
Dim rs As DAO.Recordset           'レコードセットへの参照を代入する変数を宣言する

Set db = CurrentDb()              '現在のデータベースを参照する
'「Q_発注」クエリを開きレコードセットを再設定する
Set rs = db.OpenRecordset("Q_発注", dbOpenDynaset)
'リストから選択された検索フィールドで指定された検索文字列を検索する。
rs.Filter = Me.検索フィールド.Value & " LIKE '*" & Me.検索文字列.Value & "*'"
End If
Set rs = rs.OpenRecordset

Set Me.Recordset = rs

Me.Requery

End Sub

### 試したこと

検索フィールド.SetFocus
rs.Filter = Me.検索フィールド.Text & " LIKE '*" & Me.検索文字列.Value & "*'"

5行目を検索フィールドのコンボボックスをTEXTとして検索するこのコードに置き換えたが、それでも出てこなかった。



テーブルと繋がっているコンボボックスのフィールドで名前の検索をかけて抽出されるようにするには

はじめまして。AKI_TADAと申します。
社内でACCESSVBAを使用した自動発注システムを作成している最中です。
今現在、フォームにある削除ボタンでレコード削除を行うプログラムを作成しております。
しかし、 Set Rst = db.OpenRecordset(strSQL, dbOpenDynaset)の部分で「データ型が一致しません。」というエラーが発生します。テーブルの発注ID及びフォームの発注IDのテキストボックスはいずれもテキスト形式に設定しているので一致しているはずなのですが・・・
どこに問題があるのでしょうか。

Private Sub コマンド58_Click()

    Dim db As DAO.Database
    Dim Rst As DAO.Recordset
    Dim strData As String
    Dim strSQL As String
    
    Set db = CurrentDb
    strData = CStr(Me.発注ID)     '発注IDのテキストボックスを参照
    strSQL = "select * from T_〇〇商事 where 発注ID=" & strData  'T_〇〇商事テーブルから同じ発注IDのデータを取り出す。
 
    Set Rst = db.OpenRecordset(strSQL, dbOpenDynaset)
    
    If Rst.RecordCount = 1 Then
            With Rst
            .Edit
            Rst.Delete
            End With
    End If
    
    Rst.Close

End Sub

SQL構文のエラーについて

### 実現したいこと

ここに実現したいことを箇条書きで書いてください。

検索フォームで検索したIDを発注フォームのサブフォームに入力したい

### 前提
今現在、発注フォームの明細のサブフォームのIDのテキストボックスをダブルクリックして検索フォームを呼び出し、検索フォームで検索したIDのテキストボックスをダブルクリックして現在選択中のサブフォームのレコードに入力するシステムを作成しようとしております。
しかし、検索フォームを開いてIDを検索、抽出するまではできるのですが、そのIDのテキストボックスをダブルクリックした場合、サブフォームが開いていないという表示が出ます。
このエラーを解決するにはどうすればよろしいのでしょうか。

### 発生している問題・エラーメッセージ

```
実行時エラー'2450"
参照されているフォーム'サブフォーム'が見つかりません。
```

### 該当のソースコード

```ここに言語名を入力

'サブフォームのIDをダブルクリックして検索フォームに飛ぶ
Private Sub ID_DblClick(Cancel As Integer)

DoCmd.OpenForm "検索フォーム"

End Sub


’検索フォームで検索して抽出したIDをダブルクリックしてサブフォームに入力する
Private Sub ID_DblClick(Cancel As Integer)


Forms!サブフォーム!ID.Value = Me.ID.Value


End Sub
```


DAO(Data Access Object)