executeread命令同时从一个数据库中访问库中的两张表！！！！！

[xzhy80]

If Page.IsValid Then

Dim StrConn As String = "user ID = sa; password =;"
StrConn += "database = bugs; server = (local);"
StrConn += "connect timeout =30"

Dim Conn As New SqlConnection(StrConn)

Conn.Open()

Dim StrSql As String = "SELECT * FROM muser WHERE userid =" & TempUser & ", passwd=" & TempPassword

Dim Cmd As New SqlCommand(StrSql, Conn)

Dim Dr As SqlDataReader = Cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)

Dim ReadTrue As Boolean = False

If Dr.Read() = True Then

Dim TempStr As String
TempStr = Dr("sect")
Response.Write("SECT:" & TempStr & "<br>")
ReadTrue = True

End If

If ReadTrue = True Then

StrSql = "SELECT msg FROM mmsg WHERE msgid = 'msg001'"
Cmd = New SqlCommand(StrSql, Conn)
Dr = Cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)

If Dr.Read() = False Then

Else

Session("msgid") = Dr("msgid")
Response.Write("MSGID:" & Session("msgid") & "<br>")

Session("msg") = Dr("msg")
Response.Write("MSG:" & Session("msg") & "<br>")


Dim num As Double = 0.1
Do While num > 99999.0
num += 0.1
Loop

End If

Conn.Close()
Response.Redirect("PCom002.aspx")

End If

End If


执行总有错误，executereader行有错误

[xzhy80]

这个不是一个简单的问题麽
怎么没有人来啊

[yistudio]

修改一下
If ReadTrue = True Then

StrSql = "SELECT msg FROM mmsg WHERE msgid = 'msg001'"
Cmd = New SqlCommand(StrSql, Conn)
'加上一句
if Dr.IsClosed=False Then Dr.Close()
Dr = Cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)

If Dr.Read() = False Then

Else

[xzhy80]

问题已经解决了
也明白了点道理
谢谢上面的3位

[xzhy80]

If Page.IsValid Then

Dim StrConn As String = "user ID = sa; password =;"
StrConn += "database = bugs; server = (local);"
StrConn += "connect timeout =60"

Dim Conn As New SqlConnection(StrConn)

If Conn.State <> ConnectionState.Open Then
Conn.Open()
End If

Dim StrSql As String = "SELECT * FROM muser WHERE userid ='" & TempUser & "'AND passwd='" & TempPassword & "'"

Dim Cmd As New SqlCommand(StrSql, Conn)

Dim Dr As SqlDataReader = Cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)

Dim ReadTrue As Boolean = False

If Dr.Read() = True Then

Dim TempStr As String
TempStr = Dr("sect")
Response.Write("SECT:" & TempStr & "<br>")
ReadTrue = True

End If
Dr.Close()

If Conn.State <> ConnectionState.Closed Then
Conn.Close()
End If

If ReadTrue = True Then

Conn = New SqlConnection(StrConn)

If Conn.State <> ConnectionState.Open Then
Conn.Open()
End If

StrSql = "SELECT msg,msgid FROM mmsg WHERE msgid = 'msg001'"

Cmd = New SqlCommand(StrSql, Conn)
Dr = Cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)

If Dr.Read() = False Then

Else

Session("msgid") = Dr("msgid")
Response.Write("MSGID:" & Session("msgid") & "<br>")

Session("msg") = Dr("msg")
Response.Write("MSG:" & Session("msg") & "<br>")


Dim num As Double = 0.1
Do While num = 99999.0
num += 0.1
Loop

End If
Dr.Close()
If Conn.State <> ConnectionState.Closed Then
Conn.Close()
End If
Response.Redirect("PCom002.aspx")

End If

End If

在打开和关闭的时候，先判断一下状态，然后再开关
这样就不会有错误了：）

[zhuyaowei]

Dim StrSql As String = "SELECT * FROM muser WHERE userid =" & TempUser & ", passwd=" & TempPassword
sql语句有错误嘛？
你的userid和passwd都是数值型嘛?怎么没引号？

[xzhy80]

呵呵
这个还能执行下去
我主要的问题是executereader的
对这个语句没有什么理解
想问问这个

[xzhy80]

我打开的是两个表
本来想定义2套的，但要求用一个连接访问
所以才这么改，
但总有问题
不知道是怎么回事

[zjh135]

如果产生这个错误，一个是SQL语句有问题，二是没有关闭连接。。

[xzhy80]

如果是第二条产生的错误
没有关闭连接要怎么写啊
才刚用.net，对这个不很熟悉啊
能给代码说明一下麽