本文為備份，原作請看我的網站----[習題]拆解資料表的某一個欄位，分成兩欄
http://www.dotblogs.com.tw/mis2000lab/archive/2008/11/17/6006.aspx
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？ 這要請高手來解答了！
.....................................................................................................................................................................................
ASP.NET專題實務
（文魁出版 / P8187）
.............................................................................................................. 寄信給我 mis2000lab (at) 雅虎.com.台灣 ........
留言列表
