循环中，每次换一个参数，执行SQL语句对一个表进行查询的实现？？？

Question

这个东西很简单，以前在asp中的dataset也作过了，但是在asp.net中我不知道怎么弄，请指教
我希望每次查询都在一个dataset下的一个表中如：zdchinese
  For i = 0 To objDataSet.Tables("brwdatatble").Columns.Count - 1
    strZdbm = objDataSet.Tables("brwdatatble").Columns(i).ColumnName.ToString
    Response.Write(strZdbm + "<br>")
    tmpAdapter.SelectCommand.CommandText = "select distinct zdbm,zdmc from zzd_dict   
    where  zdbm='" + strZdbm + "'"
    tmpAdapter.Fill(tmpDataSet, "zdchinese")             '以为每次能对它覆盖，但是不行
                                                         '因为我也没有办法释放该表
    If tmpDataSet.Tables("zdchinese").Rows.Count Then _
               Response.Write(tmpDataSet.Tables("zdchinese").Rows(0).Item(1).ToString)   
  Next

Answer 1

把tmpAdapter.Fill(tmpDataSet, "zdchinese")  
改成：
tmpAdapter.Fill(tmpDataSet, "zdchinese"&i) 
试试

Answer 2

DataSet 包含多个 DataTable 对象
可以应该以上特性把程序改成如下：For i = 0 To objDataSet.Tables("brwdatatble").Columns.Count - 1
    strZdbm = objDataSet.Tables("brwdatatble").Columns(i).ColumnName.ToString
    Response.Write(strZdbm + "<br>")
    tmpAdapter.SelectCommand.CommandText = "select distinct zdbm,zdmc from zzd_dict   
    where  zdbm='" + strZdbm + "'"tmpAdapter.Fill(tmpDataSet, "zdchinese"&i) 
If tmpDataSet.Tables("zdchinese"&i).Rows.Count Then _
               Response.Write(tmpDataSet.Tables("zdchinese"&i).Rows(0).Item(1).ToString)     Next

Answer 3

那一部分感觉可以重用的。这样写：For i = 0 To objDataSet.Tables("brwdatatble").Columns.Count - 1
    strZdbm = objDataSet.Tables("brwdatatble").Columns(i).ColumnName.ToString
    Response.Write(strZdbm + "<br>")
    strZdMc=GET_DICT_MC(strZdbm)
    Response.Write(strZdMc + "<br>")
Next
........Function GET_DICT_MC(bm as string) as string
     Dim Sql as string     'bm应该检查一下
     Sql="select distinct zdbm,zdmc from zzd_dict where  zdbm='" + bm + "'"
     return dataExecuteScalar(Sql)
End Function
        '执行SQL语句
        Public Overloads Function dataExecuteScalar(ByVal ExecSql As String, Optional ByVal DefaultValue As String = "") As String
            Dim Sql As String
            Dim Cmd As OracleCommand
            Dim rtnScalar As String
            Cmd = New OracleCommand(ExecSql, Conn)
            Try
                rtnScalar = Cmd.ExecuteScalar()
            Catch expsc As Exception
                rtnScalar = DefaultValue
            End Try
            If IsNothing(rtnScalar) Then rtnScalar = DefaultValue
            Cmd.Dispose()
            Return rtnScalar
        End Function

Answer 4

Function GET_DICT_MC(bm as string) as string
     Dim Sql as string     'bm应该检查一下
     Sql="select zdmc from zzd_dict where  zdbm='" + bm + "'"
     return dataExecuteScalar(Sql)
End Function