请教sql的优化写法

[michaelmodna]

  Dim request As New IB1001Request(reqBuffer)
        Dim strSQL As String

        Dim conn As SqlConnection = SqlConnFactory.CreateConn()
        Dim cmd As SqlClient.SqlCommand

        conn.Open()

        Dim AccNum As String
        Dim dr As SqlDataReader

        If request.ACNO.Trim <> String.Empty Then
            AccNum = request.ACNO.Trim
        Else
            If request.SETACCNO.Trim <> String.Empty Then
                AccNum = request.SETACCNO.Trim
            End If
        End If

        Try
            strSQL = String.Format("select * from CPAccounts  where  cpa_accnum = '{0}'", AccNum)

            cmd = New SqlCommand(strSQL, conn)
            dr = cmd.ExecuteReader(CommandBehavior.Default)

            If dr.Read() Then    '查找是否已参加服务A
                IS_CP = True
                cp_account = dr.Item("cpa_accnum")

            Else
                IS_CP = False
                cp_account = String.Empty
            End If

            dr.Close()

            strSQL = String.Format("select * from AMAccounts  where  ama_accnum = '{0}'", AccNum)

            cmd = New SqlCommand(strSQL, conn)
            dr = cmd.ExecuteReader(CommandBehavior.Default)

            If dr.Read() Then     '查找是否已参加服务B
                IS_AM = True
                am_account = dr.Item("ama_accnum")
            Else
                IS_AM = False
                am_account = String.Empty
            End If
            dr.Close()

            strSQL = String.Format("select * from IBAccounts  where  iba_accnum = '{0}'", AccNum)

            cmd = New SqlCommand(strSQL, conn)
            dr = cmd.ExecuteReader(CommandBehavior.Default)

            If dr.Read() Then     '查找是否已参加服务C
                IS_IB = True
                ib_account = dr.Item("iba_accnum")
            Else
                IS_IB = False
                ib_account = String.Empty
            End If

         Catch ex As Exception
            Debug.WriteLine(ex.ToString)
            Throw
        Finally
            dr.Close()
            cmd.Dispose()
            conn.Close()
        End Try

想确认一下，上述查询中，是否存在能优化的地方，如用一个select 即可之类的做法，而且目前应用较频繁，经常出现

超时时间已到。超时时间已到，但是尚未从池中获取连接。出现这种情况可能是因为所有池连接均在使用，并且达到了最大池大小

我查过相关文章，说是可以将 datareader 改为 DataAdapter和DataSet，请问是有这回事吗？先谢过各位了！

[tzs2304]

up
select * 写成select 字段1,字段2

[michaelmodna]

[Quote=引用 1 楼 tzs2304 的回复:]
up
select * 写成select 字段1,字段2
[/Quote]

是三不不同的表，然后我分别传帐号过去，如有资料，则赋True，能具体些吗?

[Lovely_baby]

asp代码？？

[michaelmodna]

[Quote=引用 3 楼 lovely_baby 的回复:]
asp代码？？
[/Quote]
是 vb.net的

[wang_wei_jie]

select a=(case when exists(select * from CPAccounts where cpa_accnum = '{0}') then 1 else 0 end),
b=(case when exists(select * from AMAccounts where ama_accnum = '{0}') then 1 else 0 end ),
c=(case when exists(select * from IBAccounts where iba_accnum = '{0}') then 1 else 0 end )

[wang_wei_jie]

这个肯定是有结果的。。。你可以看一下dr.read的结果，如果a=0则没有参加服务A,=1则参加。。。

[wuyq11]

使用数据库操作类

[michaelmodna]

[Quote=引用 5 楼 wang_wei_jie 的回复:]
select a=(case when exists(select * from CPAccounts  where  cpa_accnum = '{0}') then 1 else 0 end),
b=(case when exists(select * from AMAccounts  where  ama_accnum = '{0}') then 1 else 0 end ),
c=(case when exists(select * from IBAccounts  where  iba_accnum = '{0}') then 1 else 0 end )
[/Quote]

感谢 5楼的 朋友，谢谢！！！

[a2bvchen]

额 VB？