参数导致表单2中的数据无法读取，并且表单2中的数据不会出现在vb.net的web版本上

获取第一个参数的源代码，第二个用于将codingan参数抛出到表单2中，第三个用于读取表单2中的codingan。我已经尝试了，但仍然无法读取。

我认为该代码会产生错误，但您没有说明这一点

要向SQL语句添加参数，请执行以下操作：

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim id As String, sLogon_User As String, sAuth_User As String, sUser_ID As String
    Dim sServer_Name As String
    Dim sIP_Address As String
    sIP_Address = Request.ServerVariables("REMOTE_ADDR")


    Dim hit As New PagePosting
    Dim currentPosting As Posting = CmsHttpContext.Current.Posting

    Dim webContext As WebAuthorContext
    webContext = WebAuthorContext.Current

    'sNama_Perusahaan = Request.QueryString("sentraID")
    'Response.Write("masuk sini dgn nilai = " & CmsHttpContext.Current.CmsQueryString())
    sData = ""
    If Not Page.IsPostBack Then


        'sNama_Perusahaan = Request.ServerVariables("sentraID")
        sNama_Perusahaan = Request.QueryString("sentraID")
        '  sNama_Perusahaan = Request.QueryString("sentraID")
        Response.Write("masuk sini dgn nilai = " & Request.QueryString("sentraID") & sNama_Perusahaan)
        tampil(sNama_Perusahaan)


    End If



Sub tampil(ByVal sParam As String)

    Dim rd As SqlDataReader
    Dim myConnection = New SqlConnection(ConfigurationSettings.AppSettings("RegBIK"))
    myConnection.Open()

    Dim adadata As Integer

    '   Dim myCommand As New SqlCommand("select count (*)  from kuesioner where ltrim(rtrim(NmPerush)) ='aaa'", myConnection)
    Dim myCommand As New SqlCommand("select count (*)  from kuesioner where ltrim(rtrim(NmPerush)) ='&sParam'", myConnection)

    rd = myCommand.ExecuteReader
    While rd.Read
        adadata = rd.GetInt32(0)
    End While


    myConnection.close()

    Try
        If adadata > 0 Then
            myConnection.Open()
            ' Dim myCommands As New SqlCommand("select * from kuesioner where ltrim(rtrim(NmPerush)) ='aaa'", myConnection)
            Dim myCommands As New SqlCommand("select * from kuesioner where ltrim(rtrim(NmPerush)) ='&sParam'", myConnection)

            rd = myCommands.ExecuteReader
            While rd.Read
                disabledAll()
                Me.btnUpload.Enabled = False
                Me.btnPreview.Enabled = True
                txtNmPerush.Value = rd.GetString(1)
                Me.txtNmPemilik.Value = rd.GetString(2)
                Me.txtAlmtPerush.Value = rd.GetString(3)
                Me.txttlpn.Value = rd.GetString(4)
                Me.txtEmail.Value = rd.GetString(5)
                Me.txtLamaPerush.Value = rd.GetString(6)
                Me.txtJenis.Value = rd.GetString(7)
                Me.txtSpesialisasi.Value = rd.GetString(8)
                Me.txtkualitas.Value = rd.GetString(9)
                Me.txtMerk.Value = rd.GetString(10)
                Me.txtStandarPesanan.Value = rd.GetString(11)
                Me.txtProduksi.Value = rd.GetString(12)
                Me.txtlokal.Value = rd.GetString(13)
                Me.txtnasional.Value = rd.GetString(14)
                Me.txtekspor.Value = rd.GetString(15)
                Me.txtpengalaman.Value = rd.GetString(16)
                Me.txtlamaekspor.Value = rd.GetString(17)
                Me.txtbiaya.Value = rd.GetString(18)

            End While
        Else
            clearAll()

        End If
        rd.Close()
        myConnection.close()

    Catch SQLexc As SqlException

        Response.Write("Open Failed. Error Details are: " & SQLexc.ToString())
    End Try



End Sub

---

请更改.SqlDbType和.Size以匹配数据库中的定义。

@yuliana请准确说明问题所在。您是否在使用SQL查询的两个地方都更改了代码？你期望得到什么样的结果，它又返回了什么样的结果？如果你对用英语写作没有信心，你可以请朋友帮忙，或者使用谷歌翻译：

Dim myCommand As New SqlCommand("SELECT COUNT(*) FROM kuesioner WHERE LTRIM(RTRIM(NmPerush)) = @param1", myConnection)

myCommand.Parameters.Add(New SqlParameter With {.ParameterName = "param1", _
                                                .SqlDbType = SqlDbType.NVarChar, _
                                                .Size = 200, _
                                                .Value = sParam})