这个问题不知道是什么原因？

Question

>>>CommandText property has not been initializedyou forgot to set a "select" for your SqlCommand, show your code

Answer 1

Imports System.Data.SqlClient
Imports System.IO
Public Class show
    Inherits System.Web.UI.Page
    Protected WithEvents SqlCommand1 As System.Data.SqlClient.SqlCommand
    Protected WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
    Protected WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
    Protected WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
    Protected WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
    Protected WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
    Protected WithEvents DataSet1 As System.Data.DataSet
    Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
    Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Button1 As System.Web.UI.WebControls.Button
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents Button2 As System.Web.UI.WebControls.Button
    Protected WithEvents Label2 As System.Web.UI.WebControls.Label
    Protected WithEvents Label3 As System.Web.UI.WebControls.Label
    Protected WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection#Region " Web 窗体设计器生成的代码 "    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection
        Me.SqlCommand1 = New System.Data.SqlClient.SqlCommand
        Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand
        Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand
        Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand
        Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand
        Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter
        Me.DataSet1 = New System.Data.DataSet
        CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
        '
        'SqlConnection1
        '
        Me.SqlConnection1.ConnectionString = "workstation id=LIUYUER;packet size=4096;user id=sa;data source=LIUYUER;persist se" & _
        "curity info=False;initial catalog=pubs"
        '
        'SqlCommand1
        '
        Me.SqlCommand1.Connection = Me.SqlConnection1
        '
        'SqlDataAdapter1
        '
        Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
        Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
        Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
        Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
        '
        'DataSet1
        '
        Me.DataSet1.DataSetName = "NewDataSet"
        Me.DataSet1.Locale = New System.Globalization.CultureInfo("en-US")
        CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()    End Sub    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub#End Region    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码        Dim order As Integer
        Dim partOrder As String
        Dim urlCanshu As String
        Dim skey As String
        Dim subTitle As String
        Dim visualDir As String
        Dim serverIP As String
        Dim urlIp2 As String
        Dim temp As String
        Dim picCanshu As String
        Dim rootDir As String
        Dim picPath As String
        Dim picUrl As String
        Dim i As Integer
        Dim picTruePath As String
        Dim picTrueUrl As String
        Dim picFalseUrl As String
        Dim picFalsePath As String
        Dim picRedirectPath As String        On Error Resume Next
        visualDir = "/"
        rootDir = "d:\vod\media\"
        picCanshu = "d:\vod\media\pics\"
        picRedirectPath = "d:\vod\media\pics\redirect\"
        serverIP = Request.ServerVariables("LOCAL_ADDR")
        urlIp2 = "http://" & serverIP & visualDir
        temp = Mid(picCanshu, Len(rootDir) + 1, Len(picCanshu) - Len(rootDir))
        picPath = Replace(temp, "\", "/")
        picUrl = urlIp2 & picPath & "default.jpg"
        order = Request("order")
        urlCanshu = Request("urlCanshu")
        skey = Request("skey")
        Label3.Text = "欢迎您，来自ip地址为：" + Request.UserHostAddress + "的朋友"
        If skey <> "" Then
            partOrder = "select * from vod " & "where vname like '%" & skey & "%' ORDER BY vclick DESC"
            order = 99
        End If

Answer 2

If order = 0 Then
            partOrder = "select * from vod where vpath NOT LIKE 'd:\vod\media\dianshi\%' ORDER BY vtime DESC"
        End If
        If order = 1 Then
            partOrder = "select * from vod where vpath NOT LIKE 'd:\vod\media\dianshi\%' ORDER BY vclick DESC"
        End If
        If order = 2 Then
            partOrder = "select * from vod " & "where vpath='" & urlCanshu & "' ORDER BY vtime DESC"
        End If
        If order = 3 Then
            partOrder = "select * from vod " & "where vpath='" & urlCanshu & "' ORDER BY vclick DESC"
        End If
        Select Case urlCanshu
            Case "d:\vod\media\smkx\"
                subTitle = "生命科学类"
            Case "d:\vod\media\hygc\"
                subTitle = "海洋工程类"
            Case "d:\vod\media\dzxx\"
                subTitle = "电子信息类"
            Case "d:\vod\media\jxgc\"
                subTitle = "机械工程类"
            Case "d:\vod\media\tmgc\"
                subTitle = "土木工程类"
            Case "d:\vod\media\jjgl\"
                subTitle = "经济管理类"
            Case "d:\vod\media\spgc\"
                subTitle = "食品工程类"
            Case "d:\vod\media\yyjx\"
                subTitle = "外语教学类"
            Case "d:\vod\media\shkx\"
                subTitle = "社会科学类"
            Case "d:\vod\media\jcjx\"
                subTitle = "基础教学类"
        End Select
        Label2.Text = subTitle        SqlConnection1.ConnectionString = "user id=sa;initial catalog=pubs;data source=localhost;Connect Timeout=30"
        SqlConnection1.Open()
        SqlDataAdapter1.SelectCommand = New SqlCommand(partOrder, SqlConnection1)
        SqlDataAdapter1.Fill(DataSet1, "vod")        For i = 0 To DataSet1.Tables(0).Rows.Count - 1
            picTruePath = picCanshu + DataSet1.Tables(0).Rows(i)("vname").ToString + ".jpg"
            picFalsePath = picRedirectPath + DataSet1.Tables(0).Rows(i)("vid").ToString + ".jpg"
            picTrueUrl = urlIp2 & picPath & DataSet1.Tables(0).Rows(i)("vname").ToString + ".jpg"
            picFalseUrl = urlIp2 & picPath & "redirect/" & DataSet1.Tables(0).Rows(i)("vid").ToString + ".jpg"            If File.Exists(picFalsePath) Then
                DataSet1.Tables(0).Rows(i)("vpic") = picFalseUrl
            ElseIf File.Exists(picTruePath) Then
                File.Copy(picTruePath, picFalsePath)
                DataSet1.Tables(0).Rows(i)("vpic") = picFalseUrl
            Else
                DataSet1.Tables(0).Rows(i)("vpic") = picUrl
            End If
        Next
        Dim CB As SqlCommandBuilder = New SqlCommandBuilder(SqlDataAdapter1)
        DataGrid1.DataSource = DataSet1.Tables("vod").DefaultView
        DataGrid1.DataBind()
        SqlConnection1.Close()
    End Sub    Private Sub DataGrid1_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles DataGrid1.PageIndexChanged
        If Page.IsPostBack Then
            DataGrid1.CurrentPageIndex = e.NewPageIndex
            DataGrid1.DataBind()
        End If
    End Sub    Private Sub DataGrid1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGrid1.SelectedIndexChanged    End Sub    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Dim nowUrl As Uri
        Dim skey As String
        Dim searchUrl As String        'nowUrl = Request.Url
        skey = TextBox1.Text()
        'If InStr(nowUrl.ToString, "?") = 0 Then
        'searchUrl = nowUrl.ToString + "?skey=" + skey
        'Else
        '    searchUrl = nowUrl.ToString + "&skey=" + skey
        'End If        searchUrl = "show.aspx?skey=" + skey
        Response.Redirect(searchUrl)    End Sub    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text() = ""
        Response.Redirect("show.aspx")
    End Sub
End Class