Question

vb.net如何让msgbox显示存储过程里的sql语句

objComm.CommandText = "select 厅号摊位号,租金价格zl as 租金价格,租赁期限zl as 租赁期限,业主编号 From zl where datediff(d,getdate(),租赁期限zl)<30"
这句中的sql内容在msgbox显示

Answer 1

msgbox(objComm.CommandText.ToString)

这句放在上面那句之后

追问

不对，我要显示的是sql查询语句中的内容，不是sql语句

追答

首先在当前代码最前加入

Imports System.Data.SqlClient

然后在你的objComm.CommandText=那一句之后加入

        Dim sqlDataAdpt As New SqlDataAdapter(objComm)
        Dim sqlDataSet As New DataSet
        Dim strColumn As String = ""
        Dim strRows As String = ""
        sqlDataAdpt.Fill(sqlDataSet, "zl")
        For Each sqlColData As DataColumn In sqlDataSet.Tables(0).Columns
            strColumn &= sqlColData.ColumnName & Space(10)
        Next
        strColumn &= Environment.NewLine
        For Each sqlRowData As DataRow In sqlDataSet.Tables(0).Rows
            For i As Integer = 1 To sqlDataSet.Tables(0).Columns.Count
                strRows &= sqlRowData(i - 1)
            Next i
            strRows &= Environment.NewLine
        Next
        MsgBox(strColumn & strRows)