推 jakevin:感謝了! 最後用 DataReader搞定了 01/04 16:08
→ jakevin:Like的原因是用等於會找不到值 最後改成UFT8就可以了 01/04 16:09
推 jakevin:再 再用等於 01/04 16:10
※ 引述《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