doraxdoraの投稿 - Crieit

【Java】JSON-libを使ってJSON配列を生成する際に日付型（Date）を好きなフォーマットで変換する方法

2020-03-09T10:04:51+09:00

最近はWEBのサービス開発などでSPA（Single Page Applicatoin）が流行って？るので、
サーバーとクライアントとのデータのやり取りをJSONで行うのはよくあるケースかと思います。

サーバー側をJavaで開発している場合に、Javaオブジェクトや Bean を JSONに変換するのに、
JSON-lib というのも結構主流なやり方かと思いますが、ちょっと日付型のところでハマったので備忘的な記事を。

※JSON-lib 自体の詳しい説明（利用方法）などは省略します。

JSON-libとは

OSDNサイトより転載 Json-libは、beans, map, collection, Java配列、XML to JSON, DynaBeansを変革するJavaライブラリです。 Douglas Crockfordによる作業をベースにしています。

Javaオブジェクトを簡単に JSON文字列に変換したり、逆に JSON文字列からオブジェクトを生成したりといったことが可能です。

昔、XMLへの相互変換ロジックを自作したことがありますが、こういう処理って実際に作ってみると結構大変だったりします。
便利な世の中ですね。

サンプル

変換するサンプルクラスを作成。

Person.java

package jp.co.doraxdora.sample;

import java.io.Serializable;
import java.util.Date;

/**
 * パーソンクラス
 *
 * @author doraxdora
 *
 */
public class Person implements Serializable {

    /** ID */
    private int id;
    /** 氏名 */
    private String name;
    /** 年齢 */
    private int age;
    /** 更新日時 */
    private Date updateDate;

    public Person() {
    }

    /**
     * パーソンの生成
     *
     * @param id
     * @param name
     * @param age
     */
    public Person(int id, String name, int age, Date updateDate) {
        this.id = id;
        this.name = name;
        this.age = age;
        this.updateDate = updateDate;
    }

    /**
     * @return id
     */
    public int getId() {
        return id;
    }

    /**
     * @param id セットする id
     */
    public void setId(int id) {
        this.id = id;
    }

    /**
     * @return name
     */
    public String getName() {
        return name;
    }

    /**
     * @param name セットする name
     */
    public void setName(String name) {
        this.name = name;
    }

    /**
     * @return age
     */
    public int getAge() {
        return age;
    }

    /**
     * @param age セットする age
     */
    public void setAge(int age) {
        this.age = age;
    }

    /**
     * @return updateDate
     */
    public Date getUpdateDate() {
        return updateDate;
    }

    /**
     * @param updateDate セットする updateDate
     */
    public void setUpdateDate(Date updateDate) {
        this.updateDate = updateDate;
    }

}

何故か更新日時を持つパーソンクラスです。

JavaオブジェクトからJSON文字列に変換

import net.sf.json.JSONObject;

public class HelloWorld {
    public static void main(String[] args) {

        Person person = new Person(1, "サンプル　一郎", 20, new Date());

        JSONObject jsonObject = JSONObject.fromObject(person);
        System.out.println(String.valueOf(jsonObject));
    }
}

こんな感じで、Dateを持つクラスをJSONに変換すると次のような文字列が生成されます。

{
    "age": 20,
    "id": 1,
    "name": "サンプル　一郎",
    "updateDate": {
        "date": 23,
        "day": 2,
        "hours": 10,
        "minutes": 22,
        "month": 3,
        "seconds": 44,
        "time": 1555982564167,
        "timezoneOffset": -540,
        "year": 119
    }
}

これはこれで正しいのですが、クライアント側で日時の部分が扱いづらい。。

対応

JSON-lib には、「JsonValueProcessor」という、変換時に対象となる値に対して処理できるインターフェースが定義されているので、
実装したクラスを作成して日付型オブジェクトに対して別途変換する処理を組み込みます。

DateJsonValueProcessor.java

package jp.co.doraxdora.sample;

import java.util.Date;

import net.sf.json.JsonConfig;
import net.sf.json.processors.JsonValueProcessor;
import java.text.SimpleDateFormat;

/**
 * 日付型をJSON変換する際にフォーマットする
 *
 * @author doraxdora
 *
 */
public class DateJsonValueProcessor implements JsonValueProcessor {

    /* (非 Javadoc)
     * @see net.sf.json.processors.JsonValueProcessor#processArrayValue(java.lang.Object, net.sf.json.JsonConfig)
     */
    @Override
    public Object processArrayValue(Object value, JsonConfig jsonConfig) {
        return process((Date) value, jsonConfig);
    }

    /* (非 Javadoc)
     * @see net.sf.json.processors.JsonValueProcessor#processObjectValue(java.lang.String, java.lang.Object, net.sf.json.JsonConfig)
     */
    @Override
    public Object processObjectValue(String key, Object value, JsonConfig jsonConfig) {
        return process((Date) value, jsonConfig);
    }

    /**
     * 日付型を文字列に変換.
     *
     * @param date
     * @param config
     * @return
     */
    private Object process(Date date, JsonConfig config) {
        if (date == null) {
            return null;
        }

        SimpleDateFormat formatter = new SimpleDateFormat("yyyy/MM/dd（E）");

        return formatter.format(date);
    }

}

JsonConfig に DateValueProcessor を設定して変換

import net.sf.json.JSONObject;
import net.sf.json.JsonConfig;

public class HelloWorld {
    public static void main(String[] args) {

        Person person = new Person(1, "サンプル　一郎", 20, new Date());

        JsonConfig config = new JsonConfig();
        config.registerJsonValueProcessor(java.util.Date.class, new DateJsonValueProcessor());

        JSONObject jsonObject = JSONObject.fromObject(person, config);
        System.out.println(String.valueOf(jsonObject));
    }
}

という感じで、日付型だった場合の処理を設定して変換してあげると次のような文字列が生成されます。

{
    "age": 20,
    "id": 1,
    "name": "サンプル　一郎",
    "updateDate": "2019/04/23（火）"
}

大分シンプルになりました。

まとめ

ちょっとした単発のプログラムネタでした。

実は以前 Python でも同様の問題にぶち当たったことがあって、
だったら Java でも同じようになんとかできるだろうと調べてみたという感じです。

何かのお役に立てれば。

ではでは。

【JavaFX】Oracle に接続して取得したデータをTableView に表示する

2020-01-27T10:01:36+09:00

引き続き、JavaFXで Oracle から取得したデータを TableView に表示したいと思います。

プログラムは前回のものを流用します。

【JavaFX】Oracleに接続して取得したデータをコンボボックスに設定する

クラスの作成

パッケージ・エクスプローラーから「dto」パッケージを右クリックし「新規」＞「クラス」を選択します。

クラス名に「TblCat」を入力し、「完了」ボタンをクリックします。

作成したクラスの実装は次のようにします。

TblCat.java

/**
 *
 */
package jp.co.doraxdora.dto;

import java.io.Serializable;

import javafx.beans.property.SimpleStringProperty;
import javafx.beans.property.StringProperty;

/**
 * TBL猫DTOクラス.
 *
 * @author doraxdora
 *
 */
public class TblCat implements Serializable {

        /** No */
        private StringProperty no;
        /** 名前 */
        private StringProperty name;
        /** 性別 */
        private StringProperty sex;
        /** 年齢 */
        private StringProperty age;
        /** 種別 */
        private StringProperty kindCd;
        /** 好物 */
        private StringProperty favorite;

        /**
         * @return no
         */
        public StringProperty noProperty() {
                return no;
        }

        /**
         * @param no
         *            セットする no
         */
        public void setNo(String no) {
                this.no = new SimpleStringProperty(no);
        }

        /**
         * @return name
         */
        public StringProperty nameProperty() {
                return name;
        }

        /**
         * @param name
         *            セットする name
         */
        public void setName(String name) {
                this.name = new SimpleStringProperty(name);
        }

        /**
         * @return sex
         */
        public StringProperty sexProperty() {
                return sex;
        }

        /**
         * @param sex
         *            セットする sex
         */
        public void setSex(String sex) {
                this.sex = new SimpleStringProperty(sex);
        }

        /**
         * @return age
         */
        public StringProperty ageProperty() {
                return age;
        }

        /**
         * @param age
         *            セットする age
         */
        public void setAge(String age) {
                this.age = new SimpleStringProperty(age);
        }

        /**
         * @return kind
         */
        public StringProperty kindCdProperty() {
                return kindCd;
        }

        /**
         * @param kind
         *            セットする kind
         */
        public void setKindCd(String kindCd) {
                this.kindCd = new SimpleStringProperty(kindCd);
        }

        /**
         * @return favorite
         */
        public StringProperty favoriteProperty() {
                return favorite;
        }

        /**
         * @param favorite
         *            セットする favorite
         */
        public void setFavorite(String favorite) {
                this.favorite = new SimpleStringProperty(favorite);
        }

}

TblViewの仕組み上
通常のアクセサとは異なり、getter のメソッド名は [メンバ名]Property とします。
こうしておかないと一覧にデータが表示されずにあたふたしますよ。

プログラム修正

画面の修正

メソッドの追加

SceneBuilder からであれば、右側のメニューから「On Action」にメソッド名を設定しますが、
fxmlを直接修正しても問題ありません。

Smaple.fxml

CSSの修正

application.css

    /* JavaFX CSS - Leave this comment until you have at least create one rule which uses -fx-Property */
    .root {
            -fx-font-family: "Meiryo";
    }

TableViewの型を変更

SampleController.java

クラスに定義されているメンバーの型を新規作成した TblCat に変更します。

    /** テーブルビュー：一覧 */
    @FXML
    private TableView tvCat;

検索ボタンクリック時のメソッドを追加

SampleController.java（メソッドのみ抜粋）

        /**
         * 検索ボタンアクションハンドラー.
         *
         * @param ev
         */
        @FXML
        public void btSearchButtonActionHandle(ActionEvent ev) {

        try {
                        DBAccess dba = new DBAccess();
                        ResultSet rs = dba.executeQuery("SELECT * FROM TBLCAT ORDER BY NO");

                        // 取得したデータを追加
                        ObservableList list = FXCollections.observableArrayList();
                        while (rs != null && rs.next()) {
                                TblCat cat = new TblCat();
                                cat.setNo(rs.getString("NO"));
                                cat.setName(rs.getString("NAME"));
                                cat.setSex(rs.getString("SEX"));
                                cat.setAge(rs.getString("AGE"));
                                cat.setKindCd(rs.getString("KIND_CD"));
                                cat.setFavorite(rs.getString("FAVORITE"));
                                list.add(cat);
                        }

                        tvCat.setItems(list);

                } catch (SQLException e) {
                        // TODO 自動生成された catch ブロック
                        e.printStackTrace();
                } catch (Exception e) {
                        // TODO 自動生成された catch ブロック
                        e.printStackTrace();
                }

        }

起動してみる

起動後、検索ボタンをクリックします。

無事にデータが表示されました。

まとめ

とりあえず検索の条件などは無視してデータを表示してみました。

次回は、検索条件の設定などをやっていきたいと思います。

ではでは。

【JavaFX】Oracleに接続して取得したデータをコンボボックスに設定する

2020-01-24T09:43:29+09:00

前回に引き続き、JavaFXです。
今回は Oracle からデータを取得してコンボボックスに設定します。

利用するテーブルや Oracle のインストールなどは次の記事を参照してください。

Oracle Database Express Edition 11g Release 2 のインストールからテーブル作成まで

Swing でやったのとほぼほぼ同じです。

プログラムは前回のものを流用します。

【JavaFX】コンボボックスに項目を設定する

ライブラリの追加

Oracle からデータを取得するために、ライブラリを追加します。
パッケージ・エクスプローラーからプロジェクトを右クリックし、「プロパティ」を開きます。

「Javaのビルドパス」メニューを選択し、「ライブラリー」タブを表示、
「外部 JAR の追加」ボタンをクリックします。

ファイル選択ダイアログが表示されるので、
Oracle のインストールディレクトリから対象のファイルが格納されているフォルダを開きます。

デフォルト（Oracle 11g XE）の場合は次の場所に格納されています。

C:\oraclexe\app\oracle\product\11.2.0\server\jdbc\lib

ライブラリフォルダーに格納されている「ojdbc6.jar」を開きます。

パッケージの作成

次の２つのパッケージを作成します。

jp.co.doraxdora.common
jp.co.doraxdora.dto

パッケージ・エクスプローラーで「src」を右クリック＞「新規」＞「パッケージ」を選択します。

名前に「jp.co.doraxdora.common」を入力して「完了」ボタンをクリックします。
同様に「jp.co.doraxdora.dto」も作成します。

クラスの作成

次の２つのクラスをそれぞれのパッケージに作成します。

jp.co.doraxdora.common.DBAccess.java
jp.co.doraxdora.dto.MstKind.java

パッケージ・エクスプローラーでパッケージを右クリック＞「新規」＞「クラス」を選択します。

名前に「DBAccess」を入力して「完了」ボタンをクリックします。
同様に「MstKind」も作成します。

実装

DBAccess.java

    package jp.co.doraxdora.common;

    import java.sql.Connection;
    import java.sql.PreparedStatement;
    import java.sql.ResultSet;
    import java.util.List;

    import oracle.jdbc.pool.OracleDataSource;

    /**
     * @author doraxdora
     *
     */
    public class DBAccess {

            private static String DB_URL = "jdbc:oracle:thin:USER01/USER01@localhost:1521:XE";

            private static Connection con = null;

            /**
             * コンストラクタ.
             *
             * @throws Exception
             */
            public DBAccess() throws Exception{
                    super();
                    // ドライバのロード
                    OracleDataSource ds = new OracleDataSource();
                    ds.setURL(DB_URL);
            // DB接続
            con = ds.getConnection();
            }

            /**
             * SQLを実行して結果を取得します.
             * @param sql
             * @return
             */
            public ResultSet executeQuery(String sql) throws Exception {
                    PreparedStatement stmt = con.prepareStatement(sql);
                    return stmt.executeQuery();
            }

            /**
             * パラメータを指定してSQLを実行し、結果を取得します.
             *
             * @param sql
             * @param param
             * @return
             * @throws Exception
             */
            public ResultSet executeQuery(String sql, List param) throws Exception {
                    PreparedStatement stmt = con.prepareStatement(sql);
                    for (int i = 0; i < param.size(); i++) {
                            if (param.get(i) instanceof String) {
                                    stmt.setString(i, (String) param.get(i));
                            } else if (param.get(i) instanceof Integer) {
                                    stmt.setInt(i, (int) param.get(i));
                            }
                    }

                    return stmt.executeQuery();

            }

    }

MstKind.java

/**
 *
 */
package jp.co.doraxdora.dto;

import java.io.Serializable;

/**
 * MST種別クラス.
 *
 * @author doraxdora
 *
 */
public class MstKind implements Serializable {

        /** 種別コード */
        private String kindCd;
        /** 種別名 */
        private String kindName;

        /**
         * @return kindCd
         */
        public String getKindCd() {
                return kindCd;
        }

        /**
         * @param kindCd セットする kindCd
         */
        public void setKindCd(String kindCd) {
                this.kindCd = kindCd;
        }

        /**
         * @return kindName
         */
        public String getKindName() {
                return kindName;
        }

        /**
         * @param kindName セットする kindName
         */
        public void setKindName(String kindName) {
                this.kindName = kindName;
        }

        /* (非 Javadoc)
         * @see java.lang.Object#toString()
         */
        @Override
        public String toString() {
                return kindName;
        }
}

JavaFX の ComboBox の実装が、
toString()メソッドを利用して表示文字列を取得しているため、
toString()メソッドをオーバーライドし、表示するメンバーの値を返すようにする必要があります。

コントローラーの修正

インポート文の追加およびメンバー型の変更

SampleController.java（変更箇所のみ抜粋）

// インポート文追加
import jp.co.doraxdora.common.DBAccess;
import jp.co.doraxdora.dto.MstKind;

public class SampleController implements Initializable{

        /** コンボボックス：名前 */
        // String から MstKind のリストに変更
        // アクセサも修正が必要
        @FXML
        //private ComboBox cbKind;
        private ComboBox cbKind;

        /**
         * @return cbKind
         */
        public ComboBox getCbKind() {
                return cbKind;
        }

        /**
         * @param cbKind セットする cbKind
         */
        public void setCbKind(ComboBox cbKind) {
                this.cbKind = cbKind;
        }

)

初期化処理の修正

SampleController.java（メソッドのみ抜粋）

        /*
         * (非 Javadoc)
         * @see javafx.fxml.Initializable#initialize(java.net.URL, java.util.ResourceBundle)
         */
        @Override
        public void initialize(URL location, ResourceBundle resources)  {

        try {
                        DBAccess dba = new DBAccess();
                        ResultSet rs = dba.executeQuery("SELECT * FROM MSTKIND ORDER BY KIND_CD");

                        // 指定なしを追加
                        MstKind empty = new MstKind();
                        empty.setKindCd("-1");
                        empty.setKindName("指定なし");
                        cbKind.getItems().add(empty);

                        // 取得したデータを追加
                        while (rs != null && rs.next()) {
                                MstKind kind = new MstKind();
                                kind.setKindCd(rs.getString("KIND_CD"));
                                kind.setKindName(rs.getString("KIND_NAME"));
                                cbKind.getItems().add(kind);
                        }

                        // 初期選択状態を設定
                        cbKind.getSelectionModel().select(0);


                } catch (SQLException e) {
                        // TODO 自動生成された catch ブロック
                        e.printStackTrace();
                } catch (Exception e) {
                        // TODO 自動生成された catch ブロック
                        e.printStackTrace();
                }
        }

起動してみる

内容は前回のものと変わりませんが、
無事に表示することができました。

次回は一覧にデータ表示するところまでやってみたいと思います。

ではでは。

【JavaFX】さくっとコンボボックスに項目を設定してみる

2020-01-20T09:27:40+09:00

今回は、JavaFXの基本的な構成や仕組みなどを学ぶために
とりあえずコンボボックスに項目を設定して選択できるようにしてみます。

開発環境については以前の記事を参考にしてください。
【JavaFX】eclipseにJavaFXプラグインをインストールして Hello World してみる

画面の作成

画面は SceneBuilder にて作成します。
（WPF で作成した画面と同等のものを作ってみたいと思います。）

WPF編はこちら

初期状態では、「BorderPane」が設置されていますが、
それを削除して「AnchorPane」を設置し、その上にコントロールを配置していきます。

AnchorPane というのは、
簡単に言うとコントロールを座標（絶対位置）で配置できるレイアウトになります。

その他のレイアウトについてはそのうち紹介できればします。

SceneBuilder上で CTRL + P を押すとプレビュー表示することができます。

eclipse で Java プリケーションの実行をしなくても起動後の画面がサクッと表示されます。
（プログラムは動かないのでコントロールの位置確認のみ）

Sample.fxml

コントローラクラスの実装

JavaFX では、
基本的に fxml （画面定義）と対応するコントローラー（クラス）を作成し、
コントローラーにてイベントなどを処理するような構成となります。

fxml に記述した

    fx:controller="application.SampleController"

でコントローラを指定し、コントローラークラスには
画面に設置したコントロールをメンバーとして定義することが必要。

こうすることで、
コントローラークラスにて画面のコントロールを操作することが可能となります。

SampleController.java

package application;

import java.net.URL;
import java.util.ResourceBundle;

import javafx.fxml.FXML;
import javafx.fxml.Initializable;
import javafx.scene.control.Button;
import javafx.scene.control.ComboBox;
import javafx.scene.control.Label;
import javafx.scene.control.TableView;
import javafx.scene.control.TextField;
import javafx.scene.layout.AnchorPane;

public class SampleController implements Initializable{

        /** パネル：メイン */
        @FXML
        private AnchorPane mainPane;

        /** ラベル：名前 */
        @FXML
        private Label lbName;

        /** テキストフィールド：名前 */
        @FXML
        private TextField txName;

        /** ラベル：種別 */
        @FXML
        private Label lbKind;

        /** コンボボックス：名前 */
        @FXML
        private ComboBox cbKind;

        /** ボタン：検索 */
        @FXML
        private Button btSearch;

        /** テーブルビュー：一覧 */
        @FXML
        private TableView tvCat;

        /**
         * @return mainPane
         */
        public AnchorPane getMainPane() {
                return mainPane;
        }

        /**
         * @param mainPane セットする mainPane
         */
        public void setMainPane(AnchorPane mainPane) {
                this.mainPane = mainPane;
        }

        /**
         * @return lbName
         */
        public Label getLbName() {
                return lbName;
        }

        /**
         * @param lbName セットする lbName
         */
        public void setLbName(Label lbName) {
                this.lbName = lbName;
        }

        /**
         * @return txName
         */
        public TextField getTxName() {
                return txName;
        }

        /**
         * @param txName セットする txName
         */
        public void setTxName(TextField txName) {
                this.txName = txName;
        }

        /**
         * @return lbKind
         */
        public Label getLbKind() {
                return lbKind;
        }

        /**
         * @param lbKind セットする lbKind
         */
        public void setLbKind(Label lbKind) {
                this.lbKind = lbKind;
        }

        /**
         * @return cbKind
         */
        public ComboBox getCbKind() {
                return cbKind;
        }

        /**
         * @param cbKind セットする cbKind
         */
        public void setCbKind(ComboBox cbKind) {
                this.cbKind = cbKind;
        }

        /**
         * @return btSearch
         */
        public Button getBtSearch() {
                return btSearch;
        }

        /**
         * @param btSearch セットする btSearch
         */
        public void setBtSearch(Button btSearch) {
                this.btSearch = btSearch;
        }

        /**
         * @return tvCat
         */
        public TableView getTvCat() {
                return tvCat;
        }

        /**
         * @param tvCat セットする tvCat
         */
        public void setTvCat(TableView tvCat) {
                this.tvCat = tvCat;
        }

        /*
         * (非 Javadoc)
         * @see javafx.fxml.Initializable#initialize(java.net.URL, java.util.ResourceBundle)
         */
        @Override
        public void initialize(URL location, ResourceBundle resources) {

                // コンボボックスに項目を追加
                cbKind.getItems().add("指定なし");
                cbKind.getItems().add("キジトラ");
                cbKind.getItems().add("長毛種（不明）");
                cbKind.getItems().add("ミケ（っぽい）");
                cbKind.getItems().add("サビ");
                cbKind.getItems().add("その他");

                // 初期選択状態を設定
                cbKind.getSelectionModel().select(0);

        }

}

メインクラスの修正

ちょっと嵌ったんですが
fxml で AnchorPane のサイズをいくら変更しても
いざ起動してみるとその通りのサイズになってくれませんでした。

よくよく見なおしてみると、メインクラスにて、
Scene のインスタンスを初期化する際に、幅と高さを指定していたことが原因でした。
（デフォルトでそうなっている）

幅と高さの指定を取り除いたら問題なく fxml で指定したサイズで表示されるようになりました。

Main.java

package application;

import javafx.application.Application;
import javafx.fxml.FXMLLoader;
import javafx.scene.Scene;
import javafx.scene.layout.AnchorPane;
import javafx.stage.Stage;

public class Main extends Application {
        @Override
        public void start(Stage primaryStage) {
                try {
                        AnchorPane root = (AnchorPane) FXMLLoader.load(getClass().getResource("Sample.fxml"));
                        // 幅と高さを指定してインスタンスを生成
                        //Scene scene = new Scene(root, 400, 400);
                        // 幅と高さを指定せずにインスタンスを生成
                        Scene scene = new Scene(root);
                        scene.getStylesheets().add(getClass().getResource("application.css").toExternalForm());
                        primaryStage.setScene(scene);
                        primaryStage.show();
                } catch (Exception e) {
                        e.printStackTrace();
                }
        }

        public static void main(String[] args) {
                launch(args);
        }
}

起動してみる

とりあえずコンボボックスへ項目を設定することができました。

次回は、データベースから取得したデータを設定してみたいと思います。

ではでは。

【JavaFX】eclipseにJavaFXプラグインをインストールして Hello World してみる

2020-01-14T09:57:33+09:00

どうも Swing が廃止される方向のようなので、
方向転換して Java FX をやってみたいと思います。

まずは開発環境の構築から。

e(fx)clipseのインストール

JavaFX 用の eclipse プラグインをインストールします。

上部メニューの「ヘルプ」＞「新規ソフトウェアのインストール」を選択します。

インストール画面が表示されるので、「追加」ボタンをクリックします。

名前、ロケーションにそれぞれ下記を入力します。

名前：
e(fx)clipse 

ロケーション：
[http://download.eclipse.org/efxclipse/updates-released/2.4.0/site](http://download.eclipse.org/efxclipse/updates-released/2.4.0/site)

インストール画面にて、追加したロケーションを選択し
e(fx)clipse - IDE を選択して「次へ」ボタンをクリックします。

インストール詳細画面が表示されるので「次へ」ボタンをクリックします。

ライセンス画面が表示されるので、
使用条件の条項に同意して「完了」ボタンをクリックします。

再起動確認画面が表示されます。
ソフトウェア更新のため再起動が必要となりますので、「はい」ボタンをクリックして eclipse を再起動します。

Scene Builder のインストール

ダウンロード

次のURLにアクセスします。
http://gluonhq.com/products/scene-builder/#download

今回は、 Windows 64bit のインストーラーをダウンロードします。

インストール

ダウンロードした「SceneBuilder-8.3.0.exe」を実行します。

セキュリティの警告が表示される場合は「実行」ボタンをクリックします。

ライセンス画面が表示されるので、同意して「Next」ボタンをクリックします。

インストール先指定画面が表示されるので、
デフォルトのまま「Next」ボタンをクリックします。

SceneBuilder の画面が起動しました。

JavaFXの設定

上部メニューの「ウィンドウ」＞「設定」を開きます。

サイドメニューの「JavaFX」を選択し、
SceneBuilderの実行ファイルまでのパスを設定、「OK」ボタンをクリックします。

デフォルトであれば

C:\Users\[ユーザ名]\AppData\Local\SceneBuilder\SceneBuilder.exe

となります。

JavaFX プロジェクトの作成

パッケージ・エクスプローラー上で右クリックし、「新規」＞「その他」を選択します。

「JavaFX」＞「JavaFX Project」を選択し「次へ」ボタンをクリックします。

プロジェクト名を入力し「次へ」ボタンをクリックします。

Java設定画面が表示されるので「次へ」ボタンをクリックします。

プロジェクト設定画面が表示されるので、言語に「FXML」を選択し、「完了」ボタンをクリックします。

Hello World を表示してみる

作成したプロジェクト＞「src」＞「application」＞「Sample.fxml」を右クリックし
「Open with SceneBuilder」を選択します。

Sample.fxml ファイルが SceneBuilder で開かれます。

左側メニューの「Control」より、ラベルを選択して画面中央に配置し、
表示名を「Hello World!」に変更します。

上部メニューの「File」＞「Save」を選択して変更を保存して SceneBuilder を終了します。

起動してみる

プロジェクトを右クリックし「実行」＞「Java アプリケーション」を選択します。

無事に表示されました。

まとめ

ひとまず今回はここまで。

次回からまた色々やっていきたいと思います。

ではでは。

【Swing】Oracleに接続して取得したデータをJTable に表示してみる

2020-01-09T09:39:32+09:00

前回に引き続き、Swingを弄ってみます。
今回はWPFの時と同様、猫の一覧を表示しました。

プログラムは前回のものを流用します。
【Swing】Oracleに接続して取得したデータをコンボボックスに設定する

画面の変更

JScrollPane、JTableを配置します。
こうすることにより、JTableにヘッダー、スクロールバーが表示されるようになります。

プログラムの修正

新規クラス（インナー）の追加

検索ボタン押下時の処理を追加します。
イベントは、「ActionListener」を実装したクラスで行います。

MainForm.java

            /**
             * 検索ボタンアクションリスナークラス
             *
             * @author doraxdora
             *
             */
            public class SearchActionListener implements ActionListener {

                    /**
                     * イベントハンドラ.
                     *
                     */
                    @Override
                    public void actionPerformed(ActionEvent event) {
                            if (event.getSource().equals(btnSearch)) {

                                    try {

                                            // SQL文の組み立て
                                            // 画面で指定された条件を組み込む
                                            String sql = "SELECT C.NO"
                                                            + ", C.NAME"
                                                            + ", C.SEX"
                                                            + ", C.AGE"
                                                            + ", K.KIND_NAME"
                                                            + ", C.FAVORITE"
                                                            + " FROM TBLCAT C"
                                                            + " LEFT OUTER JOIN MSTKIND K ON ("
                                                            + "  C.KIND_CD = K.KIND_CD"
                                                            + " )";
                                            String where = "";

                                            String searchName = txSearchName.getText();
                                            if (searchName != null && !searchName.equals("")) {
                                                    where = " WHERE C.NAME LIKE '" + searchName + "%'";
                                            }
                                            String searchKind = (String)cbSearchKind.getSelectedItem();
                                            if (searchKind != null && !searchKind.equals("指定なし")) {
                                                    if (where != "") {
                                                            where += " AND";
                                                    } else {
                                                            where += " WHERE";
                                                    }
                                                    where += " K.KIND_NAME = '" + searchKind + "'";
                                            }
                                            sql += where;
                                            sql += " ORDER BY C.NO";

                                            // データを取得し、JTableにセットする TableModel の形に編集
                                            DBAccess dba = new DBAccess();
                                            ResultSet rs = dba.executeQuery(sql);
                                            List list = new ArrayList();
                                            while (rs != null && rs.next()) {
                                                    String[] items = new String[6];
                                                    items[0] = rs.getString("NO");
                                                    items[1] = rs.getString("NAME");
                                                    items[2] = rs.getString("SEX");
                                                    items[3] = rs.getString("AGE");
                                                    items[4] = rs.getString("KIND_NAME");
                                                    items[5] = rs.getString("FAVORITE");
                                                    list.add(items);
                                            }

                                            // JTable にセット
                                            String[] columnHeader = {"No","名前","性別","年齢","種別","好物"};
                                            DefaultTableModel tm = new DefaultTableModel((String[][])list.toArray(new String[0][0]), columnHeader);
                                            tblCatData.setModel(tm);

                                    } catch (Exception e) {
                                            System.out.println(e.getMessage());
                                    }

                            }
                    }
            }

初期化処理の修正

少し整理しました。
あとは検索ボタン押下時の処理に、作成したクラスをセットします。

MainForm.java

        /**
         * 画面生成処理.
         *
         */
        public MainForm() {

                // メインパネル
                setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
                setBounds(100, 100, 480, 304);
                mainPanel = new JPanel();
                mainPanel.setBorder(new EmptyBorder(5, 5, 5, 5));
                setContentPane(mainPanel);
                mainPanel.setLayout(new BorderLayout(0, 0));

                JPanel panel = new JPanel();
                FlowLayout flowLayout = (FlowLayout) panel.getLayout();
                flowLayout.setHgap(10);
                flowLayout.setAlignment(FlowLayout.LEFT);
                mainPanel.add(panel, BorderLayout.NORTH);

                // 名前ラベル
                JLabel label = new JLabel("名前：");
                panel.add(label);

                // 名前テキストボックス
                txSearchName = new JTextField();
                panel.add(txSearchName);
                txSearchName.setColumns(10);

                // 種別ラベル
                JLabel label_1 = new JLabel("種別：");
                panel.add(label_1);

                // 種別コンボボックス
                cbSearchKind = new JComboBox();
                cbSearchKind.setMinimumSize(new Dimension(100, 19));
                cbSearchKind.setBounds(195, 7, 119, 19);
                panel.add(cbSearchKind);

                // 検索ボタン
                btnSearch = new JButton("検索");
                // 検索ボタン押下時の処理としてインナークラスをセット
                btnSearch.addActionListener(new SearchActionListener());
                panel.add(btnSearch);

                // スクロールパネル
                // JTableは基本スクロールパネルとセットで使用する
                // 縦横のスクロールおよび、ヘッダが表示されるようになります。
                scrollPane = new JScrollPane();
                mainPanel.add(scrollPane, BorderLayout.CENTER);

                // 猫一覧テーブル
                tblCatData = new JTable();
                tblCatData.setAutoResizeMode(JTable.AUTO_RESIZE_OFF);
                scrollPane.setViewportView(tblCatData);
        }

起動してみる

起動後の画面です。

検索条件を指定しないで検索した結果。

名前を指定して検索した結果。

種別を指定して検索した結果。

まとめ

Swingはひとまずここまでにするかもしれません。
次回は Java FX なんかもやってみようかなーとか思っています。

ではでは。

【Swing】Oracleに接続して取得したデータをコンボボックスに設定する

2020-01-09T09:37:13+09:00

今回は、Oracleからデータを取得してコンボボックスに設定してみたいと思います。

プロジェクトは前回のものを流用します。

【Swing】eclipse に Swingプラグインをインストールして Hello Wolrd してみる

新規クラスの追加

パッケージの作成

パッケージ・エクスプローラーから「src」を右クリックし、「新規」＞「パッケージ」を選択します。

パッケージ名を入力し、「完了」ボタンをクリックします。
今回は「jp.co.doraxdora.common」としました。

クラスの作成

パッケージ・エクスプローラーから作成したパッケージを右クリックし、
「新規」＞「クラス」を選択します。

クラス名を入力し、「完了」ボタンをクリックします。
今回は「DBAccess」としました。

DBAccess.java

    /**
     *
     */
    package jp.co.doraxdora.common;

    import java.sql.Connection;
    import java.sql.PreparedStatement;
    import java.sql.ResultSet;
    import java.util.List;

    import oracle.jdbc.pool.OracleDataSource;

    /**
     * @author doraxdora
     *
     */
    public class DBAccess {

            private static String DB_URL = "jdbc:oracle:thin:USER01/USER01@localhost:1521:XE";

            private static Connection con = null;

            /**
             * コンストラクタ.
             *
             * @throws Exception
             */
            public DBAccess() throws Exception{
                    super();
                    // ドライバのロード
                    OracleDataSource ds = new OracleDataSource();
                    ds.setURL(DB_URL);
            // DB接続
            con = ds.getConnection();
            }

            /**
             * SQLを実行して結果を取得します.
             * @param sql
             * @return
             */
            public ResultSet executeQuery(String sql) throws Exception {
                    PreparedStatement stmt = con.prepareStatement(sql);
                    return stmt.executeQuery();
            }

            /**
             * パラメータを指定してSQLを実行し、結果を取得します.
             *
             * @param sql
             * @param param
             * @return
             * @throws Exception
             */
            public ResultSet executeQuery(String sql, List param) throws Exception {
                    PreparedStatement stmt = con.prepareStatement(sql);
                    for (int i = 0; i < param.size(); i++) {
                            if (param.get(i) instanceof String) {
                                    stmt.setString(i, (String) param.get(i));
                            } else if (param.get(i) instanceof Integer) {
                                    stmt.setInt(i, (int) param.get(i));
                            }
                    }

                    return stmt.executeQuery();

            }

    }

ライブラリの追加

「Javaのビルドパス」メニューを選択し、「ライブラリー」タブを表示、
「外部 JAR の追加」ボタンをクリックします。

ファイル選択ダイアログが表示されるので、
Oracle のインストールディレクトリから対象のファイルが格納されているフォルダを開きます。

デフォルト（Oracle 11g XE）の場合は次の場所に格納されています。

C:\oraclexe\app\oracle\product\11.2.0\server\jdbc\lib

ライブラリフォルダーに格納されている「ojdbc6.jar」を開きます。

画面の修正

WPFの時と同様に、名前ラベル・テキスト、種別ラベル・コンボボックス、ボタンを配置します。

プログラムの修正

初期表示時に、
Oracle からデータを取得してコンボボックスに設定するように修正します。

MainForm.java

    package jp.co.doraxdora.form;

    import java.awt.EventQueue;
    import java.sql.ResultSet;
    import java.util.ArrayList;
    import java.util.List;

    import javax.swing.DefaultComboBoxModel;
    import javax.swing.JButton;
    import javax.swing.JComboBox;
    import javax.swing.JFrame;
    import javax.swing.JLabel;
    import javax.swing.JPanel;
    import javax.swing.JTextField;
    import javax.swing.border.EmptyBorder;

    import jp.co.doraxdora.common.DBAccess;

    public class MainForm extends JFrame {

            private JPanel contentPane;
            private JTextField textField;
            private JComboBox comboBox;

            /**
             * Launch the application.
             */
            public static void main(String[] args) {
                    EventQueue.invokeLater(new Runnable() {
                            public void run() {
                                    try {
                                            MainForm frame = new MainForm();

                                            // コンポーネント初期化
                                            frame.initializeComponent();

                                            frame.setVisible(true);
                                    } catch (Exception e) {
                                            e.printStackTrace();
                                    }
                            }
                    });
            }

            /**
             * Create the frame.
             */
            public MainForm() {
                    setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
                    setBounds(100, 100, 462, 304);
                    contentPane = new JPanel();
                    contentPane.setBorder(new EmptyBorder(5, 5, 5, 5));
                    setContentPane(contentPane);
                    contentPane.setLayout(null);

                    JLabel label = new JLabel("名前：");
                    label.setBounds(12, 10, 46, 13);
                    contentPane.add(label);

                    textField = new JTextField();
                    textField.setBounds(47, 7, 96, 19);
                    contentPane.add(textField);
                    textField.setColumns(10);

                    JLabel label_1 = new JLabel("種別：");
                    label_1.setBounds(159, 10, 56, 13);
                    contentPane.add(label_1);

                    comboBox = new JComboBox();
                    comboBox.setBounds(195, 7, 119, 19);
                    contentPane.add(comboBox);

                    JButton btnNewButton = new JButton("検索");
                    btnNewButton.setBounds(345, 6, 91, 21);
                    contentPane.add(btnNewButton);
            }

            /**
             * コンポーネントの初期化処理.
             *
             */
            private void initializeComponent() throws Exception {

                    DBAccess dba = new DBAccess();
                    ResultSet rs = dba.executeQuery("SELECT * FROM MSTKIND ORDER BY KIND_CD");

                    List list = new ArrayList();
                    while (rs != null && rs.next()) {
                            list.add((rs.getString("KIND_NAME")));
                    }
                    DefaultComboBoxModel model = new DefaultComboBoxModel((String[])list.toArray(new String[0]));
                    comboBox.setModel(model);
            }
    }

起動してみる

無事にデータを設定することができました。

まとめ

ひとまずデータの取得まではできたので、
次回はデータテーブルを設置して、検索したデータを表示するところをやろうかと思います。

ではでは。

eclipse4.7 Oxygen をインストールして Hello Wolrd してみる

2019-11-27T09:58:00+09:00

Javaの開発に必要なIDE eclipse のインストールから Hello World の出力まで。
（今回は eclipse4.7 Oxygen を対象としていますが、色々と便利なので「Pleiades」を利用します。）

Pleiadesとは

公式サイトから転載 Pleiades All in One は Windows 向けに統合開発環境 Eclipse 本体と Pleiades プラグインおよびプログラミング言語別に便利なプラグインをまとめたパッケージです。また、Full Edition の場合は JDK のインストールや環境変数の設定が不要で Eclipse の各種設定も自動で行われるため、ダウンロードした zip ファイルを解凍して eclipse.exe を起動すれば、すぐに日本語化された Eclipse を利用できます。

ダウンロード

次のサイトからダウンロードします。

Pleiades 公式サイト

Eclipse4.7 Oxygenをクリックします。

今回は Windows 64bit Full Edition の Java をダウンロードします。

対象のリンク（ボタン）をクリックします。

インストール

ダウンロードした「pleiades-4.7.0-java-win-64bit-jre_20170628.zip」を解凍すると、Pleiades フォルダが展開されるので、任意の場所に置きます。

今回は「D:\dev\eclipse」としました。

起動

pleaiades\eclipse にある「eclipse.exe」を実行します。

起動中。しばしお待ちを。

ワークスペースの選択画面が表示されるので、
今回は「D:\workspace\Sample」を入力して「起動」ボタンをクリックします。

（フォルダは事前に作成してください）

起動後の画面です。

サンプルプロジェクト

プロジェクトの作成

上部メニューの「ファイル」＞「新規」＞「Javaプロジェクト」を選択します。
（パッケージエクスプローラ上で右クリックからでも可能）

プロジェクト名を入力して「次へ」ボタンをクリックします。

「完了」ボタンをクリックします。

パッケージの作成

パッケージ・エクスプローラーに表示されたプロジェクトのツリーを展開し、
「src」を右クリック、「新規」＞「パッケージ」を選択します。

パッケージ名を入力して「完了」ボタンをクリックします。

クラスの作成

パッケージ・エクスプローラーで、プロジェクトに追加されたパッケージを右クリック、
「新規」＞「クラス」を選択します。

名前に「HelloWorld」、オプションの「public static void main(String[] args)」にチェックをして「完了」ボタンをクリックします。

作成したクラスが表示されます。

プログラムを記述

メインメソッドに次の1文を追加

System.out.println(“Hello Wolrd!!”)

プログラムの実行

パッケージ・エクスプローラーで、作成したクラスを選択し、
上部メニューの「実行」＞「実行」＞「Java アプリケーション」を選択します。

コンソールビューに「Hello World!!」が表示されれば完了です。

まとめ

今回はひとまずここまで。
次回以降は Swing で作るクライアントアプリを試していきたいと思います。

ではでは。

【VB.NET】log4netを使ったログ出力を試してみた

2019-10-23T09:50:42+09:00

おはようございます。

VB.NETでも log4net を使ってログ出力を試してみました。

プログラムは前回のものを使用します。
【VB.NET】PostgreSQL に接続してデータ操作（追加・更新・削除）をしてみる

また、WPF@C#は下記の記事を参考にしてください。
【WPF】log4netを使ってログを出力する

Nuget でパッケージをダウンロード

ソリューションエクスプローラーからプロジェクトを選択、右クリックし
「Nuget パッケージの管理」を選択します。

Nuget パッケージ管理画面が表示されるので、
検索窓に「log4net」を入力し、「log4net」を選択、インストールボタンをクリックします。

変更の確認ダイアログが表示されるので、「OK」ボタンをクリックします。

出力ビューに「終了」が出力されればＯＫです。

アセンブリ設定ファイルの修正

パッケージエクスプローラーから対象のファイルを開きます。

AccemblyInfo.vb

    // log4net を利用するための設定
    //

設定ファイルの追加

パッケージエクスプローラーから「追加」＞「新しい項目」を選択します。

「アプリケーション構成ファイル」を選択して「追加」ボタンをクリックします。

log4net.config

log4net.configファイルのプロパティで、
「出力ディレクトリにコピーする」を「常にコピーする」に変更します。

検索ボタンクリック時にログを出力

次の記述を追加します。

Form1.vb

Form1.vb

    ' ライブラリのインポート
    import log4net;

    public Class Form1

            ' ログ出力用インスタンスの宣言
            Private logger As ILog = LogManager.GetLogger(System.Reflection.MethodBase.GetCurrentMethod().DeclaringType)

    .
    .
    .
    省略

        ''' 
        ''' 検索ボタンクリックイベント.
        ''' 
        ''' 
        ''' 
        Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
            logger.Info("MainWindows 検索ボタンクリック")
            search()
        End Sub

ログを出力してみる

アプリケーションをデバッグ起動し、検索ボタンをクリックします。

コンソール出力にログが出力されるのを確認します。
実行ディレクトリ＞log＞yyyymmdd.log を確認、ログが出力されていればOKです。

まとめ

WPF@C#とほとんど同じ手順で使うことができました。

ではでは。

【VB.NET】PostgreSQL に接続してデータ操作（追加・更新・削除）をしてみる

2019-10-20T10:36:15+09:00

おはようございます。

今回はPostgreSQLで追加、更新、削除をやってみましたが、
Oracle、MySQLと変わらず、クラスを変更するだけでほぼ対応ができてしまいました。

プログラムは前回のものを参考にしてください。
【VB.NET】PostgreSQL に接続してデータを DataGridView に表示してみる

プログラム修正

追加（行追加）処理

Form1.vb

    ''' 
    ''' 追加ボタンクリックイベント
    ''' 
    ''' 
    ''' 
    Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click

        ' 追加後に更新されていなければ処理しない
        If (AddRowFlg) Then
            Return
        End If

        AddRowFlg = True

        Using conn As New NpgsqlConnection("Server=localhost; Port=5432; User Id=USER01;Password=USER01;Database=DB01")

            ' データベースオープン
            conn.Open()

            ' データ追加
            Using con As New DataContext(conn)

                Dim idx = dgvCat.Rows.Count()

                ' 行追加
                dgvCat.Rows.Add()

                ' 種別マスタ取得

                ' 種別コンボボックスの内容をデータベースから取得して設定
                ' データを取得
                Dim cmd As NpgsqlCommand = New NpgsqlCommand("SELECT * FROM MSTKIND", conn)
                Dim da As NpgsqlDataAdapter = New NpgsqlDataAdapter(cmd)
                Dim dt As DataTable = New DataTable()
                da.Fill(dt)
                Dim kindList As List(Of Kind) = New List(Of Kind)
                Dim k As Kind = New Kind()
                For Each row As DataRow In dt.Rows
                    k = New Kind()
                    k.KindCd = row("KIND_CD").ToString()
                    k.KindName = row("KIND_NAME").ToString()
                    kindList.Add(k)
                Next

                ' 猫一覧取得
                cmd = New NpgsqlCommand("SELECT * FROM TBLCAT", conn)
                da = New NpgsqlDataAdapter(cmd)
                dt = New DataTable()
                da.Fill(dt)

                Dim newNo = 0

                ' 使用できるNoを判定
                For i As Integer = 1 To dt.Rows.Count() + 1
                    Dim selectNo = i
                    If dt.Select("No = '" + selectNo.ToString + "'").Length = 0 Then
                        newNo = selectNo
                    End If
                Next

                ' No（プライマリなので編集不可）
                Dim no = New DataGridViewTextBoxCell()
                no.Value = newNo
                dgvCat(0, idx) = no
                dgvCat(0, idx).ReadOnly = True

                ' 名前
                Dim name = New DataGridViewTextBoxCell()
                dgvCat(1, idx) = name

                ' 性別
                Dim sex = New DataGridViewComboBoxCell()
                sex.Items.AddRange({"♂", "♀"})
                sex.DisplayStyle = DataGridViewComboBoxDisplayStyle.ComboBox
                dgvCat(2, idx) = sex

                ' 年齢
                Dim age = New DataGridViewTextBoxCell()
                dgvCat(3, idx) = age

                ' 種別
                Dim kind = New DataGridViewComboBoxCell()
                kind.DataSource = kindList
                kind.DisplayMember = "KindName"
                kind.ValueMember = "KindCd"
                kind.DisplayStyle = DataGridViewComboBoxDisplayStyle.ComboBox
                dgvCat(4, idx) = kind

                ' 好物
                Dim favorite = New DataGridViewTextBoxCell()
                dgvCat(5, idx) = favorite

            End Using

            conn.Close()

        End Using

    End Sub

更新処理

Form1.vb

    ''' 
    ''' 更新ボタンクリックイベント
    ''' 
    ''' 
    ''' 
    Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click

        Using conn = New OracleConnection("Data Source=localhost;User Id=USER01;Password=USER01;")


            ' データベースオープン
            conn.Open()

            ' データ更新
            For i = 0 To dgvCat.Rows.Count - 1

                ' テーブルから対象のデータを取得
                Dim no As Integer = dgvCat(0, i).Value

                ' シーケンス列としていないので、
                ' 最初に件数を取得して No を計算する
                Dim cmd As OracleCommand = New OracleCommand("SELECT COUNT(*) FROM TBLCAT WHERE No = '" + no.ToString() + "'", conn)
                Dim cnt As Decimal = cmd.ExecuteScalar()

                If (cnt = 0) Then

                    ' データ追加
                    Dim query = "INSERT INTO TBLCAT VALUES (" +
                        (cnt + 1) +
                        ", '" + dgvCat(1, i).Value + "'" +
                        ", '" + dgvCat(2, i).Value + "'" +
                        ",  " + dgvCat(3, i).Value + "'" +
                        ", '" + dgvCat(4, i).Value + "'" +
                        ", '" + dgvCat(5, i).Value + "')"

                    cmd = New OracleCommand(query, conn)
                    cmd.ExecuteNonQuery()

                Else

                    ' データ変更
                    Dim query = "UPDATE TBLCAT SET" +
                            "  NAME = '" + dgvCat(1, i).Value.ToString() + "'" +
                            ", SEX = '" + dgvCat(2, i).Value.ToString() + "'" +
                            ", AGE = '" + dgvCat(3, i).Value.ToString() + "'" +
                            ", KIND_CD = '" + dgvCat(4, i).Value.ToString() + "'" +
                            ", FAVORITE = '" + dgvCat(5, i).Value.ToString() + "' " +
                            "WHERE NO = '" + dgvCat(0, i).Value.ToString() + "'"

                    cmd = New OracleCommand(query, conn)
                    cmd.ExecuteNonQuery()

                End If

            Next


            conn.Close()
        End Using

        AddRowFlg = False

        ' データ再検索
        search()
        MessageBox.Show("データを更新しました。")

    End Sub

削除処理

Form1.vb

    ''' 
    ''' 削除ボタンクリックイベント
    ''' 
    ''' 
    ''' 
    Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click

        Using conn = New OracleConnection("Data Source=localhost;User Id=USER01;Password=USER01;")

            ' データベースオープン
            conn.Open()

            ' 選択されている行
            For Each r As DataGridViewRow In dgvCat.SelectedRows

                Dim Cat As Cat = CType(dgvCat.DataSource(), List(Of Cat)).Item(r.Index)

                ' データ削除
                Dim query As String = "DELETE FROM TBLCAT WHERE NO = " + Cat.No

                ' クエリ実行
                Dim cmd As OracleCommand = New OracleCommand(query, conn)
                cmd.ExecuteNonQuery()

            Next


            conn.Close()
        End Using

        ' データ再検索
        search()
        MessageBox.Show("データを削除しました。")

    End Sub

まとめ

Oracle、MySQLからPostgreSQLに変更するのも簡単にできそうですね。
次回以降はまた別の言語をやっていこうかと思います。

ではでは。

【VB.NET】PostgreSQL に接続してデータを DataGridView に表示してみる

2019-10-18T10:31:07+09:00

おはようございます。

今回はVB.NETでPostgreSQLに接続、データの取得をやってみます。

プログラムは前回のものを流用します。
【VB.NET】MySQL（MariaDB）に接続してデータ操作（追加・更新・削除）をしてみる

また、PostgreSQL環境の作成は以下の記事を参考にしてください
PostgreSQL 9.6.3 インストールからテーブル作成まで

Nuget でパッケージをダウンロード

ソリューションエクスプローラーからプロジェクトを選択、右クリックし
「Nuget パッケージの管理」を選択します。

Nuget パッケージ管理画面が表示されるので、
検索窓に「npgsql」を入力し、「Npgsql」を選択、インストールボタンをクリックします。

プレビュー画面が表示された場合は、「OK」ボタンをクリックします。

ライセンス同意画面が表示されるので、「同意する」ボタンをクリックします。

出力ビューに「終了」が表示されれば完了です。

プログラム修正

宣言の追加

ダウンロードしたパッケージを利用するための宣言を追加します。

Form1.vb

Imports Npgsql

初期表示処理の修正

MySQLに接続していた部分を PostgreSQLに接続するように修正し、
MySqlCommand、MySqlDataAdapterもそれぞれ PostgreSQL用のクラスに変更します。

Form1.vb

    ''' 
    ''' フォームロード時の処理
    ''' 
    ''' 
    ''' 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Using conn As New NpgsqlConnection("Server=localhost; Port=5432; User Id=USER01;Password=USER01;Database=DB01")

            ' データベースオープン
            conn.Open()

            ' 種別コンボボックスの内容をデータベースから取得して設定
            ' データを取得
            Dim cmd As NpgsqlCommand = New NpgsqlCommand("SELECT * FROM MSTKIND", conn)
            Dim da As NpgsqlDataAdapter = New NpgsqlDataAdapter(cmd)
            Dim dt As DataTable = New DataTable()
            da.Fill(dt)

            ' コンボボックスに値を設定
            Dim sources As List(Of Kind) = New List(Of Kind)
            Dim k As Kind = New Kind()
            k.KindCd = ""
            k.KindName = "指定なし"
            sources.Add(k)
            For Each row As DataRow In dt.Rows
                k = New Kind()
                k.KindCd = row("KIND_CD").ToString()
                k.KindName = row("KIND_NAME").ToString()
                sources.Add(k)
            Next

            Me.cmbKind.DataSource = sources
            Me.cmbKind.DisplayMember = "KindName"

            ' データベースクローズ
            conn.Close()

        End Using

    End Sub

検索処理の修正

初期表示と同様、接続の処理とMysqlのクラスをPostgreSQL用に変更します。

Form1.vb

    ''' 
    ''' 検索処理
    ''' 
    Private Sub search()

        Using conn As New NpgsqlConnection("Server=localhost; Port=5432; User Id=USER01;Password=USER01;Database=DB01")

            ' データベースオープン
            conn.Open()

            ' 検索条件を指定してデータを取得
            Using con As New DataContext(conn)
                Dim searchName As String = txtName.Text
                Dim searchKind As String = CType(cmbKind.SelectedValue, Kind).KindCd

                ' 種別マスタ取得

                ' 種別コンボボックスの内容をデータベースから取得して設定
                ' データを取得
                Dim cmd As NpgsqlCommand = New NpgsqlCommand("SELECT * FROM MSTKIND", conn)
                Dim da As NpgsqlDataAdapter = New NpgsqlDataAdapter(cmd)
                Dim dt As DataTable = New DataTable()
                da.Fill(dt)
                Dim kindList As List(Of Kind) = New List(Of Kind)
                Dim k As Kind = New Kind()
                For Each row As DataRow In dt.Rows
                    k = New Kind()
                    k.KindCd = row("KIND_CD").ToString()
                    k.KindName = row("KIND_NAME").ToString()
                    kindList.Add(k)
                Next

                ' 猫一覧取得
                Dim Sql As String = "SELECT * FROM TBLCAT"
                Dim where As String = ""
                If (searchName <> "") Then

                    where = " WHERE NAME LIKE '" + searchName + "%'"
                End If
                If (searchKind <> "") Then
                    If (where <> "") Then
                        where += " AND"
                    Else
                        where = " WHERE"
                    End If
                    where += " KIND_CD = '" + searchKind + "'"
                End If

                Sql += where

                cmd = New NpgsqlCommand(Sql, conn)
                da = New NpgsqlDataAdapter(cmd)
                dt = New DataTable()
                da.Fill(dt)

                ' データグリッドビューに設定
                Dim i As Integer = 0
                dgvCat.Rows.Clear()
                For i = 0 To dt.Rows.Count() - 1

                    ' 行追加
                    dgvCat.Rows.Add()

                    ' No（プライマリなので編集不可）
                    Dim no = New DataGridViewTextBoxCell()
                    no.Value = dt.Rows(i)("No")
                    dgvCat(0, i) = no
                    dgvCat(0, i).ReadOnly = True

                    ' 名前
                    Dim name = New DataGridViewTextBoxCell()
                    name.Value = dt.Rows(i)("Name")
                    dgvCat(1, i) = name

                    ' 性別
                    Dim sex = New DataGridViewComboBoxCell()
                    sex.Items.AddRange({"♂  ", "♀  "})
                    sex.DisplayStyle = DataGridViewComboBoxDisplayStyle.ComboBox
                    dgvCat(2, i) = sex
                    dgvCat(2, i).Value = dt.Rows(i)("Sex")

                    ' 年齢
                    Dim age = New DataGridViewTextBoxCell()
                    age.Value = dt.Rows(i)("Age")
                    dgvCat(3, i) = age

                    ' 種別
                    Dim kind = New DataGridViewComboBoxCell()
                    kind.DataSource = kindList
                    kind.DisplayMember = "KindName"
                    kind.ValueMember = "KindCd"
                    kind.DisplayStyle = DataGridViewComboBoxDisplayStyle.ComboBox
                    dgvCat(4, i) = kind
                    dgvCat(4, i).Value = dt.Rows(i)("Kind_Cd")

                    ' 好物
                    Dim favorite = New DataGridViewTextBoxCell()
                    favorite.Value = dt.Rows(i)("Favorite")
                    dgvCat(5, i) = favorite

                Next

            End Using

            ' データベースクローズ
            conn.Close()

        End Using
    End Sub

起動してみる

種別にデータが設定されました。

検索ボタン押下でデータがグリッドに表示されました。

まとめ

PostgreSQLもほとんど変更無しで対応することができました。

実は EntityFrameworkを利用する予定だったのですが、
依存ファイルが見つからないエラーで嵌ってしまったので断念。

いずれ時間のある時にでも。。

ではでは。

【VB.NET】MySQL（MariaDB）に接続してデータ操作（追加・更新・削除）をしてみる

2019-10-16T09:41:26+09:00

前回に引き続き、MySQLの話し。
今回は追加、更新、削除をやってみましたが、ほとんど Oracle と変わらず。

プログラムは前回のものを参考にしてください。

【VB.NET】MySQL（MariaDB）に接続してデータ操作（追加・更新・削除）をしてみる

プログラム修正

更新処理

    ''' 
    ''' 更新ボタンクリックイベント
    ''' 
    ''' 
    ''' 
    Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click

        'Using conn = New OracleConnection("Data Source=localhost;User Id=USER01;Password=USER01;")
        Using conn As New MySqlConnection("Database=DB01;Data Source=localhost;User Id=USER01;Password=USER01; sqlservermode=True;")


            ' データベースオープン
            conn.Open()

            ' データ更新
            For i = 0 To dgvCat.Rows.Count - 1

                ' テーブルから対象のデータを取得
                Dim no As Integer = dgvCat(0, i).Value

                ' シーケンス列としていないので、
                ' 最初に件数を取得して No を計算する
                Dim cmd As MySqlCommand = New MySqlCommand("SELECT COUNT(*) FROM TBLCAT WHERE No = '" + no.ToString() + "'", conn)
                Dim cnt As Decimal = cmd.ExecuteScalar()

                If (cnt = 0) Then

                    ' データ追加
                    Dim query = "INSERT INTO TBLCAT VALUES (" +
                        no.ToString() +
                        ", '" + dgvCat(1, i).Value + "'" +
                        ", '" + dgvCat(2, i).Value + "'" +
                        ", '" + dgvCat(3, i).Value + "'" +
                        ", '" + dgvCat(4, i).Value + "'" +
                        ", '" + dgvCat(5, i).Value + "')"

                    cmd = New MySqlCommand(query, conn)
                    cmd.ExecuteNonQuery()

                Else

                    ' データ変更
                    Dim query = "UPDATE TBLCAT SET" +
                            "  NAME = '" + dgvCat(1, i).Value.ToString() + "'" +
                            ", SEX = '" + dgvCat(2, i).Value.ToString() + "'" +
                            ", AGE = '" + dgvCat(3, i).Value.ToString() + "'" +
                            ", KIND_CD = '" + dgvCat(4, i).Value.ToString() + "'" +
                            ", FAVORITE = '" + dgvCat(5, i).Value.ToString() + "' " +
                            "WHERE NO = '" + dgvCat(0, i).Value.ToString() + "'"

                    cmd = New MySqlCommand(query, conn)
                    cmd.ExecuteNonQuery()

                End If

            Next


            conn.Close()
        End Using

        AddRowFlg = False

        ' データ再検索
        search()
        MessageBox.Show("データを更新しました。")

    End Sub

削除処理

    ''' 
    ''' 削除ボタンクリックイベント
    ''' 
    ''' 
    ''' 
    Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click

        'Using conn = New OracleConnection("Data Source=localhost;User Id=USER01;Password=USER01;")
        Using conn As New MySqlConnection("Database=DB01;Data Source=localhost;User Id=USER01;Password=USER01; sqlservermode=True;")

            ' データベースオープン
            conn.Open()

            ' 選択されている行
            For Each r As DataGridViewRow In dgvCat.SelectedRows

                Dim Cat As Cat = CType(dgvCat.DataSource(), List(Of Cat)).Item(r.Index)

                ' データ削除
                Dim query As String = "DELETE FROM TBLCAT WHERE NO = " + Cat.No

                ' クエリ実行
                Dim cmd As MySqlCommand = New MySqlCommand(query, conn)
                cmd.ExecuteNonQuery()

            Next


            conn.Close()
        End Using

        ' データ再検索
        search()
        MessageBox.Show("データを削除しました。")

    End Sub

まとめ

起動後の画面は割愛。

OracleからMySQLに変更するのは簡単にできそうですね。
次回は PostgreSQL を試してみたいと思います。

ではでは。

【VB.NET】MySQL（MariaDB）に接続してデータを DataGridView に表示してみる

2019-10-10T11:45:58+09:00

今回はVB.NETでMySQLに接続、データの取得をやってみます。

プログラムは前回のものを流用します。
【VB.NET】Oracleに接続してデータを操作（追加・更新・削除）してみる

また、C#@WPFでのMySQL接続は下記を参考にしてください。
【WPF】MySQL（MariaDB）に接続してデータを DataGrid に表示してみる

Nuget でパッケージをダウンロード

ソリューションエクスプローラーからプロジェクトを選択、右クリックし
「Nuget パッケージの管理」を選択します。

Nuget パッケージ管理画面が表示されるので、
検索窓に「mysql」を入力し、「MySql.Data」を選択、インストールボタンをクリックします。

プレビュー画面が表示された場合は、「OK」ボタンをクリックします。

ライセンス同意画面が表示されるので、「同意する」ボタンをクリックします。

出力ビューに「終了」が表示されれば完了です。

画面（デザイナーソース）

 _
Partial Class Form1
    Inherits System.Windows.Forms.Form

    'フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。
     _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    'Windows フォーム デザイナーで必要です。
    Private components As System.ComponentModel.IContainer

    'メモ: 以下のプロシージャは Windows フォーム デザイナーで必要です。
    'Windows フォーム デザイナーを使用して変更できます。  
    'コード エディターを使って変更しないでください。
     _
    Private Sub InitializeComponent()
        Me.dgvCat = New System.Windows.Forms.DataGridView()
        Me.ColNo = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.ColName = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.ColSex = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.ColAge = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.ColKind = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.ColRemark = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.lbName = New System.Windows.Forms.Label()
        Me.lbKind = New System.Windows.Forms.Label()
        Me.btnSearch = New System.Windows.Forms.Button()
        Me.txtName = New System.Windows.Forms.TextBox()
        Me.cmbKind = New System.Windows.Forms.ComboBox()
        Me.btnAdd = New System.Windows.Forms.Button()
        Me.btnUpdate = New System.Windows.Forms.Button()
        Me.btnDelete = New System.Windows.Forms.Button()
        CType(Me.dgvCat, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'dgvCat
        '
        Me.dgvCat.AllowUserToAddRows = False
        Me.dgvCat.AllowUserToDeleteRows = False
        Me.dgvCat.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.dgvCat.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.ColNo, Me.ColName, Me.ColSex, Me.ColAge, Me.ColKind, Me.ColRemark})
        Me.dgvCat.Location = New System.Drawing.Point(12, 56)
        Me.dgvCat.Name = "dgvCat"
        Me.dgvCat.RowTemplate.Height = 21
        Me.dgvCat.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
        Me.dgvCat.Size = New System.Drawing.Size(488, 256)
        Me.dgvCat.TabIndex = 0
        '
        'ColNo
        '
        Me.ColNo.DataPropertyName = "no"
        Me.ColNo.HeaderText = "No"
        Me.ColNo.Name = "ColNo"
        Me.ColNo.Width = 30
        '
        'ColName
        '
        Me.ColName.DataPropertyName = "name"
        Me.ColName.HeaderText = "名前"
        Me.ColName.Name = "ColName"
        '
        'ColSex
        '
        Me.ColSex.DataPropertyName = "sex"
        Me.ColSex.HeaderText = "性別"
        Me.ColSex.Name = "ColSex"
        Me.ColSex.Width = 35
        '
        'ColAge
        '
        Me.ColAge.DataPropertyName = "age"
        Me.ColAge.HeaderText = "年齢"
        Me.ColAge.Name = "ColAge"
        Me.ColAge.Width = 35
        '
        'ColKind
        '
        Me.ColKind.DataPropertyName = "kindCd"
        Me.ColKind.HeaderText = "種別"
        Me.ColKind.Name = "ColKind"
        Me.ColKind.Width = 120
        '
        'ColRemark
        '
        Me.ColRemark.DataPropertyName = "favorite"
        Me.ColRemark.HeaderText = "好物"
        Me.ColRemark.Name = "ColRemark"
        Me.ColRemark.Width = 120
        '
        'lbName
        '
        Me.lbName.AutoSize = True
        Me.lbName.Location = New System.Drawing.Point(12, 23)
        Me.lbName.Name = "lbName"
        Me.lbName.Size = New System.Drawing.Size(35, 12)
        Me.lbName.TabIndex = 1
        Me.lbName.Text = "名前："
        '
        'lbKind
        '
        Me.lbKind.AutoSize = True
        Me.lbKind.Location = New System.Drawing.Point(192, 23)
        Me.lbKind.Name = "lbKind"
        Me.lbKind.Size = New System.Drawing.Size(35, 12)
        Me.lbKind.TabIndex = 2
        Me.lbKind.Text = "種別："
        '
        'btnSearch
        '
        Me.btnSearch.Location = New System.Drawing.Point(425, 18)
        Me.btnSearch.Name = "btnSearch"
        Me.btnSearch.Size = New System.Drawing.Size(75, 23)
        Me.btnSearch.TabIndex = 3
        Me.btnSearch.Text = "検索"
        Me.btnSearch.UseVisualStyleBackColor = True
        '
        'txtName
        '
        Me.txtName.Location = New System.Drawing.Point(53, 19)
        Me.txtName.Name = "txtName"
        Me.txtName.Size = New System.Drawing.Size(100, 19)
        Me.txtName.TabIndex = 4
        '
        'cmbKind
        '
        Me.cmbKind.FormattingEnabled = True
        Me.cmbKind.Location = New System.Drawing.Point(233, 19)
        Me.cmbKind.Name = "cmbKind"
        Me.cmbKind.Size = New System.Drawing.Size(121, 20)
        Me.cmbKind.TabIndex = 5
        '
        'btnAdd
        '
        Me.btnAdd.Location = New System.Drawing.Point(14, 318)
        Me.btnAdd.Name = "btnAdd"
        Me.btnAdd.Size = New System.Drawing.Size(75, 23)
        Me.btnAdd.TabIndex = 6
        Me.btnAdd.Text = "追加"
        Me.btnAdd.UseVisualStyleBackColor = True
        '
        'btnUpdate
        '
        Me.btnUpdate.Location = New System.Drawing.Point(95, 318)
        Me.btnUpdate.Name = "btnUpdate"
        Me.btnUpdate.Size = New System.Drawing.Size(75, 23)
        Me.btnUpdate.TabIndex = 6
        Me.btnUpdate.Text = "更新"
        Me.btnUpdate.UseVisualStyleBackColor = True
        '
        'btnDelete
        '
        Me.btnDelete.Location = New System.Drawing.Point(176, 318)
        Me.btnDelete.Name = "btnDelete"
        Me.btnDelete.Size = New System.Drawing.Size(75, 23)
        Me.btnDelete.TabIndex = 6
        Me.btnDelete.Text = "削除"
        Me.btnDelete.UseVisualStyleBackColor = True
        '
        'Form1
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(514, 353)
        Me.Controls.Add(Me.btnDelete)
        Me.Controls.Add(Me.btnUpdate)
        Me.Controls.Add(Me.btnAdd)
        Me.Controls.Add(Me.cmbKind)
        Me.Controls.Add(Me.txtName)
        Me.Controls.Add(Me.btnSearch)
        Me.Controls.Add(Me.lbKind)
        Me.Controls.Add(Me.lbName)
        Me.Controls.Add(Me.dgvCat)
        Me.Name = "Form1"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "一覧"
        CType(Me.dgvCat, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub

    Friend WithEvents dgvCat As DataGridView
    Friend WithEvents lbName As Label
    Friend WithEvents lbKind As Label
    Friend WithEvents btnSearch As Button
    Friend WithEvents txtName As TextBox
    Friend WithEvents cmbKind As ComboBox
    Friend WithEvents ColNo As DataGridViewTextBoxColumn
    Friend WithEvents ColName As DataGridViewTextBoxColumn
    Friend WithEvents ColSex As DataGridViewTextBoxColumn
    Friend WithEvents ColAge As DataGridViewTextBoxColumn
    Friend WithEvents ColKind As DataGridViewTextBoxColumn
    Friend WithEvents ColRemark As DataGridViewTextBoxColumn
    Friend WithEvents btnAdd As Button
    Friend WithEvents btnUpdate As Button
    Friend WithEvents btnDelete As Button
End Class

プログラム修正

宣言の追加

ダウンロードしたパッケージを利用するための宣言を追加します。

Form1.vb

Imports MySql.Data.MySqlClient

初期表示処理の修正

Oracleに接続していた部分を MySQLに接続するように修正し、
OracleCommand、OracleDataAdapterもそれぞれ MySQL用のクラスに変更します。

Form1.vb

        ''' 
        ''' フォームロード時の処理
        ''' 
        ''' 
        ''' 
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

            'Using conn As New OracleConnection("Data Source=localhost;User Id=USER01;Password=USER01;")
            Using conn As New MySqlConnection("Database=DB01;Data Source=localhost;User Id=USER01;Password=USER01; sqlservermode=True;")

                ' データベースオープン
                conn.Open()

                ' 種別コンボボックスの内容をデータベースから取得して設定
                ' データを取得
                'Dim cmd As OracleCommand = New OracleCommand("SELECT * FROM MSTKIND", conn)
                'Dim da As OracleDataAdapter = New OracleDataAdapter(cmd)

                Dim cmd As MySqlCommand = New MySqlCommand("SELECT * FROM MSTKIND", conn)
                Dim da As MySqlDataAdapter = New MySqlDataAdapter(cmd)
                Dim dt As DataTable = New DataTable()
                da.Fill(dt)

                ' コンボボックスに値を設定
                Dim sources As List(Of Kind) = New List(Of Kind)
                Dim k As Kind = New Kind()
                k.KindCd = ""
                k.KindName = "指定なし"
                sources.Add(k)
                For Each row As DataRow In dt.Rows
                    k = New Kind()
                    k.KindCd = row("KIND_CD").ToString()
                    k.KindName = row("KIND_NAME").ToString()
                    sources.Add(k)
                Next

                Me.cmbKind.DataSource = sources
                Me.cmbKind.DisplayMember = "KindName"

                ' データベースクローズ
                conn.Close()

            End Using

        End Sub

検索処理の修正

初期表示と同様、接続の処理とOracleのクラスをMysql用に変更します。

Form1.vb

        ''' 
        ''' 検索処理
        ''' 
        Private Sub search()

            'Using conn As New OracleConnection("Data Source=localhost;User Id=USER01;Password=USER01;")
            Using conn As New MySqlConnection("Database=DB01;Data Source=localhost;User Id=USER01;Password=USER01; sqlservermode=True;")

                ' データベースオープン
                conn.Open()

                ' 検索条件を指定してデータを取得
                Using con As New DataContext(conn)
                    Dim searchName As String = txtName.Text
                    Dim searchKind As String = CType(cmbKind.SelectedValue, Kind).KindCd

                    ' 種別マスタ取得

                    ' 種別コンボボックスの内容をデータベースから取得して設定
                    ' データを取得
                    Dim cmd As MySqlCommand = New MySqlCommand("SELECT * FROM MSTKIND", conn)
                    Dim da As MySqlDataAdapter = New MySqlDataAdapter(cmd)
                    Dim dt As DataTable = New DataTable()
                    da.Fill(dt)
                    Dim kindList As List(Of Kind) = New List(Of Kind)
                    Dim k As Kind = New Kind()
                    For Each row As DataRow In dt.Rows
                        k = New Kind()
                        k.KindCd = row("KIND_CD").ToString()
                        k.KindName = row("KIND_NAME").ToString()
                        kindList.Add(k)
                    Next

                    ' 猫一覧取得
                    Dim Sql As String = "SELECT * FROM TBLCAT"
                    Dim where As String = ""
                    If (searchName <> "") Then

                        where = " WHERE NAME LIKE '" + searchName + "%'"
                    End If
                    If (searchKind <> "") Then
                        If (where <> "") Then
                            where += " AND"
                        Else
                            where = " WHERE"
                        End If
                        where += " KIND_CD = '" + searchKind + "'"
                    End If

                    Sql += where

                    cmd = New MySqlCommand(Sql, conn)
                    da = New MySqlDataAdapter(cmd)
                    dt = New DataTable()
                    da.Fill(dt)

                    ' データグリッドビューに設定
                    Dim i As Integer = 0
                    dgvCat.Rows.Clear()
                    For i = 0 To dt.Rows.Count() - 1

                        ' 行追加
                        dgvCat.Rows.Add()

                        ' No（プライマリなので編集不可）
                        Dim no = New DataGridViewTextBoxCell()
                        no.Value = dt.Rows(i)("No")
                        dgvCat(0, i) = no
                        dgvCat(0, i).ReadOnly = True

                        ' 名前
                        Dim name = New DataGridViewTextBoxCell()
                        name.Value = dt.Rows(i)("Name")
                        dgvCat(1, i) = name

                        ' 性別
                        Dim sex = New DataGridViewComboBoxCell()
                        sex.Items.AddRange({"♂", "♀"})
                        sex.DisplayStyle = DataGridViewComboBoxDisplayStyle.ComboBox
                        dgvCat(2, i) = sex
                        dgvCat(2, i).Value = dt.Rows(i)("Sex")

                        ' 年齢
                        Dim age = New DataGridViewTextBoxCell()
                        age.Value = dt.Rows(i)("Age")
                        dgvCat(3, i) = age

                        ' 種別
                        Dim kind = New DataGridViewComboBoxCell()
                        kind.DataSource = kindList
                        kind.DisplayMember = "KindName"
                        kind.ValueMember = "KindCd"
                        kind.DisplayStyle = DataGridViewComboBoxDisplayStyle.ComboBox
                        dgvCat(4, i) = kind
                        dgvCat(4, i).Value = dt.Rows(i)("Kind_Cd")

                        ' 好物
                        Dim favorite = New DataGridViewTextBoxCell()
                        favorite.Value = dt.Rows(i)("Favorite")
                        dgvCat(5, i) = favorite

                    Next

                End Using

                ' データベースクローズ
                conn.Close()

            End Using
        End Sub

起動してみる

種別にデータが設定されました。

検索ボタン押下でデータがグリッドに表示されました。

まとめ

MySQLもOracle社のものになったからか、
ほとんど変更無しで対応することができました。めでたし。

ではでは。

【VB.NET】Oracleに接続してデータを操作（追加・更新・削除）してみる

2019-10-08T09:41:26+09:00

引き続きVB.NET。

プログラムは前回のものを参考にしてください。
【VB.NET】Oracleに接続してデータを検索してみる

プログラム修正

更新処理

    ''' 
    ''' 更新ボタンクリックイベント
    ''' 
    ''' 
    ''' 
    Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click

        Using conn = New OracleConnection("Data Source=localhost;User Id=USER01;Password=USER01;")


            ' データベースオープン
            conn.Open()

            ' データ更新
            For i = 0 To dgvCat.Rows.Count - 1

                ' テーブルから対象のデータを取得
                Dim no As Integer = dgvCat(0, i).Value

                ' シーケンス列としていないので、
                ' 最初に件数を取得して No を計算する
                Dim cmd As OracleCommand = New OracleCommand("SELECT COUNT(*) FROM TBLCAT WHERE No = " + no, conn)
                Dim cnt As Decimal = cmd.ExecuteScalar()

                If (cnt = 0) Then

                    ' データ追加
                    Dim query = "INSERT INTO TBLCAT VALUES (" +
                        (cnt + 1) +
                        ", '" + dgvCat(1, i).Value + "'" +
                        ", '" + dgvCat(2, i).Value + "'" +
                        ",  " + dgvCat(3, i).Value + "'" +
                        ", '" + dgvCat(4, i).Value + "'" +
                        ", '" + dgvCat(5, i).Value + "')"

                    cmd = New OracleCommand(query, conn)
                    cmd.ExecuteNonQuery()

                Else

                    ' データ変更
                    Dim query = "UPDATE TBLCAT SET" +
                            "  NAME = '" + dgvCat(1, i).Value + "'" +
                            ", SEX = '" + dgvCat(2, i).Value + "'" +
                            ", AGE = " + dgvCat(3, i).Value +
                            ", KIND_CD = '" + dgvCat(4, i).Value + "'" +
                            ", FAVORITE = '" + dgvCat(5, i).Value + "' " +
                            "WHERE NO = " + dgvCat(0, i).Value

                    cmd = New OracleCommand(query, conn)
                    cmd.ExecuteNonQuery()

                End If

            Next


            conn.Close()
        End Using

        AddRowFlg = False

        ' データ再検索
        search()
        MessageBox.Show("データを更新しました。")

    End Sub

削除処理

    ''' 
    ''' 削除ボタンクリックイベント
    ''' 
    ''' 
    ''' 
    Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click

        Using conn = New OracleConnection("Data Source=localhost;User Id=USER01;Password=USER01;")

            ' データベースオープン
            conn.Open()

            ' 選択されている行
            For Each r As DataGridViewRow In dgvCat.SelectedRows

                Dim Cat As Cat = CType(dgvCat.DataSource(), List(Of Cat)).Item(r.Index)

                ' データ削除
                Dim query As String = "DELETE FROM TBLCAT WHERE NO = " + Cat.No

                ' クエリ実行
                Dim cmd As OracleCommand = New OracleCommand(query, conn)
                cmd.ExecuteNonQuery()

            Next


            conn.Close()
        End Using

        ' データ再検索
        search()
        MessageBox.Show("データを削除しました。")

    End Sub

まとめ

起動後の画面は、SQLiteの時と変わらないので割愛しました。

次回以降は、一応他のDBもやっていこうかと思います。

ではでは。

【VB.NET】Oracleに接続してデータを検索してみる

2019-10-07T09:43:37+09:00

またVB.NETですが。
WPFでもやりましたが Oracle に接続してとりあえずのことをやってみます。

プログラムは前回のもの、データベースの作成なんかはWPFを参考にしてください。

【WPF】Oracleを使ってデータを DataGrid に表示する

【VB.NET】データグリッドビューの行を動的に追加する

参照の追加

ソリューション・エクスプローラーの「参照」を右クリックして「参照の追加」を選択します。

参照の追加画面が表示されるので、「参照」ボタンをクリックします。

Oracle.DataAcess.dllを選択し、「追加」ボタンをクリックして完了です。

プログラム修正

宣言の追加

下記の記述を追加します。

Imports System.Data
Imports System.Data.OracleClient

起動時の処理

    ''' 
    ''' フォームロード時の処理
    ''' 
    ''' 
    ''' 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Using conn As New OracleConnection("Data Source=localhost;User Id=USER01;Password=USER01;")

            ' データベースオープン
            conn.Open()

            ' 種別コンボボックスの内容をデータベースから取得して設定
            ' データを取得
            Dim cmd As OracleCommand = New OracleCommand("SELECT * FROM MSTKIND", conn)
            Dim da As OracleDataAdapter = New OracleDataAdapter(cmd)
            Dim dt As DataTable = New DataTable()
            da.Fill(dt)

            ' コンボボックスに値を設定
            Dim sources As List(Of Kind) = New List(Of Kind)
            Dim k As Kind = New Kind()
            k.KindCd = ""
            k.KindName = "指定なし"
            sources.Add(k)
            For Each row As DataRow In dt.Rows
                k = New Kind()
                k.KindCd = row("KIND_CD").ToString()
                k.KindName = row("KIND_NAME").ToString()
                sources.Add(k)
            Next

            Me.cmbKind.DataSource = sources
            Me.cmbKind.DisplayMember = "KindName"

            ' データベースクローズ
            conn.Close()

        End Using

    End Sub

検索処理

    ''' 
    ''' 検索処理
    ''' 
    Private Sub search()

        Using conn As New OracleConnection("Data Source=localhost;User Id=USER01;Password=USER01;")

            ' データベースオープン
            conn.Open()

            ' 検索条件を指定してデータを取得
            Using con As New DataContext(conn)
                Dim searchName As String = txtName.Text
                Dim searchKind As String = CType(cmbKind.SelectedValue, Kind).KindCd

                ' 種別マスタ取得

                ' 種別コンボボックスの内容をデータベースから取得して設定
                ' データを取得
                Dim cmd As OracleCommand = New OracleCommand("SELECT * FROM MSTKIND", conn)
                Dim da As OracleDataAdapter = New OracleDataAdapter(cmd)
                Dim dt As DataTable = New DataTable()
                da.Fill(dt)
                Dim kindList As List(Of Kind) = New List(Of Kind)
                Dim k As Kind = New Kind()
                For Each row As DataRow In dt.Rows
                    k = New Kind()
                    k.KindCd = row("KIND_CD").ToString()
                    k.KindName = row("KIND_NAME").ToString()
                    kindList.Add(k)
                Next

                ' 猫一覧取得
                Dim Sql As String = "SELECT * FROM TBLCAT"
                Dim where As String = ""
                If (searchName <> "") Then

                    where = " WHERE NAME LIKE '" + searchName + "%'"
                End If
                If (searchKind <> "") Then
                    If (where <> "") Then
                        where += " AND"
                    Else
                        where = " WHERE"
                    End If
                    where += " KIND_CD = '" + searchKind + "'"
                End If

                Sql += where

                cmd = New OracleCommand(Sql, conn)
                da = New OracleDataAdapter(cmd)
                dt = New DataTable()
                da.Fill(dt)

                ' データグリッドビューに設定
                Dim i As Integer = 0
                dgvCat.Rows.Clear()
                For i = 0 To dt.Rows.Count() - 1

                    ' 行追加
                    dgvCat.Rows.Add()

                    ' No（プライマリなので編集不可）
                    Dim no = New DataGridViewTextBoxCell()
                    no.Value = dt.Rows(i)("No")
                    dgvCat(0, i) = no
                    dgvCat(0, i).ReadOnly = True

                    ' 名前
                    Dim name = New DataGridViewTextBoxCell()
                    name.Value = dt.Rows(i)("Name")
                    dgvCat(1, i) = name

                    ' 性別
                    Dim sex = New DataGridViewComboBoxCell()
                    sex.Items.AddRange({"♂", "♀"})
                    sex.DisplayStyle = DataGridViewComboBoxDisplayStyle.ComboBox
                    dgvCat(2, i) = sex
                    dgvCat(2, i).Value = dt.Rows(i)("Sex")

                    ' 年齢
                    Dim age = New DataGridViewTextBoxCell()
                    age.Value = dt.Rows(i)("Age")
                    dgvCat(3, i) = age

                    ' 種別
                    Dim kind = New DataGridViewComboBoxCell()
                    kind.DataSource = kindList
                    kind.DisplayMember = "KindName"
                    kind.ValueMember = "KindCd"
                    kind.DisplayStyle = DataGridViewComboBoxDisplayStyle.ComboBox
                    dgvCat(4, i) = kind
                    dgvCat(4, i).Value = dt.Rows(i)("Kind_Cd")

                    ' 好物
                    Dim favorite = New DataGridViewTextBoxCell()
                    favorite.Value = dt.Rows(i)("Favorite")
                    dgvCat(5, i) = favorite

                Next

            End Using

            ' データベースクローズ
            conn.Close()

        End Using
    End Sub

まとめ

ちょっと画面は取り忘れましたが、これでOracleからデータ取得、表示ができます。

次回もOracleの予定です。

ではでは。

【VB.NET】DataGridView の行を動的に追加してみる

2019-10-03T09:28:32+09:00

引き続き、DataGridView関連の話し。
今回は行を動的に追加する方法を試してみてました。

プログラムは前回のものを流用します。
【VB.NET】DataGridView を直接変更してデータを更新してみる

プログラム修正

追加処理

追加ボタンが押されたタイミングで、データグリッドビューの空行を作成して追加します。

今回は、1行追加したら「更新」するまで追加できないようにしました。
（グローバルでフラグを持たせています）

    ''' 
    ''' 追加ボタンクリックイベント
    ''' 
    ''' 
    ''' 
    Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click

        ' 追加後に更新されていなければ処理しない
        If (AddRowFlg) Then
            Return
        End If

        AddRowFlg = True

        Using conn As New SQLiteConnection("Data Source=SampleDb.sqlite")

            ' データベースオープン
            conn.Open()

            ' データ追加
            Using con As New DataContext(conn)

                Dim idx = dgvCat.Rows.Count()

                ' 行追加
                dgvCat.Rows.Add()

                ' 種別マスタ取得
                Dim kinds As Table(Of Kind) = con.GetTable(Of Kind)
                Dim kindResult As IQueryable(Of Kind) = From x In kinds Order By x.KindCd Select x
                Dim kindList = kindResult.ToList()

                ' 猫一覧取得
                Dim tblCat As Table(Of Cat) = con.GetTable(Of Cat)
                Dim newNo = 0

                ' 使用できるNoを判定
                For i As Integer = 1 To tblCat.ToList().Count() + 1
                    Dim selectNo = i
                    If tblCat.SingleOrDefault(Function(x As Cat) x.No = selectNo) Is Nothing Then
                        newNo = selectNo
                    End If
                Next

                ' No（プライマリなので編集不可）
                Dim no = New DataGridViewTextBoxCell()
                no.Value = newNo
                dgvCat(0, idx) = no
                dgvCat(0, idx).ReadOnly = True

                ' 名前
                Dim name = New DataGridViewTextBoxCell()
                dgvCat(1, idx) = name

                ' 性別
                Dim sex = New DataGridViewComboBoxCell()
                sex.Items.AddRange({"♂", "♀"})
                sex.DisplayStyle = DataGridViewComboBoxDisplayStyle.ComboBox
                dgvCat(2, idx) = sex

                ' 年齢
                Dim age = New DataGridViewTextBoxCell()
                dgvCat(3, idx) = age

                ' 種別
                Dim kind = New DataGridViewComboBoxCell()
                kind.DataSource = kindList
                kind.DisplayMember = "KindName"
                kind.ValueMember = "KindCd"
                kind.DisplayStyle = DataGridViewComboBoxDisplayStyle.ComboBox
                dgvCat(4, idx) = kind

                ' 好物
                Dim favorite = New DataGridViewTextBoxCell()
                dgvCat(5, idx) = favorite

            End Using

            conn.Close()

        End Using

    End Sub

更新処理

更新処理では、データグリッドビューから直接値を取得して、データベースに存在しなければ追加、存在すれば更新というようにしました。

    ''' 
    ''' 更新ボタンクリックイベント
    ''' 
    ''' 
    ''' 
    Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click

        Using conn As New SQLiteConnection("Data Source=SampleDb.sqlite")

            ' データベースオープン
            conn.Open()

            ' データ更新
            Using con As New DataContext(conn)
                ' 対象のテーブルオブジェクトを取得
                Dim Table = con.GetTable(Of Cat)
                ' 選択されているデータを取得
                For i = 0 To dgvCat.Rows.Count - 1
                    ' テーブルから対象のデータを取得
                    Dim no As Integer = dgvCat(0, i).Value
                    Dim target As Cat = Table.SingleOrDefault(Function(x As Cat) x.No = no)
                    If (target Is Nothing) Then
                        ' データ作成
                        Dim Cat As New Cat()
                        Cat.No = dgvCat(0, i).Value
                        Cat.Name = dgvCat(1, i).Value
                        Cat.Sex = dgvCat(2, i).Value
                        Cat.Age = dgvCat(3, i).Value
                        Cat.KindCd = dgvCat(4, i).Value
                        Cat.Favorite = dgvCat(5, i).Value
                        Table.InsertOnSubmit(Cat)

                    Else

                        ' データ変更
                        target.Name = dgvCat(1, i).Value
                        target.Sex = dgvCat(2, i).Value
                        target.Age = dgvCat(3, i).Value
                        target.KindCd = dgvCat(4, i).Value
                        target.Favorite = dgvCat(5, i).Value

                    End If
                    ' DBの変更を確定
                    con.SubmitChanges()
                Next

            End Using

            conn.Close()
        End Using

        AddRowFlg = False

        ' データ再検索
        search()
        MessageBox.Show("データを更新しました。")

    End Sub

起動してみる

とりあえず検索します。

追加ボタンをクリックすると空行が追加されます。

追加された行に値を設定します。

更新ボタンをクリック、再検索後の画面が表示されます。

まとめ

年の瀬となり忙しくなってまいりましたが
なんとか更新していきたいと思います。

次回はどうしようかな。。

ではでは。

【VB.NET】DataGridView を直接変更してデータを更新してみる

2019-10-02T09:28:19+09:00

今回は、データグリッドビューの内容を直接編集してデータを更新したいと思います。

プログラムは例によって前回のものを。
【VB.NET】SQLiteに接続してデータを登録してみる

プログラム修正

検索処理

取得したデータを走査して1行ずつ作成していくように変更します。

        ''' 
        ''' 検索処理
        ''' 
        Private Sub search()
            Using conn As New SQLiteConnection("Data Source=SampleDb.sqlite")

                ' データベースオープン
                conn.Open()

                ' 検索条件を指定してデータを取得
                Using con As New DataContext(conn)
                    Dim searchName As String = txtName.Text
                    Dim searchKind As String = CType(cmbKind.SelectedValue, Kind).KindCd

                    ' 種別マスタ取得
                    Dim kinds As Table(Of Kind) = con.GetTable(Of Kind)
                    Dim kindResult As IQueryable(Of Kind) = From x In kinds Order By x.KindCd Select x
                    Dim kindList = kindResult.ToList()

                    ' 猫一覧取得
                    Dim tblCat As Table(Of Cat) = con.GetTable(Of Cat)
                    Dim result As IQueryable(Of Cat)

                    If (searchKind = "") Then

                        ' 種別が選択されていなければ名前のみ前方一致指定
                        result = From x In tblCat
                                 Where x.Name.StartsWith(searchName)
                                 Order By x.No
                                 Select x
                    Else

                        ' 種別が選択されていれば名前＋種別で検索
                        result = From x In tblCat
                                 Where x.Name.StartsWith(searchName) & x.KindCd = searchKind
                                 Order By x.No
                                 Select x
                    End If

                    ' データグリッドビューに設定
                    'dgvCat.DataSource = result.ToList()
                    Dim list As List(Of Cat) = result.ToList()
                    Dim i As Integer = 0
                    dgvCat.Rows.Clear()
                    For i = 0 To list.Count() - 1

                        Dim cat = list(i)

                        ' 行追加
                        dgvCat.Rows.Add()

                        ' No（プライマリなので編集不可）
                        Dim no = New DataGridViewTextBoxCell()
                        no.Value = cat.No
                        dgvCat(0, i) = no
                        dgvCat(0, i).ReadOnly = True

                        ' 名前
                        Dim name = New DataGridViewTextBoxCell()
                        name.Value = cat.Name
                        dgvCat(1, i) = name

                        ' 性別
                        Dim sex = New DataGridViewComboBoxCell()
                        sex.Items.AddRange({"♂", "♀"})
                        sex.DisplayStyle = DataGridViewComboBoxDisplayStyle.ComboBox
                        dgvCat(2, i) = sex
                        dgvCat(2, i).Value = cat.Sex

                        ' 年齢
                        Dim age = New DataGridViewTextBoxCell()
                        age.Value = cat.Age
                        dgvCat(3, i) = age

                        ' 種別
                        Dim kind = New DataGridViewComboBoxCell()
                        kind.DataSource = kindList
                        kind.DisplayMember = "KindName"
                        kind.ValueMember = "KindCd"
                        kind.DisplayStyle = DataGridViewComboBoxDisplayStyle.ComboBox
                        dgvCat(4, i) = kind
                        dgvCat(4, i).Value = cat.KindCd

                        ' 好物
                        Dim favorite = New DataGridViewTextBoxCell()
                        favorite.Value = cat.Favorite
                        dgvCat(5, i) = favorite

                    Next

                End Using

                ' データベースクローズ
                conn.Close()

            End Using
        End Sub

更新処理

データグリッドビューに表示されているデータを全て更新するように変更します。

    ''' 
    ''' 更新ボタンクリックイベント
    ''' 
    ''' 
    ''' 
    Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click

        Using conn As New SQLiteConnection("Data Source=SampleDb.sqlite")

            ' データベースオープン
            conn.Open()

            ' データ更新
            Using con As New DataContext(conn)
                ' 対象のテーブルオブジェクトを取得
                Dim Table = con.GetTable(Of Cat)
                ' 選択されているデータを取得
                For i = 0 To dgvCat.Rows.Count - 1
                    ' テーブルから対象のデータを取得
                    Dim no As Integer = dgvCat(0, i).Value
                    Dim target As Cat = Table.Single(Function(x As Cat) x.No = no)
                    ' データ変更
                    target.Name = dgvCat(1, i).Value
                    target.Sex = dgvCat(2, i).Value
                    target.Age = dgvCat(3, i).Value
                    target.KindCd = dgvCat(4, i).Value
                    target.Favorite = dgvCat(5, i).Value
                    ' DBの変更を確定
                    con.SubmitChanges()
                Next

            End Using

            conn.Close()
        End Using

        ' データ再検索
        search()
        MessageBox.Show("データを更新しました。")

    End Sub

コンボボックスの制御

以前の記事でもやりましたが、
コンボボックスがワンクリックで開くように仕込みを入れます。

    ''' 
    ''' データグリッドビューセルクリックイベント
    ''' 
    ''' 
    ''' 
    Private Sub dgvCat_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvCat.CellClick
        Dim dgv As DataGridView = CType(sender, DataGridView)
        gridComboHandle(dgv, e)
    End Sub

    ''' 
    ''' データグリッドビューのコンボボックス制御
    ''' 
    ''' 
    ''' 
    Private Sub gridComboHandle(dgv As DataGridView, e As DataGridViewCellEventArgs)

        ' 対象の列だった場合
        If dgv.Columns(e.ColumnIndex).Name = "ColSex" Or dgv.Columns(e.ColumnIndex).Name = "ColKind" Then
            SendKeys.SendWait("{F4}")
        End If

    End Sub

起動してみる

データ検索後の画面。
無事にデータが表示され、データグリッドビューにコンボボックスも表示されています。

1行目の種別を変更して、「更新」ボタンをクリックします。

無事に変更できました。

まとめ

やり方としてはいまいちで、WPFみたいにMVVMとかバインディングとかできるかと思いますが、これはこれでもしかしたら需要があるかもしれません。

次回は追加処理をしてみます。

ではでは。

【VB.NET】SQLiteに接続してデータを登録してみる

2019-09-30T09:58:53+09:00

VBでSQLite、データ検索までしたので続いて登録、更新、削除をしてみました。
C#からの移植ではありますが、微妙に違うところもありますね。

プログラムは前回のものを流用します。
【VB.NET】SQLiteからデータを取得して表示する

        ''' 
        ''' 検索ボタンクリックイベント.
        ''' 
        ''' 
        ''' 
        Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
            search()
        End Sub

        ''' 
        ''' 検索処理
        ''' 
        Private Sub search()
            Using conn As New SQLiteConnection("Data Source=SampleDb.sqlite")

                ' データベースオープン
                conn.Open()

                ' 検索条件を指定してデータを取得
                Using con As New DataContext(conn)
                    Dim searchName As String = txtName.Text
                    Dim searchKind As String = CType(cmbKind.SelectedValue, Kind).KindCd

                    Dim tblCat As Table(Of Cat) = con.GetTable(Of Cat)
                    Dim result As IQueryable(Of Cat)

                    If (searchKind = "") Then

                        ' 種別が選択されていなければ名前のみ前方一致指定
                        result = From x In tblCat
                                 Where x.Name.StartsWith(searchName)
                                 Order By x.No
                                 Select x
                    Else

                        ' 種別が選択されていれば名前＋種別で検索
                        result = From x In tblCat
                                 Where x.Name.StartsWith(searchName) & x.KindCd = searchKind
                                 Order By x.No
                                 Select x
                    End If

                    ' データグリッドビューに設定
                    dgvCat.DataSource = result.ToList()

                End Using

                ' データベースクローズ
                conn.Close()

            End Using
        End Sub

データ追加

    ''' 
        ''' 追加ボタンクリックイベント
        ''' 
        ''' 
        ''' 
        Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click

            Using conn As New SQLiteConnection("Data Source=SampleDb.sqlite")

                ' データベースオープン
                conn.Open()

                ' データ追加
                Using con As New DataContext(conn)

                    ' 対象のテーブルオブジェクトを取得
                    Dim Table = con.GetTable(Of Cat)
                    ' データ作成
                    Dim Cat As New Cat()
                    Cat.No = 5
                    Cat.Name = "こなつ"
                    Cat.Sex = "♀"
                    Cat.Age = 7
                    Cat.KindCd = "01"
                    Cat.Favorite = "布団"
                    ' データ追加
                    Table.InsertOnSubmit(Cat)
                    ' DBの変更を確定
                    con.SubmitChanges()

                End Using

                conn.Close()

            End Using

            ' データ再検索
            search()
            MessageBox.Show("データを追加しました。")

        End Sub

追加ボタンをクリックすると、固定ではありますがデータが追加されます。

データ更新

        ''' 
        ''' 更新ボタンクリックイベント
        ''' 
        ''' 
        ''' 
        Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click

            Using conn As New SQLiteConnection("Data Source=SampleDb.sqlite")

                ' データベースオープン
                conn.Open()

                ' データ更新
                Using con As New DataContext(conn)
                    ' 対象のテーブルオブジェクトを取得
                    Dim Table = con.GetTable(Of Cat)
                    ' 選択されているデータを取得
                    For Each r As DataGridViewRow In dgvCat.SelectedRows
                        Dim Cat As Cat = CType(dgvCat.DataSource(), List(Of Cat)).Item(r.Index)
                        ' テーブルから対象のデータを取得
                        Dim target As Cat = Table.Single(Function(x As Cat) x.No = Cat.No)
                        ' データ変更
                        target.Favorite = "高いところ"
                        ' DBの変更を確定
                        con.SubmitChanges()
                    Next

                End Using

                conn.Close()
            End Using

            ' データ再検索
            search()
            MessageBox.Show("データを更新しました。")

        End Sub

更新ボタンをクリックすると、選択された行の好物が更新されます。

データ削除

        ''' 
        ''' 削除ボタンクリックイベント
        ''' 
        ''' 
        ''' 
        Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click

            Using conn As New SQLiteConnection("Data Source=SampleDb.sqlite")

                ' データベースオープン
                conn.Open()

                ' データ削除
                Using con As New DataContext(conn)

                    ' 対象のテーブルオブジェクトを取得
                    Dim Table = con.GetTable(Of Cat)
                    ' 選択されているデータを取得
                    For Each r As DataGridViewRow In dgvCat.SelectedRows
                        Dim Cat As Cat = CType(dgvCat.DataSource(), List(Of Cat)).Item(r.Index)
                        ' テーブルから対象のデータを取得
                        Dim target As Cat = Table.Single(Function(x As Cat) x.No = Cat.No)
                        ' データ削除
                        Table.DeleteOnSubmit(target)
                        ' DBの変更を確定
                        con.SubmitChanges()

                    Next

                End Using

                conn.Close()
            End Using

            ' データ再検索
            search()
            MessageBox.Show("データを削除しました。")

        End Sub

削除ボタンをクリックすると、選択されている行のデータが削除されます。

まとめ

とりあえず簡単ではありますが追加、更新、削除ができました。

次回はデータグリッドを直接編集してデータの更新等が行えるようにしたいと思います。

ではでは。

【VB.NET】SQLiteに接続してデータを取得してみる

2019-09-27T13:09:52+09:00

今回はデータベースから取得したデータを表示したいと思います。

プログラムは前回のものを流用します。
【VB.NET】SQLiteのデータベース及びテーブルを動的に作成してみる

データの追加

前回作成したテーブルにデータをツール、もしくはコマンドラインから追加します。

    INSERT INTO MSTKIND VALUES ("01", "キジトラ");
    INSERT INTO MSTKIND VALUES ("02", "長毛種（不明）");
    INSERT INTO MSTKIND VALUES ("03", "ミケ（っぽい）");
    INSERT INTO MSTKIND VALUES ("04", "サビ");
    INSERT INTO MSTKIND VALUES ("09", "その他");
    INSERT INTO TBLCAT VALUES('1','そら','♂','6','01','犬の人形');
    INSERT INTO TBLCAT VALUES('2','りく','♂','5','02','人間');
    INSERT INTO TBLCAT VALUES('3','うみ','♀','4','03','高級ウェットフード');
    INSERT INTO TBLCAT VALUES('4','こうめ','♀','2','04','横取りフード');

追加したデータを確認します。

    Imports System.Data.Linq

フォームロード時にコンボボックスにデータを設定する

次の記述をフォームロード時のイベントメソッドに追加します。

            ' 種別コンボボックスの内容をデータベースから取得して設定
            Using con As New DataContext(conn)
                Dim kinds As Table(Of Kind) = con.GetTable(Of Kind)
                Dim result As IQueryable(Of Kind) = From x In kinds Order By x.KindCd Select x

                Dim empty As New Kind()
                empty.KindCd = ""
                empty.KindName = "指定なし"

                Dim list = result.ToList()
                list.Insert(0, empty)

                ' コンボボックスに設定
                cmbKind.DataSource = list
                cmbKind.DisplayMember = "kindName"

            End Using

検索ボタンのクリックイベント追加

デザイナー画面にて配置した「検索」ボタンをダブルクリックします。

検索処理の実装

自動生成されたメソッドに次の処理を記述します。

    ''' 
    ''' 検索ボタンクリックイベント.
    ''' 
    ''' 
    ''' 
    Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click

        Using conn As New SQLiteConnection("Data Source=SampleDb.sqlite")

            ' データベースオープン
            conn.Open()

            ' 検索条件を指定してデータを取得
            Using con As New DataContext(conn)
                Dim searchName As String = txtName.Text
                Dim searchKind As String = CType(cmbKind.SelectedValue, Kind).KindCd

                Dim tblCat As Table(Of Cat) = con.GetTable(Of Cat)
                Dim result As IQueryable(Of Cat)

                If (searchKind = "") Then

                    ' 種別が選択されていなければ名前のみ前方一致指定
                    result = From x In tblCat
                             Where x.Name.StartsWith(searchName)
                             Order By x.No
                             Select x
                Else

                    ' 種別が選択されていれば名前＋種別で検索
                    result = From x In tblCat
                             Where x.Name.StartsWith(searchName) & x.KindCd = searchKind
                             Order By x.No
                             Select x
                End If

                ' データグリッドビューに設定
                dgvCat.DataSource = result.ToList()

            End Using

            ' データベースクローズ
            conn.Close()

        End Using
    End Sub

起動してみる

起動後の画面。

コンボボックスに無事にデータが設定されました。

検索ボタンをクリックして、データグリッドビューにも無事にデータが表示されました。

まとめ

C#とほぼ同じなので難しくはないですね。

次回はデータの追加・更新・削除なんかもやってみます。

ではでは。

【VB.NET】SQLiteのデータベース及びテーブルを動的に作成してみる

2019-09-25T09:35:38+09:00

今回はSQLiteを使ったプログラムを作っていきます。

プログラムは前回のものを流用しませんが、WPFのものを移植する感じになります。

【WPF】SQLiteを使ってデータを DataGrid に表示してみる

SQLiteのパッケージをインストール

SQLite を利用するためのパッケージをインストールします。

ソリューションエクスプローラーからプロジェクトを選択、右クリックし「Nuget パッケージの管理」を選択します。

Nuget パッケージ管理画面が表示されるので、検索窓に「SQLite」を入力し「System.Data.SQLite」を選択、インストールボタンをクリックします。

変更の確認ダイアログが表示されるので、「OK」ボタンをクリックします。

出力ビューに「終了」が出力されればＯＫです。

ソリューションエクスプローラーの「参照」を開くと「System.Data.*」が追加されていることが確認できます。

Form1.vb

    Public Class Form1
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        End Sub
    End Class

フォームロード時にテーブルを作成する

フォームロード（アプリケーション起動時）に、テーブルを作成するようにプログラムを修正、
先程追加したイベントに次の処理を記述します。

Form1.vb

    Imports System.Data.SQLite

    Public Class Form1

        ''' 
        ''' フォームロード時の処理
        ''' 
        ''' 
        ''' 
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

            Using conn As New SQLiteConnection("Data Source=SampleDb.sqlite")

                ' データベースオープン
                conn.Open()

                ' テーブルが存在しなければ作成
                Using command = conn.CreateCommand()
                    Dim sb As New System.Text.StringBuilder()
                    sb.Append("CREATE TABLE IF NOT EXISTS MSTKIND (")
                    sb.Append("  KIND_CD NCHAR NOT NULL")
                    sb.Append("  , KIND_NAME NVARCHAR")
                    sb.Append("  , primary key (KIND_CD)")
                    sb.Append(")")

                    command.CommandText = sb.ToString()
                    command.ExecuteNonQuery()

                    sb.Clear()
                    sb.Append("CREATE TABLE IF NOT EXISTS TBLCAT (")
                    sb.Append("  NO INT NOT NULL")
                    sb.Append("  , NAME NVARCHAR NOT NULL")
                    sb.Append("  , SEX NVARCHAR NOT NULL")
                    sb.Append("  , AGE INT DEFAULT 0 NOT NULL")
                    sb.Append("  , KIND_CD NCHAR DEFAULT 0 NOT NULL")
                    sb.Append("  , FAVORITE NVARCHAR")
                    sb.Append("  , primary key (NO)")
                    sb.Append(")")

                    command.CommandText = sb.ToString()
                    command.ExecuteNonQuery()

                End Using

                ' データベースクローズ
                conn.Close()

            End Using
        End Sub

    End Class

アプリケーションの実行

上部メニューの開始ボタンをクリックし、アプリケーションを実行すると「MSTKIND」、「TBLCAT」テーブルが作成されます。

A5m2などを使って確認をしてください。

以上でひとまず完了です。

まとめ

少し長くなったのでここまにして続きは次回にします。

次回はコンボボックス、データグリッドにデータベースから取得したデータを表示したいと思います。

ではでは。