【发布时间】:2011-04-24 20:33:06
【问题描述】:
Dim con As New OleDb.OleDbConnection
Public outputs As New DataSet
sub main()
sqlquery("SELECT * FROM Students", "mark")
end sub
Sub sqlquery(ByVal sql As String, ByVal outputname As String)
Try
con.Open()
Dim da As OleDb.OleDbDataAdapter
da = New OleDb.OleDbDataAdapter(sql, con)
da.Fill(outputs, outputname)
con.Close()
Catch
errorid = 3
End Try
Console.WriteLine(messagefromerrorcode)
Console.WriteLine(outputs.Tables(outputname).Rows(0).Item(1))
End Sub
Here is an image of my table data and design
我正在尝试使用 oledb 数据集从数据库中读取一些值,但是当我运行 sql 命令并开始输出值时,我遇到了以下错误:“IndexOutOfRangeException:位置 0 处没有行。”。然而,当我在访问中运行相同的 sql 命令时,我得到了我想要的数据。
当我运行上述代码时,直到我到达我想要输出数据的最后一个写入行时才会产生错误。
任何想法都会有很大帮助。
【问题讨论】: