本文是備份,請看我的網站 ---- [習題]ADO.NET,兩個TextBox欄位作相互查詢 (附AJAX範例)

網址  http://www.dotblogs.com.tw/mis2000lab/archive/2008/10/06/adonet_textbox_081006.aspx

 

 

 

 

有一位很用功的讀者,很常寫信跟我討論。
與其回答一個人,不如把這些討論過程,公開分享給大家。

說不定有更厲害的高手,可以提供更棒的解法。

這個範例不難,是一個很適合初學者的習題。

如果您是本書讀者,讀完 14-1節,改改書本範例,應該能寫出類似的成果。

 

Question : 

在 Textbox1裡面輸入一些資料,希望 TextBox2會自動傳送回資料庫另一個欄位的資料
我已經把TextBox1的AutoPostBack屬性改為True
..(這句話顯示,這位讀者的程度已經不錯)
例如:我在TextBox1裡面輸入1234的話..它會去尋找資料庫裡面,另一個欄位,1234的資料..
但是我只要把有需要的資料帶入TextBox2裡面..
那我的後置程式碼應該如何撰寫呢!?

 

Answer : 

假設我的資料表,設計如下:

欄位名稱 / 資料型態 / 註解
======================
欄位A / Int                    / 自動索引、自動編號,是一個P.K.(主索引鍵),例如:學號
欄位B / nvarchar(50) /  隨便你存放什麼字串,例如:學生姓名
======================

首先,我們在HTML畫面上,拉進兩個 TextBox控制項。

TextBox1 :______      TextBox1要設定 AutoBack為True。
TextBox2 :______

或是

輸入學號:______     TextBox1要設定 AutoBack為True。
學生姓名:______

畫面上沒有按鈕(Button),
重點是:TextBox1要設定 AutoBack為True。
      這樣一來,當我們在第一個文字輸入方塊(TextBox1),輸入文字之後,
      就會自動執行。因此不用 Button控制項。

    <form id="form1" runat="server">
    <div>
   
        TextBox1 --
        <asp:TextBox ID="TextBox1" runat="server" AutoPostBack="True"></asp:TextBox>
           <br />
           <br />
        TextBox2 --        
        <asp:TextBox ID="TextBox2" runat="server"></asp:TextBox>
   
    </div>
    </form>

 

後置程式碼也不難,但要自己動手稍微寫一下ADO.NET程式。
以下我以 DataReader的方式來寫,對於這種簡單的資料存取,DataReader速度比較快。

如果您對於ADO.NET程式不熟悉的話,可以參考書本的「第十四章」。

 

'------------------------------------自己補充一些NameSpace,常用的。
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Web.Configuration
'------------------------------------

 

Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

        Dim Conn As New SqlConnection("資料庫的連結字串")
        '--如果已經設定好,寫在Web.Config檔案裡面,就能寫成:(這部份請看本書 7-3節的內容)
        '--Dim Conn As New SqlConnection(WebConfigurationManager.ConnectionStrings("Mis2000Lab_ConnectionString").ConnectionString)
        Dim dr As SqlDataReader = Nothing
        Dim cmd As New SqlCommand("Select 欄位B From 資料表 Where 欄位A = '" & TextBox1.Text & "'", Conn)

        Try
            Conn.Open()
            dr =
cmd.ExecuteReader()
            If dr.HasRows Then
                dr.Read()
                TextBox2.Text = dr.Item("欄位B").ToString
            Else
                Response.Write("EOF")   '--找不到資料
            End If

        Catch ex As Exception
            Response.Write("Error Message --  " & ex.ToString)
        Finally
            cmd.Cancel()
            cmd.Dispose()
            dr.Close()
            Conn.Close()
            Conn.Dispose()
        End Try

End Sub

 

這個範例只抓回一個欄位,並使用 Select這樣的 T-SQL指令。

如果改用 .ExecuteScalar(),速度會更快。  (檔名 1.aspx,文末提供程式碼下載。)

 ......感謝 Allen Kuo的提醒  ^_^

...................................................................................................................................

 

抱歉,因為我的電腦剛好不在手邊,

所以沒抓圖,也沒寫出很好的範例,以後有空的話,再補吧。

這個程式不難,初學者可以練習看看。

 

缺點是上面這樣的範例(資料輸入的部份),會受到「資料隱碼攻擊(SQL Injection)」,請特別小心。

 

Allen Kuo給了一個更好的程式範例,把常用的程式碼寫入DbHelper這個Class。就能重複叫用。

這是更高階的寫法,請各位參考看看:

{    註解:這是  C#的寫法
  DbHelper helpler = new DbHelper();

  Criteria criteria =new Criteria();
  criteria.Add("id", TextBox1.Text,"={0}", typeof(int));
  string where = criteria.ToString();

  string SQL="SELECT xx FROM xxxx";
  if(where.Length>0)SQL +=" WHERE " + where;

  TextBox2.Text = helper.ExecuteScalar(SQL, criteria.Parameters );
}

 

 

 

補充一下:

這個範例要改成AJAX版也很簡單。(檔名 1_AJAX.aspx,文末提供程式碼下載。)

畫面裡,拉進 ScriptManager。然後再拉進一個 UpdatePanel。

把 TextBox2放進「UpdatePanel」裡面就可以了。  記得要設定 Trigger喔!請看本書第十九章。

 

 

2008/107補充: 

 

 

 

本文範例下載 ---- [Book]Case_Study.rar  本範例使用的 test資料表,詳見本書說明。

 

很多初學者會問到,類似郵局的網站,即時查詢郵遞區號,是怎麼作的。

其實就是上面的範例,改一下就OK啦。  舉一反三而已。

   縣市:____________

   鄉鎮市區:_________

   請輸入路段:________

.....................................................................................................................................................................................
ASP.NET專題實務ASP.NET專題實務(文魁出版 / P8187)

2008/八月份 天瓏書局排行榜前十名

.............................................................................................................. 寄信給我    mis2000lab (at) 雅虎.com.台灣 ........

arrow
arrow
    全站熱搜

    MIS2000 Lab 發表在 痞客邦 留言(0) 人氣()