こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

Microsoft Visual Web Developerからのデーター検索方法

お世話になります
今、社内の管理簿を作成しているのですが
発注番号があってテキストボックスに入力し検索ボタンを押すと以下に検索結果を出す手順をが
どうしてもわかりません。
参考書等も購入したのですがまったくヒントになにません。
あと良かったらこんな参考書あるよ
とかあればすごく助かります
だれかわかるかたよろしくお願い申し上げます

professional
2005 Express Edition
アクセスDB
超初心者です

投稿日時 - 2006-08-30 02:46:59

QNo.2371566

すぐに回答ほしいです

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

お世話になります。

参考書等はよくわかりませんが、
まず、下のソースで何をやろうとしているのか
理解してみてください。
解らないことがあったら、F1 キーを押してみて
調べたり、参考書を読んで調べたりして
理解に努めてみてください。

概ね理解できたら、お望みのアプリケーションを
作成するにはどの辺りを変えればよいのか
解ると思います。

■aspx
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default3.aspx.vb" Inherits="Default3" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
  <title>無題のページ</title>
</head>
<body>
  <form id="form1" runat="server">
  <div>
    <asp:GridView ID="GridView1" runat="server">
    </asp:GridView>
    <asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
    <asp:Button ID="Button1" runat="server" Text="Button" /></div>
  </form>
</body>
</html>

■aspx.vb
Partial Class Default3
  Inherits System.Web.UI.Page

  Private m_myDataset As System.Data.DataSet
  Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    If Not IsPostBack Then
      Me.m_myDataset = New System.Data.DataSet("test_dataset")
      With Me.m_myDataset
        .Tables.Add(New System.Data.DataTable("test_table"))
        .Tables("test_table").Columns.Add(New Data.DataColumn("ID", GetType(Integer)))
        .Tables("test_table").Columns.Add(New Data.DataColumn("NAME", GetType(String)))
        .Tables("test_table").Rows.Add(New Object() {1, "りんご"})
        .Tables("test_table").Rows.Add(New Object() {2, "みかん"})
        .Tables("test_table").Rows.Add(New Object() {3, "ばなな"})
      End With
      Session("test") = Me.m_myDataset
      Me.GridView1.DataSource = Me.m_myDataset.Tables("test_table").DefaultView
      Me.GridView1.DataBind()
    Else
      Me.m_myDataset = DirectCast(Session("test"), Data.DataSet)
    End If
  End Sub

  Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
    Me.GridView1.DataSource = New Data.DataView(Me.m_myDataset.Tables("test_table"), _
                          "[NAME]='" & Me.TextBox1.Text & "'", _
                          "ID", _
                          Data.DataViewRowState.CurrentRows)
    Me.GridView1.DataBind()
  End Sub
End Class

投稿日時 - 2006-09-05 23:07:11