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

締切済

質問者：BSR123
質問日時：2006/08/30 02:46
回答数：1件

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

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

最新から表示
回答順に表示

No.1

回答者： naganaga_001
回答日時：2006/09/05 23:07

お世話になります。

参考書等はよくわかりませんが、
まず、下のソースで何をやろうとしているのか
理解してみてください。
解らないことがあったら、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-transitio …

<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