C# と VB.NET の質問掲示板

開発環境：win10,Oracle12c,VB2012
Oracleサーバ：19c

Oracle19cに対応する為、接続文字列を�@から�Aへ変更しました。
しかし、日付型のデータをSUBSTRで切り出した時、接続文字列�@と�Aで結果が異なります。
SUBSTR(START_DATE, 1, 5)部分をTO_CHAR(START_DATE, 'YY-MM')で書き直すしかないのでしょうか？
御存じの方いらっしゃいましたら宜しくお願い致します。

Dim DB As ADODB.Connection
Dim Con As String
Dim RS As ADODB.Recordset

DB = New ADODB.Connection()
�@Con = "Provider = MSDAORA.1;Data Source=TEST;USER ID=TEST_USER/TEST_PASS"
�ACon = "Provider = OraOLEDB.Oracle;Data Source=TEST;USER ID=TEST_USER;Password=TEST_PASS"
DB.Open(Con)

RS = New ADODB.Recordset

RS.Open("Select SUBSTR(START_DATE, 1, 5) As A From TEST_TABLE", DB)

Debug.Print(ADO_RS("A").Value)
�@で接続したとき・・・23-05
�Aで接続したとき・・・2023-

開発環境：VS2005 VB.net
下記ソースはVS2022 C#です。

VBでC#の if (MyEvent != null) のような分岐方法をしたいのですが分かりません。

「// ここで別処理を記述したい」のところに
MyEventが定義されていない場合の別処理を行ないたいのですが
VBでのイベント発生方法は RaiseEventと書いているのしか見つからず困っています。
よろしくお願いします。

public partial class Form1 : Form
{
    public event EventHandler MyEvent;

    protected override void OnMouseDown(MouseEventArgs e)
    {
        if (MyEvent != null)
            MyEvent.Invoke(this, EventArgs.Empty);
        else
            // ここで別処理を記述したい

        base.OnMouseDown(e);
    }
}

いつも初歩的なことばかりですみません。
下のはhttps://dobon.net/vb/dotnet/programing/displayprogress.htmlにあったのを見させていただいたものです。
この中の
 > '1秒間待機する（時間のかかる処理があるものとする）
 >  System.Threading.Thread.Sleep(1000)
を、、
System.Threading.Thread.Sleep(1000)
System.Threading.Thread.Sleep(1000)
System.Threading.Thread.Sleep(1000)
のように3回繰り返し、１回終る毎に進行状況表示が3分の1づつ増え、3回目で終わるにはどのようにすれば良いのか教えてください。
ここではFor i = 1 To maxLoopsで進行状況表示がされています。
よろしくお願いします。
　　　　-----------------------------------------------------------
    'Button1のClickイベントハンドラ
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        '処理が行われているときは、何もしない
        If BackgroundWorker1.IsBusy Then
            Return
        End If

        'Button1を無効にする
        Button1.Enabled = False

        'コントロールを初期化する
        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = 10
        ProgressBar1.Value = 0
        Label1.Text = "0"

        'BackgroundWorkerのProgressChangedイベントが発生するようにする
        BackgroundWorker1.WorkerReportsProgress = True
        'DoWorkで取得できるパラメータ(10)を指定して、処理を開始する
        'パラメータが必要なければ省略できる
        BackgroundWorker1.RunWorkerAsync(10)
    End Sub

    'BackgroundWorker1のDoWorkイベントハンドラ
    'ここで時間のかかる処理を行う
    Private Sub BackgroundWorker1_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Dim bgWorker As BackgroundWorker = DirectCast(sender, BackgroundWorker)

        'パラメータを取得する
        Dim maxLoops As Integer = CInt(e.Argument)

        '時間のかかる処理を開始する
        Dim i As Integer
        For i = 1 To maxLoops
            '1秒間待機する（時間のかかる処理があるものとする）
            System.Threading.Thread.Sleep(1000)

            'ProgressChangedイベントハンドラを呼び出し、
            'コントロールの表示を変更する
            bgWorker.ReportProgress(i)
        Next

        'ProgressChangedで取得できる結果を設定する
        '結果が必要なければ省略できる
        e.Result = maxLoops
    End Sub

    'BackgroundWorker1のProgressChangedイベントハンドラ
    'コントロールの操作は必ずここで行い、DoWorkでは絶対にしない
    Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal e As ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
        'ProgressBar1の値を変更する
        ProgressBar1.Value = e.ProgressPercentage
        'Label1のテキストを変更する
        Label1.Text = e.ProgressPercentage.ToString()
    End Sub

    'BackgroundWorker1のRunWorkerCompletedイベントハンドラ
    '処理が終わったときに呼び出される
    Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal e As RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
        If Not e.Error Is Nothing Then
            'エラーが発生したとき
            Label1.Text = "エラー:" & e.Error.Message
        Else
            '正常に終了したとき
            '結果を取得する
            Dim result As Integer = CInt(e.Result)
            Label1.Text = result.ToString() & "回で完了しました。"
        End If

        'Button1を有効に戻す
        Button1.Enabled = True
    End Sub

相変わらずの素人な質問ですみません。
Windows11、VB2017です。
　　　
このように0（ゼロ）を含んでのデータの場合には、
必ず0（ゼロ）の位置にY軸目盛りを表示するにはどのようにすれば良いのか教えてください。
サンプルプログラムの修正でお願いします。

        '乱数を生成
        Dim dat(20) As Single
        Dim rand As New Random()
        For i = 0 To 20
            dat(i) = rand.Next(-30, 65)
        Next

        '
        Dim ds As New DataSet
        Dim dt As New DataTable
        Dim dtRow As DataRow
        With dt.Columns
            .Add("数値", GetType(Single))
        End With
        ds.Tables.Add(dt)

        'データの追加
        For i = 0 To 20
            dtRow = ds.Tables(0).NewRow
            dtRow(0) = dat(i)
            ds.Tables(0).Rows.Add(dtRow)
        Next
        '----------------
        'Chart1 の描画
        '----------------
        'Chart に表示するデータソースを設定
        Chart1.DataSource = ds
        '　折れ線
        Dim ore1 = Chart1.Series.Add("折れ線�@")
        With ore1
            .ChartType = DataVisualization.Charting.SeriesChartType.Line
            .YValueMembers = "数値"
        End With
        'Y軸の最低最高
        Chart1.ChartAreas(0).AxisY.Minimum = -30
        Chart1.ChartAreas(0).AxisY.Maximum = 65
        'Y軸ラベル表示の間隔
        Chart1.ChartAreas(0).AxisY.Interval = 50