Question

vb.net 按关键字查询ACCESS数据库

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Dim XM As String
XM = InputBox("姓名", "查询")
Dim ConnectionString As String = " Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:\Documents and Settings\Administrator\桌面\yqh.mdb"
Dim strsel As String = " select 姓名,性别,年龄,联系方式,工号 from tx1 where 姓名='XM'"
Dim strrow As String = ""
Dim mycon As New OleDbConnection(ConnectionString)
Try
mycon.Open()
MessageBox.Show("已正确连接")
Catch ex As Exception
MessageBox.Show("连接失败")
Exit Sub
End Try
Dim mycom3 As New OleDbCommand
mycom3.Connection = mycon
mycom3.CommandType = CommandType.Text
mycom3.CommandText = strsel
Dim MyDataReader As OleDbDataReader = mycom3.ExecuteReader()
MyDataReader.Read()
Dim i, str1 As Integer
str1 = 0
For i = 0 To 4
strrow = MyDataReader.GetString(i) + " "
str1 = str1 + strrow
Next
Label6.Text = str1
End Sub
我的的思路是这样的，先点击“查询”，然后在Inputbox 中输入姓名，按确定，在label6中显示出 输入姓名人的相关信息
'其中的for 循环是读取各字段下的值，条件是 姓名为我输入的姓名。为什么一直出错。麻烦各位大侠抽一点时间指点指点，不胜感激！

Answer 1

str1是数字类型而strrow是文字类型，所以出错。。
把str1转成string就可以了。。。

追问

不好意思，还是出现这个问题，麻烦再看看···谢谢

追答

因为你的数据库没有XM这个人，所以行和列都不存在。。

追问

不是的啊，我把XM换成数据库里存在的人名，还是出现如题所示的问题啊？麻烦再看看呢，是不是选择的时候条件写错了还是？？

追答

你的sql语句也是有错误。
Dim strsel As String = " select 姓名,性别,年龄,联系方式,工号 from tx1 where 姓名=‘“ & XM &”’
我有运行你的代码，经过我修改后，没有出现任何问题。。

追问

不好意思，能提供下邮箱么？我把我做的发给你看看，就差最后一步查询了，我的的思路是这样的，先点击“查询”，然后在Inputbox 中输入姓名，按确定，在label6中显示出 输入姓名人的相关信息，我用的2003vb.net

追答

我用的是vb.net2010和access2007....下面是我的代码并附上最终结果的截图。。
Dim XM As String
XM = InputBox("姓名", "查询")
Dim ConnectionString As String = " Provider = Microsoft.ACE.OLEDB.12.0; Data Source = C:\1.accdb"
Dim strsel As String = " select 姓名,性别,年龄,联系方式,工号 from tx1 where 姓名='" & XM & "'"
Dim strrow As String = ""
Dim mycon As New OleDbConnection(ConnectionString)
Try
mycon.Open()
' MessageBox.Show("已正确连接")
Catch ex As Exception
MessageBox.Show("连接失败")
Exit Sub
End Try
Dim mycom3 As New OleDbCommand
mycom3.Connection = mycon
mycom3.CommandType = CommandType.Text
mycom3.CommandText = strsel
Dim MyDataReader As OleDbDataReader = mycom3.ExecuteReader()
MyDataReader.Read()
Dim i As Integer
Dim str1 As String
str1 = 0
For i = 0 To 4
strrow = MyDataReader.GetString(i) + " "
str1 = str1 + strrow
Next
Label1.Text = str1

追问

谢谢你为不相识的人回答了这么多遍，但我用的Vb.net2003 access2003调试出来的是如图所示的结果，依旧不清除是怎么回事？还想麻烦你看看

我再摸索摸索···
谢谢你一遍遍的解答。
（你给我的网站，全英文的，看不懂，哈哈··）

追答

上传到115网站，或者电邮到jason_cck@yahoo.com