已有打开的与此命令相关联的 DataReader，必须首先将它关闭,一直出现这句话

显示全部楼层 · 2011-6-1 16:03:01

Dim objconn As New SqlClient.SqlConnection(conn)

Dim objad As New SqlClient.SqlDataAdapter

Dim objdata As New DataSet

Dim read As SqlDataReader

Dim objcomm As New SqlClient.SqlCommand
objcomm.CommandText = "select * from 住房信息表 where 房间编号='" & TextBox1.Text & "'and 入住日期='" & TextBox2.Text & "'"
objconn.Open()

objcomm.Connection = objconn

objad.SelectCommand = objcomm

read = objcomm.ExecuteReader()

If read.Read() = False Then

MsgBox("对不起没有此客户", , "友情提示")

TextBox1.Text = ""

TextBox2.Text = ""
If Not read.IsClosed Then

read.Close()

End If

objconn.Close()
Else

objad.Fill(objdata, "住房信息表")

objconn.Close()
DataGridView1.DataSource = objdata.Tables("住房信息表")

千问 · 2011-6-1 16:03:01

把那个判断去掉用完了直接关闭...