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

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[3]: 行および列にデータが存在しません。

分類:[.NET 全般]　

質問させて頂きます。

C:\にあるmdbファイルからSQLでデータを取得していますが、「行および列にデータが存在しません。」というエラーでデータが取得できません。
コードは以下の通りです。

Function GetID(ByVal JCode As String, ByVal JDay As String, ByVal JNo As String) As String
Dim cmd As New OleDb.OleDbCommand
Dim rs As OleDb.OleDbDataReader = Nothing

cmd = cn.CreateCommand
cmd.CommandText = "SELECT ID FROM ZData WHERE J_Code = '" & JCode & "' AND J_Day = '" & JDay & "' AND J_No = '" & JNo & "'"

rs = cmd.ExecuteReader

If rs.HasRows = True Then
GetID = rs.Item(0) ←ここでエラーになる。
Else
GetID = ""
End If
cmd.Dispose()
rs = Nothing
End Function

HasRowsはTrueになるのですが、アイテムを取得しようとするとエラーとなります。
なお、ExecuteScalarで試してみた所0となりました。

ただ、エラーのコードでブレイクポイントを作って止めてSQL分をコピーし、アクセスのクエリに貼り付け実行すると正常に値は取得できます。

わかる方教えてください。

■No43175 (だいさん) に返信
> 質問させて頂きます。
>
> C:\にあるmdbファイルからSQLでデータを取得していますが、「行および列にデータが存在しません。」というエラーでデータが取得できません。
> コードは以下の通りです。
>
> Function GetID(ByVal JCode As String, ByVal JDay As String, ByVal JNo As String) As String
> Dim cmd As New OleDb.OleDbCommand
> Dim rs As OleDb.OleDbDataReader = Nothing
>
> cmd = cn.CreateCommand
> cmd.CommandText = "SELECT ID FROM ZData WHERE J_Code = '" & JCode & "' AND J_Day = '" & JDay & "' AND J_No = '" & JNo & "'"
>
> rs = cmd.ExecuteReader
>
> If rs.HasRows = True Then
> GetID = rs.Item(0) ←ここでエラーになる。
> Else
> GetID = ""
> End If
> cmd.Dispose()
> rs = Nothing
> End Function
>
> HasRowsはTrueになるのですが、アイテムを取得しようとするとエラーとなります。
> なお、ExecuteScalarで試してみた所0となりました。
>
> ただ、エラーのコードでブレイクポイントを作って止めてSQL分をコピーし、アクセスのクエリに貼り付け実行すると正常に値は取得できます。
>
> わかる方教えてください。
>

ExecuteReader で取得した直後の DbDataReader は、先頭レコードよりも前をポイントしています。
先頭レコードに位置を移動させるため、まず Read メソッドを呼ぶ必要があります。

■No43176 (だいさん) に返信
> ■No43175 (だいさん) に返信
>>質問させて頂きます。
>>
>>C:\にあるmdbファイルからSQLでデータを取得していますが、「行および列にデータが存在しません。」というエラーでデータが取得できません。
>>コードは以下の通りです。
>>
>>Function GetID(ByVal JCode As String, ByVal JDay As String, ByVal JNo As String) As String
>> Dim cmd As New OleDb.OleDbCommand
>> Dim rs As OleDb.OleDbDataReader = Nothing
>>
>> cmd = cn.CreateCommand
>> cmd.CommandText = "SELECT ID FROM ZData WHERE J_Code = '" & JCode & "' AND J_Day = '" & JDay & "' AND J_No = '" & JNo & "'"
>>
>> rs = cmd.ExecuteReader
>>
>> If rs.HasRows = True Then
>> GetID = rs.Item(0) ←ここでエラーになる。
>> Else
>> GetID = ""
>> End If
>> cmd.Dispose()
>> rs = Nothing
>> End Function
>>
>>HasRowsはTrueになるのですが、アイテムを取得しようとするとエラーとなります。
>>なお、ExecuteScalarで試してみた所0となりました。
>>
>>ただ、エラーのコードでブレイクポイントを作って止めてSQL分をコピーし、アクセスのクエリに貼り付け実行すると正常に値は取得できます。
>>
>>わかる方教えてください。
>>

ありがとうございます。

コードを見ていて、単純なミスに気づきました。

お手数お掛けしました。

解決済みチェックつけときますね。

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

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[3]: 行および列にデータが存在しません。

過去ログには書き込み不可