[習題]ADO.NET,兩個TextBox欄位作相互查詢 (附AJAX範例)

在Textbox1裡面輸入一些資料,(不按下Button按鈕)
希望TextBox2會自動傳送回資料庫另一個欄位的資料。

這個範例該怎麼作?


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

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

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

如果您是本書讀者,讀完 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啦。  舉一反三而已。

   縣市:____________

   鄉鎮市區:_________

   請輸入路段:________

 

我將思想傳授他人, 他人之所得,亦無損於我之所有;

猶如一人以我的燭火點燭,光亮與他同在,我卻不因此身處黑暗。----Thomas Jefferson

線上課程教學,遠距教學 (Web Form 約 51hr)  https://dotblogs.com.tw/mis2000lab/2016/02/01/aspnet_online_learning_distance_education_VS2015

線上課程教學,遠距教學 (ASP.NET MVC 約 140hr)  https://dotblogs.com.tw/mis2000lab/2018/08/14/ASPnet_MVC_Online_Learning_MIS2000Lab

 

寫信給我,不要私訊 --  mis2000lab (at) yahoo.com.tw  或  school (at) mis2000lab.net

 (1) 第一天 ASP.NET MVC5 完整影片(5.5小時 / .NET 4.x版)免費試聽。影片 https://youtu.be/9spaHik87-A 

 (2) 第一天 ASP.NET Core MVC 完整影片(3小時 / .NET Core 6.0~8.0)免費試聽。影片 https://youtu.be/TSmwpT-Bx4I 

[學員感言] mis2000lab課程評價 - ASP.NET MVC , WebForm  。 https://mis2000lab.medium.com/%E5%AD%B8%E5%93%A1%E6%84%9F%E8%A8%80-mis2000lab%E8%AA%B2%E7%A8%8B%E8%A9%95%E5%83%B9-asp-net-mvc-webform-77903ce9680b  


ASP.NET遠距教學、線上課程(Web Form + MVC)。 第一天課程, "完整" 試聽。 

.........   facebook社團   https://www.facebook.com/mis2000lab   ......................

.........  YouTube (ASP.NET) 線上教學影片  https://www.youtube.com/channel/UC6IPPf6tvsNG8zX3u1LddvA/

 

Blog文章 "附的範例" 無法下載,請看 https://dotblogs.com.tw/mis2000lab/2016/03/14/2008_2015_mis2000lab_sample_download

請看我們的「售後服務」範圍(嚴格認定)。

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

ASP.NET MVC  => .NET Core MVC 線上教學  ...... 第一天課程 完整內容 "免費"讓您評估 / 試聽

[遠距教學、教學影片] ASP.NET (Web Form) 課程 上線了!MIS2000Lab.主講   事先錄好的影片,並非上課側錄!   觀看時,有如「一對一」面對面講課