Dim connection As OleDb.OleDbConnection = New OleDbConnection
connection.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=CMP.accdb"
connection.Open()
Dim da As OleDb.OleDbDataAdapter = New OleDbDataAdapter("SELECT IDDesc FROM [ItemDesc] WHERE IDPartNo = " & PartNoTxt.Text & ";", connection)
Dim ds As New DataSet
da.Fill(ds, "FilteredDesc")
connection.Dispose()
connection = Nothing
DescTxt.Text = ds.Tables(0).Rows(0).Item(0)
我将20-0015175放在PartNoTxt,我的数据库中有相同的IDPartNo。但它没有返回我的数据集中的任何行。谁知道问题是什么? “位置0没有排。”我认为我的问题是在我的查询中使用WHERE子句。
答案 0 :(得分:1)
解决了它。
更改了:
" & PartNoTxt.Text & "
为:
'" & PartNoTxt.Text & "'