**cn** が Nothing というエラーメッセージが出る

Question

前提・実現したいこと

個人情報テーブルからNO　00001を取得して
もしデータが存在すればアップデート
存在しない場合は追加する

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

**cn** が Nothing でした。

該当のソースコード

 '入力チェック
        If (Label1.Text.Length = 0) Then
            MsgBox("データ異常")
            Exit Sub
        End If
        'インスタンス化
        Dim cn As New clsSQL
        'label1.textに表示されている文字列からstringreaderというインスタンスを作成
        Dim rs As New System.IO.StringReader(Label1.Text)

        Dim stresult As String = String.Empty
        '端末まで繰り返す
        While rs.Peek() > -1
            'rs.ReadLine()

            Dim x As String = rs.ReadLine


            Dim 分解() As String = x.Split(","c)

            'データベースに接続する設定をプロパティにセット
            cn.ConnectionString = "Data Source=PALNET-D07\SQL2017;Initial Catalog=TestDB;User ID=sa;Password=''"

            'トランザクション開始
            cn.BeginTrans()

            '個人情報テーブルからデータ取得

            cn._Select("select * from 個人情報 where NO ='00001' order by no")
            'もしデータが存在すればUPDATEする
            If cn.EOF = True Then
                Dim update1 As String = "UPDATE 個人情報テーブル SET no 00001 = no 00001"
                cn._Execute(update1)

            Else
                '存在しないなら追加する
                Dim insert1 As String = "insert into 個人情報(NO) values (NO 00001)"
                cn._Execute(insert1)

            End If
            '書き込み開始
            cn.Update()
            If cn.ErrorMessage = "" Then
                '確定
                cn.Commit()
            Else
                '巻き戻し
                cn.Rollback()
            End If

            'データベース切断
            cn.Close()
            cn = Nothing
            For Each c In 分解
                Console.WriteLine(c)
            Next
            Console.WriteLine(分解.Length)

補足情報（FW/ツールのバージョンなど）

ビジュアルスタジオ２０１９

Comments

[mdj]

コードを動かしてからじゃないですかね

[gentaro]

https://teratail.com/questions/347294
> radian 2021/07/02 16:11 編集
>・ソースコードは```と```の間に書いてください。
>・開発環境を記入してください。
>(.NET FrameworkやVisualStudioのバージョン、使用しているDBやライブラリがあればそれらのも）
> 不慣れなら質問のテンプレートを使用して質問してください。

> Chloe____ 2021/07/02 16:14
>分かりましたすいません
>開発環境はVisualStudioです

何一つ言葉が通じてない。
荒らしか、荒らしてるつもりがなくてもそれに準ずる人だなコレは…。

[mdj]

clsSQLがどうなってるのかわからないので何ともですが、「**cn** が Nothing でした。」とエラーがでる以上、そこを解決くださいとしか。引数の値の形式があってるのかも何も判断できません。

Answer 1

まず、Try-Catchで例外処理を行い、CatchブロックでExceptionオブジェクトの内容をきちんと調べてください。
エラー処理（例外処理）の基本
Exception クラス

Exceptionにはエラーに関する様々な情報が含まれており、例外の種類、エラー内容のメッセージ、StackFrameでエラーの発生個所を遡って調べる事が出来ます。メッセージからは、おそらく NullReferenceException であろうと思われます。cnという変数にNothingが設定されているにも関わらず、そこを参照しようとしたって事ですね。

質問のソース中には cn = Nothingにしている箇所が存在しますが、おそらくそれ以降にcnという変数にアクセスしようとしている箇所があるのではないでしょうか。何にしても、Exceptionの内容からエラーの発生個所を確認して、そこを修正してください。質問のソースからは、どう修正すればいいかまでは答えられません。

Comments

[Chloe____]

教えていただきありがとうございます

[退会済みユーザー]

代理デバッグ的な質問は非推奨質問なので普段は回答していませんが、初心者マークということで、今回だけ回答しました。エラーは問題解決のヒントなので、まず質問する前にエラーの内容を自分自身でよく分析してください。
[推奨していない質問] https://teratail.com/help/avoid-asking