[習題]拆解資料表的某一個欄位,分成兩欄

有讀者發問兩個問題,
第一個問題是SQL指令,能否請您也幫幫忙,解答一下?

第二個問題比較簡單,文章內有範例。

Q:我的 資料表A裡面,有一個主索引鍵,內容是

欄位PK         產品名稱 .....
-----------------------------------
11111%01    產品A
11111%02      產品B
11111%03      產品C

22222%01     產品D
22222%02     產品E     (後三碼是公司要求的規則,一定是 % 加上兩個字)

因為要跟另外一個資料表作 Join,但另外一個資料表B的主索引鍵是 11111 與 22222......

1.  兩者該如何作 Join?

2.  能否將這個欄位拆成兩個,如:

欄位一   欄位二   產品名稱 .....
-----------------------------------
11111       %01      產品A .....

 第一個問題,不瞞您說,我不是SQL指令的專家,我還真不知道該怎麼作比較好?請各路英雄幫幫忙解一下。感恩!    

但第二個問題比較簡單,寫程式可以搞定。

這個題目滿簡單的,看完本書 13 / 14章之後,自己動手就能寫完。============================================================ 

 

首先,手動作一個新的資料表(資料表A_1),仿照 "資料表A" 的格式,只不過把原本的PK欄位,拆成兩個,例如:PK_1與PK_2。

我們用VB常用的字串函數,去拆解欄位內容。

分成 %前面的部份、%後面的部份,各放一個欄位。 

  

接下來,後置程式碼如下。這範例基本上就是硬幹。沒啥了不起的。   

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim Conn As New SqlConnection("資料庫的連線字串;MultipleActiveResultSets=True")        Try
            Conn.Open()
            Dim dr As SqlDataReader = Nothing
            Dim cmd As SqlCommand = New SqlCommand("select PK, t_1, t_2, t_3, t_4 from 資料表A", Conn)
            dr = cmd.ExecuteReader()

            Dim i As Integer = 0
            Response.Write("Start......<br>")

            While dr.Read()
                Dim myLen As Integer = Len(dr(0).ToString())   '--先計算欄位的長度
                Dim myFirst As String = Left(dr(0).ToString(), (myLen - 3)).ToString()   '--扣掉後面三個字(%xx)就是前面的值
                Dim myLast As String = Right(dr(0).ToString(), 3).ToString()   '--抓出末三碼,%XX這三個字

                Dim cmd2 As SqlCommand = New SqlCommand("Insert into 資料表A_1(PK_1,PK_2,t_1,t_2,t_3, t_4) Values('" & myFirst & "','" & myLast & "','" & dr(1) & "','" & dr(2) & "','" & dr(3) & "','" & dr(4) & "')", Conn)

                i += cmd2.ExecuteNonQuery()    '--因為啟用了MultipleActiveResultSets=True,所以可以同時使用兩個cmd
            End While

            Response.Write(i & "列<hr>")            cmd.Cancel()
            dr.Close()
            Conn.Close()

        Catch ex As Exception
            Response.Write("<b>Error Message----  </b>" + ex.ToString() + "<HR/>")

        End Try
    End Sub
  

 

 

 

 

 

上面的ADO.NET寫法,其實不難,我都是用同一個範本去修改。請看--DataReader的標準範例 for ASP.NET 2.0 / 3.5

完成後,我們用新的資料表來作Join就簡單多了。

但我仍相信,應該有高手會解這一題。原本的架構,如何寫SQL指令去JOIN?   這要請高手來解答了!

 

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

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

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

線上課程教學,遠距教學 (ASP.NET MVC 約 135hr)  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.主講   事先錄好的影片,並非上課側錄!   觀看時,有如「一對一」面對面講課