Re: [.NET] 配合SQL寫郵遞區號查詢

看板Visual_Basic作者cawQQ (煩!!)時間15年前 (2011/01/03 21:24)推噓2(2推 0噓 1→)

留言3則, 1人參與討論串2/2 (看更多)

※ 引述《jakevin (真。假凱文)》之銘言： : 縣市鄉鎮市區郵遞區號 : ┌──┬─┐ ┌──┬─┐ ┌────┐ : │ │▼│ │ │▼│ │ │ : └──┴─┘ └──┴─┘ └────┘ : Country City Code : (combobox) (combobox) (Label) : 我將縣市做在一個SQL的資料表內 : 001 基隆市 : 002 台北市 : 003 新北市 : . : . : . : 另一個資料表則是記錄鄉鎮市區的郵遞區號 : . : . : 002 中和區　236 : 002 板橋區 232 : . : . : . : 後來VB.net寫了半天選完縣市後會自動對應該縣市的鄉政市區 : 這一切都很正常 : 但是郵遞區號一直寫不出來，所以才上來求救了 orz : Imports MySql.Data : Imports MySql.Data.MySqlClient : Public Class Code : Dim MyVoice As New SpeechLib.SpVoice : Dim Search As String = "SELECT * FROM `country`" : Dim cmd As New MySqlCommand(Search, cn) : Dim da As New MySqlDataAdapter : Dim ds As New DataSet : Dim dvCountry As New DataView : Dim dvCity As New DataView : Private Sub Index_Load : da.SelectCommand = cmd : da.Fill(ds, "Countrylist") : Country.DataSource = ds.Tables("Countrylist") : Country.DisplayMember = "Country" : Country.SelectedIndex = -1 : AddHandler Country.SelectedIndexChanged, AddressOf : Country_SelectedIndexChanged : Code.Text = "" : End Sub : Private Sub Country_SelectedIndexChanged : cmd.CommandText = "SELECT `A1`.`Country`,`A2`.`City`,`A2`.`code` : FROM `Country` `A1` , `Code` `A2` WHERE `A1`.`CNo` = `A2`.`CNo` And : `A1`.`Country` Like '%" & Country.Text & "%'" : da.Fill(ds, "City_detail") : dvCountry.Table = ds.Tables("City_detail") : dvCountry.RowFilter = "Country='" & Country.Text & "'" : City.DataSource = dvCountry : City.DisplayMember = "City" : City.SelectedIndex = -1 : Label49.Text = "" : AddHandler City.SelectedIndexChanged, AddressOf : City_SelectedIndexChanged : End Sub : Private Sub City_SelectedIndexChanged : cmd.CommandText = "SELECT `A2`.`Code` , `A2`.`city`FROM `Country` : `A1` , `Code` `A2` WHERE `A1`.`CNo` = `A2`.`CNo` And `A1`.`Country` Like : '%" & Country.Text & "%' And `A2`.`City` Like '%" & City.Text & "%'" : da.Fill(ds, "Code") : dvCity.Table = ds.Tables("Code") : Label49.Text = ????????????????? 如果SQL沒問題.. 只要把Label.Text指到ds.tables("Code").rows(0).item("郵遞區號").Tostring 應該就可以了吧.. 還有你的SQL...為啥要用Like?? 每個地區的郵遞區號不是都是維一的嗎?? SELECT CODE FROM A2 Where City = Citycombobox.member 就可以不是嗎@@? -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 111.184.196.206