おやじプログラマー日記: VB.NET

【ActiveReports 2.0J】複数フォーマットを合体させて１個のレポートを作成する方法

最近昔のソフトの改修で触ったのですが【ActiveReports 2.0J】(これ結構古いですが)を使って 2個のレポートを1個に合体させて1個のレポートにする要請がありました。

ActiveReports 2.0J も古いですが、BASICもVisualBasic6.0(SP-5)なのでこちらもかなりなものです。
そこでネットに転がっているかなと思ったので調べたら、以下の様な方法で出来るようです。

以下にソースでは ActiveReports1 と ActiveReports2 と宣言したアクティブレポートが存在するものとし、 ActiveReports1 の後ろに ActiveReports21 のレポートを追加することを想定しています。また、2個のアクティブレポートとも紙の大きさは同じものとします。

尚、各レポートの DataControl1 はデータベースへのアクセスがある場合の例です。

投稿時刻 14:23 VB.NET, パソコン・インターネット | 個別ページ | コメント (0) | トラックバック (0)

【VB.NET】VB.NETに関するTIPSのサイト・ページ追加

ホームページの宣伝ですが、VB.NET関連のTIPSについて記事を追加しましたので興味のある方はご覧下さい。

RNK's HomePage

VB.NET入門・Tips

■追加ページ

転職を本気で考えている方向けのプログラミングスクール！【WebCampPRO】

投稿時刻 15:22 VB.NET | 個別ページ | コメント (0) | トラックバック (0)

【VB.NET】VB.NETに関するTIPSのサイト・ページ追加

私のホームページの宣伝ですが、VB.NET関連のTIPSについて記事を追加しましたのでご覧になって下さい。

RNK's HomePage

VB.NET入門・Tips

まだまだ記事数は少ないのですが、関心のある方は一度のぞいてみて下さい。

■追加ページ

転職を本気で考えている方向けのプログラミングスクール！【WebCampPRO】

投稿時刻 10:58 VB.NET | 個別ページ | コメント (0) | トラックバック (0)

外部ＦＴＰサーバとの接続後の「LSコマンド」でハングアップ

Windows10で FTP.EXE を起動して外部のＦＴＰサーバに接続してみたのですが、ログインは出来るのですが、ファイルの一覧を取得する LSコマンド を行ってみるとハングアップ。

「200 PORT Command successful」が表示されたまま、ハングアップしたかのようでしばらくたってエラーが返ってきた。
「425 Unable to build data connection: Connection timed out」

Windows10でファイアウオールのポート設定などをいろいろやったのですが、解決しませんでした。それで、フリーソフトの FFFTP で試しにと思ってやってみたところ、何も問題無く接続でき、ファイル一覧が表示されました。

何が原因か分からなかったのですが、どうもパッシブモード(PASV)で処理するとできる様なのです。 FFFTP では「PASVモードを使う」がデフォルトでチェックされていました。

FTP.EXE ではパッシブモードではできない様なので、今回の様な現象が出ている場合は FFFTP 等のパッシブモード設定ができるソフトで実行してはどうでしょうか。

余談ですが、VB.NET のプログラムでFTP処理を行う場合にも、パッシブモードのフラグがありますのでそれをTrueにして行う様です。

企業向けIT製品／キーマンズネット

投稿時刻 12:01 VB.NET, パソコン・インターネット | 個別ページ | コメント (0) | トラックバック (0)

【VB.NET】VB.NETに関するTIPSのサイト

このブログの右側のリンクにもありますが、以前より以下のホームページを公開しています。

RNK's HomePage

Oracle SQL の入門的なものが中心ですが、VB関連のものも載せています。今回、VB.NET関連のTIPS的な関数で使えそうなものを載せていこうと思いまして以下のページを追加しました。

VB.NET入門・Tips

まだまだ記事数は少ないのですが、関心のある方は一度のぞいてみて下さい。
今回追加した内容は以下の様なものです。

転職を本気で考えている方向けのプログラミングスクール！【WebCampPRO】

投稿時刻 10:25 VB.NET | 個別ページ | コメント (0) | トラックバック (0)

VB.NET:FTPサーバへのアクセスでエラー発生（慌てたが、ログインユーザのパスワード期限切れ）について・覚え書き

FTPサーバへファイルをアップするプログラムを作成したのですが、久々に動作させてみたら、エラーが発生してしまいました。
ついこの間、1か月前ぐらいまでは動作していたので少し慌ててしまって、ちょっと青ざめてしまいました。

プログラムでのTry...Catchでエラーの内容をログで確認すると以下の様な感じでした。（最後のソースの場所については割愛した部分があります）原因としては、FTPのユーザのログインでエラーが発生しているようです。
このときのプログラムは抜粋ですが以下の様な感じです。

そこでログインエラーの原因を探るために、Windowsのコマンドプロンプトを起動し、 FTPサーバーに接続してみようと思いました。（ユーザのIDは伏せてありますが、FTPユーザは「ftpuser」という名前です）上記のエラーメッセージを見ると「The password for this account has expired.」が返ってきていて、パスワードが期限切れでした。
「ftpuser」のパスワードを再設定し、事無きを得ました。（パスワードを無制限にしておけばいいのですが）

.NET開発テクノロジ入門2016年版Visual Studio 2015対応版

投稿時刻 17:31 VB.NET | 個別ページ | コメント (0) | トラックバック (0)

VB.NET:Oracleファンクションを呼出す時の方法について・覚え書き

Oracleファンクションを呼出す時の方法ですが、最近使ったので覚え書きとして一般的な例を記します。

ファンクションの例として入力及び戻り値が同じで、各データ型（Number型、Varchar2型、日付型）の3個のファンクションを定義します。
ファンクションのソースは以下の通りです。ソースをご覧になれば分かりますが、これらのファンクションは特に複雑な処理は行わず、入力値に１を加算したり、文字列を付加して値を返す簡単なものです。

これらのファンクションのみを使う場合は DUAL 表を使えば通常のSELECT文でテストできます。例えば、以下の様なSQL文を実行してみます。ここでは、TEST_FNC3の出力のカラム幅が80桁になって表示が乱れるのであえてカラム幅を20桁に設定する COLUMN 命令を使っています。

SELECT文の出力を見れば、入力値に対して処理された値が返ってきているのが分かると思います。

この処理をVB.NETから操作する例は以下の通りです。（フォーム上のボタンクリックイベントの中に処理を記述してあります）

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    '接続文字列
    Dim strConnect As String = "Data Source=//localhost/xe; User ID=test;Password=test;"
    'オラクル接続オブジェクト
    Dim Conn As New OracleConnection(strConnect)
    Try
        'オラクル接続オープン
        Conn.Open()
        'SQL文
        Dim SQL As String = ""
        SQL &= "SELECT TEST_FNC1(1.05) AS FNC1"
        SQL &= "      ,TEST_FNC2(TO_DATE('2017/11/01')) AS FNC2"
        SQL &= "      ,TEST_FNC3('TEST') AS FNC3 FROM DUAL"
        'コマンドオブジェクト(SQL文と接続オブジェクト)
        Dim Cmd As New OracleCommand(SQL, Conn)
        Cmd.CommandType = CommandType.Text
        'コマンドオブジェクトの実行で読込オブジェクト取得
        Dim dr As OracleDataReader = Cmd.ExecuteReader()
        'データ行の読込処理
        If dr.Read() = True Then
            '読込が正常の場合、各データの取得
            Dim strMsg As String = ""
            strMsg &= "TEST_FNC1(1.05) = " & dr.Item("FNC1") & vbCrLf
            strMsg &= "TEST_FNC2(TO_DATE('2017/11/01')) = " & dr.Item("FNC2") & vbCrLf
            strMsg &= "TEST_FNC3('TEST') = " & dr.Item("FNC3")
            MsgBox(strMsg)
        End If
        '読込オブジェクトのクローズ
        dr.Close()
        dr = Nothing
        'オラクル接続クローズ
        Conn.Close()
    Catch exora As OracleException
        'オラクルエラー
        MsgBox(exora.Number & ":" & exora.Message)
    Catch ex As Exception
        'PGエラー
        MsgBox(ex.Message)
    Finally
        Conn.Dispose()
    End Try
End Sub

投稿時刻 17:03 Oracle, VB.NET | 個別ページ | コメント (0) | トラックバック (0)

VB.NET:Oracleプロシージャを呼出す時の方法について・覚え書き

Oracleプロシージャを呼出す時の方法ですが、最近使ったので覚え書きとして一般的な例を記します。

プロシージャの引数は、入力がNumber型、Varchar2型、日付型の3個で、出力は入力の値を更新して結果を返す、Number型、Varchar2型、日付型の3個で定義します。
プロシージャのソースは以下の通りです。ソースをご覧になれば分かりますが、このプロシージャは特に複雑な処理は行わず、入力値に１を加算したり、文字列を付加する簡単なものです。

このプロシージャをVB.NETから操作する関数の例は以下の通りです。

Private Function CallOracleProcedure() As Boolean
    fcCallOracleProcedure = False

Dim OraCmd As OracleCommand = Nothing
    Try
        'PROCEDURE TEST_PRC(InNumber in number, InVarchar in varchar2, InDate in date,
        '                   OutNumber out number, OutVarchar out varchar2, OutDate out date);

'接続文字列(仮に"test"というユーザで入る)
        Dim strConnect As String = "Data Source=//localhost/xe; User ID=test;Password=test;"
        'オラクル接続オブジェクト
        Dim Conn As New OracleConnection(strConnect)
        'オラクル接続オープン
        Conn.Open()
        'プロシージャ指定でOracleCommand生成
        OraCmd = New OracleCommand("TEST_PRC", Conn)
        OraCmd.CommandType = CommandType.StoredProcedure

'引数:InNumber
        Dim prmInNumber As OracleParameter
        prmInNumber = OraCmd.Parameters.Add("InNumber", OracleDbType.Decimal, ParameterDirection.Input)
        prmInNumber.Value = 1

'引数:InVarchar
        Dim prmInVarchar As OracleParameter
        prmInVarchar = OraCmd.Parameters.Add("InVarchar", OracleDbType.Varchar2, ParameterDirection.Input)
        prmInVarchar.Value = "1"

'引数:InDate
        Dim prmInDate As OracleParameter
        prmInDate = OraCmd.Parameters.Add("InDate", OracleDbType.Date, ParameterDirection.Input)
        prmInDate.Value = CDate("2017/11/01")

'引数:OutNumber
        Dim prmOutNumber As OracleParameter
        prmOutNumber = OraCmd.Parameters.Add("OutNumber", OracleDbType.Decimal, ParameterDirection.Output)
        prmOutNumber.Value = 0

'引数:OutVarchar
        Dim prmOutVarchar As OracleParameter
        prmOutVarchar = OraCmd.Parameters.Add("OutVarchar", OracleDbType.Varchar2, 1024, Nothing, ParameterDirection.Output)

'引数:OutDate
        Dim prmOutDate As OracleParameter
        prmOutDate = OraCmd.Parameters.Add("OutDate", OracleDbType.Date, ParameterDirection.Output)
        prmOutDate.Value = Nothing

'プロシージャ実行
        OraCmd.ExecuteNonQuery()

'各出力値を関数引数に設定
        'ステータス
        Dim strMsg As String = ""
        strMsg &= "OutNumber = " & DirectCast(prmOutNumber.Value, OracleDecimal).Value & vbCrLf
        strMsg &= "OutVarchar = " & DirectCast(prmOutVarchar.Value, OracleString).Value & vbCrLf
        strMsg &= "OutDate = " & DirectCast(prmOutDate.Value, OracleDate).Value.ToString & vbCrLf
        MsgBox(strMsg)

'正常終了
        Return True

Catch ex As Exception
        MsgBox(ex.Message)
    Finally
        'OracleCommand廃棄
        If OraCmd IsNot Nothing Then
            OraCmd.Dispose()
            OraCmd = Nothing
        End If
    End Try
End Function

先ず、オラクルに接続後、プロシージャ名を指定してでOracleCommand生成します。その後、OracleCommand の Parameters オブジェクトに入力及び、出力の引数を追加してやります。各 OracleParameter の生成で注意する点は、データがVarchar2型で、データ長を設定する必要があります。データ型のサイズが分かっているNumber、Date等は必要無いようです。

■関連ページ
⇒OracleSQLのその他・Tips等について
⇒ODP.NET について

ひと目でわかる VisualBasic 2013/2012データベース開発入門 (MSDNプログラミングシリーズ)

投稿時刻 17:52 Oracle, VB.NET | 個別ページ | コメント (0) | トラックバック (0)

VB.NET:While文を使って一連の処理を中断する方法

VB.NETでは繰り返し処理を行う為に、While 文、Do…While 文、For 文などを使います。
While 文であれば以下の様な感じで、While の判定式で判定結果がFalseになった時点でループを抜けます。 While の判定式を True にすると、無限ループになってしまうので、ループ内から抜け出すためには以下の様に Exit While 文を使います。ところで、この無限ループを使うことで一連の処理を下方向に向かって順次記述することができます。
私がよくやる方法なのですが、データのエラー処理などで、いくつかのエラーチェック処理を連続で行い、全てのチェックが正常で在った場合にOKとする場合などに無限ループを使います。上記のソースではエラーチェック関数の中身は記述しませんが、CheckProc1()～CheckProc3() が存在する前提です。
この様にすれば、If 文の入れ子をしなくても、エラーチェック処理を上から下に向かって連続して記述できます。ソースを見た時に各チェック処理の頭が揃い、見やすくするために行っています。何かのご参考になれば幸いです。

基礎Visual Basic 2015 基礎シリーズ

投稿時刻 11:06 VB.NET | 個別ページ | コメント (0) | トラックバック (0)

VB.NET:2017/10/11のWindows Updateで「外部データベースドライバー」エラー

今月の12日にソフトを提供している客先から、「外部データベースドライバー(1)で予期しないエラーが発生しました」のエラーが表示されて、正常動作しないとの連絡が在りました。
前日までは問題無く動作はしていたが、急に今回のエラーが発生したとのことでした。

原因特定のため、取り敢えずこちらでも同じ動作をさせてみたところ、やはり同じエラーが発生しました。
ソースを確認すると、エラーが発生した部分は「Provider=Microsoft.Jet.OLEDB.4.0;Data Source=...」を利用してエクセルからデータをアクセスに登録する処理で起きていました。

ちょっと焦ってしまい、頭がパニックになったのですが、昨日までは正常だったことと私のPCでも同じ現象になるので、Windows Updateが問題なのではと疑いました。

ネットで調べてみると、今回の「OLEDB」の件だけではなく、いろんな不具合が報告されていました。それで、Windows Updateを戻してソフトを起動みると、問題無く動作する様になりました。（対象となるのは【KB4041681】の様です。）

Microsoftには、今回の不具合の修正を行ってほしいものです。

投稿時刻 17:45 VB.NET | 個別ページ | コメント (0) | トラックバック (0)

おやじプログラマー日記

コンピュータ業界に身をおいて３０年あまり…VB.NET・OracleなどのTIPS、おやじの独り言

おすすめ本

最近の記事

最近のトラックバック

Ranking

最近のコメント

アーカイブ

AccRanking

Ad

カテゴリ「VB.NET」の82件の記事

2020年3月 7日 (土)

【ActiveReports 2.0J】複数フォーマットを合体させて１個のレポートを作成する方法

2018年3月12日 (月)

【VB.NET】VB.NETに関するTIPSのサイト・ページ追加

2018年2月14日 (水)

【VB.NET】VB.NETに関するTIPSのサイト・ページ追加

2018年1月28日 (日)

外部ＦＴＰサーバとの接続後の「LSコマンド」でハングアップ

2018年1月22日 (月)

【VB.NET】VB.NETに関するTIPSのサイト

2017年11月18日 (土)

VB.NET:FTPサーバへのアクセスでエラー発生（慌てたが、ログインユーザのパスワード期限切れ）について・覚え書き

2017年11月 2日 (木)

VB.NET:Oracleファンクションを呼出す時の方法について・覚え書き

2017年11月 1日 (水)

VB.NET:Oracleプロシージャを呼出す時の方法について・覚え書き

2017年10月26日 (木)

VB.NET:While文を使って一連の処理を中断する方法

2017年10月18日 (水)

VB.NET:2017/10/11のWindows Updateで「外部データベースドライバー」エラー

検索

admax

カテゴリ

リンク

LSF

LPOP