mahdi372
دوشنبه 10 دی 1397, 15:44 عصر
با سلام، ویژوال استودیو به من این ارور رو نمایش میده:
یه نرم افزار ساده درست کردم که یه آیتم از بانک اطلاعاتی اکسس بگیره و در تکست باکس نمایش بده. ولی این ارور رو میده!
An unhandled exception of type 'System.IndexOutOfRangeException' occurred in System.Data.dll
Additional information: There is no row at position 0.
تصویر:
149540
کدهایی که نوشتم:
Imports System.Data.OleDb
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim StrCon As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Admin\Documents\Visual Studio 2015\Projects\Eshkal_Nevis\Eshkal_Nevis\bin\Debug\ EshkalBankTest.accdb"
Dim Con As OleDbConnection
Dim da As OleDbDataAdapter
'Dim cmd As OleDbCommand
Dim stroledb As String = ""
Dim ds As New DataSet
ds.Reset()
Con = New OleDbConnection(StrCon)
Con.Open()
stroledb = "SELECT GozareshD FROM Eshkal WHERE (GozareshD = '" & TextBox1.Text & "') "
da = New OleDbDataAdapter(stroledb, Con)
da.Fill(ds, "Eshkal")
Con.Close()
TextBox1.Text = ds.Tables("Eshkal").Rows(0).Item("GozareshD")
End Sub
End Class
یه نرم افزار ساده درست کردم که یه آیتم از بانک اطلاعاتی اکسس بگیره و در تکست باکس نمایش بده. ولی این ارور رو میده!
An unhandled exception of type 'System.IndexOutOfRangeException' occurred in System.Data.dll
Additional information: There is no row at position 0.
تصویر:
149540
کدهایی که نوشتم:
Imports System.Data.OleDb
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim StrCon As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Admin\Documents\Visual Studio 2015\Projects\Eshkal_Nevis\Eshkal_Nevis\bin\Debug\ EshkalBankTest.accdb"
Dim Con As OleDbConnection
Dim da As OleDbDataAdapter
'Dim cmd As OleDbCommand
Dim stroledb As String = ""
Dim ds As New DataSet
ds.Reset()
Con = New OleDbConnection(StrCon)
Con.Open()
stroledb = "SELECT GozareshD FROM Eshkal WHERE (GozareshD = '" & TextBox1.Text & "') "
da = New OleDbDataAdapter(stroledb, Con)
da.Fill(ds, "Eshkal")
Con.Close()
TextBox1.Text = ds.Tables("Eshkal").Rows(0).Item("GozareshD")
End Sub
End Class