chintao1224 score 87
2017/07/28 00:27 投稿
| VB.Netでpostgresqlのテーブルselect |
| win7で、vb2017(community版)、postgresql9.6を使っています。 |
| TESTテーブルをselectしてデータがあればupdate、なければinsertしようと思っています。 |
| 何とかソースを書いたんですが、うまく動作しません。 |
| Npgsqlを使っています。 |
| ```vb.net |
| cnは接続文字列です。 |
| Dim strSQL As String = "SELECT * FROM public.TEST WHERE ID='" & Code.ToString() & "';" |
| Dim cmd As NpgsqlCommand = New NpgsqlCommand(strSQL, cn) |
| Dim reader As NpgsqlDataReader = cmd.ExecuteReader() |
| If reader.HasRows = False Then |
| インサート文 |
| Else |
| アップデート文 |
| End If |
| ``` |
| dim readerのところでエラーになります。 |
| 「Npgsql.NpgsqlException: '外部コンポーネントが例外をスローしました。'」 |
| コード自体間違っているのでしょうか。 |
| コード自体間違っているのでしょうか。 |
| ソースをまとめてみました。 |
| ```vb.net |
| Dim npgCnct As NpgsqlConnection |
| Dim npgCmnd As NpgsqlCommand |
| Dim npgDR As NpgsqlDataReader |
| Dim strSql As String |
| npgCnct = New Npgsql.NpgsqlConnection |
| npgCnct.ConnectionString = "Server=localhost;Port=5432;User Id=user1;Password=pass;Database=TESTDB;" |
| npgCnct.Open() |
| strSql = "SELECT * FROM public.TEST;" |
| npgCmnd = New NpgsqlCommand |
| npgCmnd.Connection = npgCnct |
| npgCmnd.CommandText = strSql |
| npgDR = npgCmnd.ExecuteReader() |
| ``` |
| やはりnpgDR = npgCmnd.ExecuteReader()のところで下記のエラーが出ます。 |
| 「Npgsql.PostgresException: '外部コンポーネントが例外をスローしました。'」 |
| なぜエラーになるのでしょうか？ |
