0

おそらく私は ProjectCode テキストボックスを持っています:

<td align="left" width="200px">
  <asp:TextBox ID="TbProjectCode" runat="server" Width="194px"></asp:TextBox>
</td>

そして1つの画像ボタン：

<asp:ImageButton ID="BtnSearch" runat="server" ImageUrl="../Support/Image/MagnifierGlass.png" Width="75%" Height="75%" OnClientClick="openNewWin();return false;" />

およびグリッドビュー:

<asp:Panel ID="PanelDGV" runat="server" Height="100%" ScrollBars="None" Width="100%">
  <asp:GridView ID="DGV" runat="server" AutoGenerateColumns="False" GridLines="None" AllowPaging="true" PageSize="2" CssClass="mGrid" PagerStyle-CssClass="pgr" AlternatingRowStyle-CssClass="alt">
      <Columns>
  <asp:BoundField DataField="ProjectCode" HeaderText="Project Code" />
  <asp:BoundField DataField="ProjectName" HeaderText="Project Name" />
  <asp:ButtonField ButtonType="Image" ImageUrl="../Support/Image/Edit.png" ItemStyle-HorizontalAlign="Center" CommandName="CmdSearch" HeaderText="Edit">
  <ItemStyle HorizontalAlign="Center"></ItemStyle>
       </asp:ButtonField>
          </Columns>
             <PagerStyle CssClass="pgr"></PagerStyle>
                <AlternatingRowStyle CssClass="alt"></AlternatingRowStyle>
                    </asp:GridView>
                       </asp:Panel>

そして、クエリでストアドプロシージャを使用しています（別のデータベースから値を取得します.Master..[MS_Project]の二重ドットに注意してください）：

SELECT [projectCode],[projectName]
  FROM Master..[MS_Project]
  WHERE [projectCode] like '%' + @ProjectCode + '%'
  ORDER BY [projectCode] ASC

検索機能を作成したいので、ユーザーが必要なプロジェクト コードをテキスト ボックスに入力し、imagebutton をクリックすると、検索結果がグリッドビューに表示されます。これを行う方法はありますか? ありがとうございました。

編集

.vb に追加します。

    Protected Sub BtnSearch_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles BtnSearch.Click
    Dim ds As New DataSet()

    Using connection As New SqlConnection(ConfigurationManager.ConnectionStrings("CfgConnectionString").ToString())
        Using command As New SqlCommand()
            command.CommandType = CommandType.StoredProcedure
            command.CommandText = "msProject_Select"
            command.Connection = connection

            command.Parameters.AddWithValue("@ProjectCode", TbProjectCode.Text)

            connection.Open()
            Dim a As New SqlDataAdapter(command)
            a.Fill(ds)
        End Using
    End Using

    DGV2.DataSource = ds
    DGV2.DataBind()
End Sub

クラス終了

4

1 に答える 1