Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,027

HOME > .NET Framework > Forum > ขอโค้ด VB.Net 2010 + SqlServer เลือกจังหวัด อำเภอ ตำบล รหัสไปรษณีย์



 

ขอโค้ด VB.Net 2010 + SqlServer เลือกจังหวัด อำเภอ ตำบล รหัสไปรษณีย์

 



Topic : 086752



โพสกระทู้ ( 20 )
บทความ ( 0 )



สถานะออฟไลน์




คือตอนนี้อยากได้โค้ด เลือกจังหวัด เลือกอำเภอตามจังหวัด เลือกตำบลตามอำเภอ แล้วให้ขึ้นรหัสไปรษณีย์อัตโนมัติ ใครพอจะแนะนำได้ไหมค่ะ ต้องการใช้จริง ๆ ค่ะ ขอบคุณมาก ๆ ค่ะ



Tag : .NET, Ms SQL Server 2005, VS 2010 (.NET 4.x)







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2012-11-15 09:34:46 By : pha_story View : 5168 Reply : 6
 

 

No. 1

Guest


พอจะให้เป็นแนวความคิดนะครับ ว่า....ต้องสร้าง ตาราง Tabel ดังนี้

1. Table จังหวัด ประกอบไปด้วย รหัสจังหวัด ชื่อจังหวัด
2. Table อำเภอ ประกอบไปด้วย รหัสจังหวัด รหัสอำเภอ ชื่ออำเภอ
3. Tabel ตำบล ประกอบไปด้วย รหัสจังหวัด รหัสอำเภอ รหัสตำบล รหัสไปรษณีย์ ชื่อตำบล

เชื่อมโยงกัน นะครับ ตามลำดับ โดยใช้ Dropdown เป็นตัวคัดข้อมูล

1. Dropdown1 คลิกชื่อจังหวัด แล้ว Dropdown2 ตัวที่สองจะแสดงอำเภอที่ขึ้นกับจังหวัด
2. เมื่อคลิก เลือกอำเภอ Dropdown ตัวที่ 3 ก็จะแสดงชื่อตำบล และ รหัสไปรษณีย์ ตามลำดับ อย่างนี้ เป็นต้นครับ

ขอให้โปรแกรมของคุณประสพความสำเร็จนะครับ






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-11-15 15:23:21 By : พร
 


 

No. 2



โพสกระทู้ ( 251 )
บทความ ( 0 )



สถานะออฟไลน์
Facebook

Code (VB.NET)
Private Sub Call_province()

        Try




            Dim sqlprovince As String = ""
            sqlprovince = "SELECT * FROM province"
            sqlprovince &= " ORDER BY PROVINCEID"
            da = New SqlDataAdapter(sqlprovince, Conn)
            da.Fill(ds, "province")

            If ds.Tables("province").Rows.Count <> 0 Then
                With cboPROVINCE_TH
                    .DataSource = ds.Tables("province")
                    .DisplayMember = "PROVINCE_TH"
                    .ValueMember = "PROVINCEID"
                    .DataBindings.Clear()
                    .DataBindings.Add("SelectedValue", ds, "organization.PROVINCEID")
                End With
            End If
        Catch ex As Exception
            cboPROVINCE_TH.Text = Nothing
        End Try

    End Sub

    Private Sub call_amphur()
        ds.Tables.Clear()
        Try
            Dim sqldistrict As String = ""
            sqldistrict = "SELECT *  FROM district"
            If cboPROVINCE_TH.ValueMember = "" Then
                Exit Sub
            Else
                sqldistrict &= " where PROVINCEID = '" & CStr(cboPROVINCE_TH.SelectedValue) & "'"

                sqldistrict &= " ORDER BY DISTRICTID"
                da = New SqlDataAdapter(sqldistrict, Conn)
                da.Fill(ds, "district")
                If ds.Tables("district").Rows.Count <> 0 Then
                    With cboDISTRICT_TH
                        .DataSource = ds.Tables("district")
                        .DisplayMember = "DISTRICT_TH"
                        .ValueMember = "DISTRICTID"
                        .DataBindings.Clear()
                        .DataBindings.Add("SelectedValue", ds, "organization.DISTRICTID")
                    End With
                End If
            End If

        Catch ex As Exception

            cboDISTRICT_TH.Text = Nothing
        End Try



    End Sub

    Private Sub call_tambon()
        ds.Tables.Clear()
        Try
            Dim sqltambon As String = ""
            sqltambon = "SELECT *  FROM tambon"
            If cboDISTRICT_TH.ValueMember = "" Then
                Exit Sub
            Else
                sqltambon &= " where DISTRICTID = '" & CStr(cboDISTRICT_TH.SelectedValue) & "'"

                sqltambon &= " ORDER BY TAMBONID"
                da = New SqlDataAdapter(sqltambon, Conn)
                da.Fill(ds, "tambon")
                If ds.Tables("tambon").Rows.Count <> 0 Then
                    With cboTAMBON_TH
                        .DataSource = ds.Tables("tambon")
                        .DisplayMember = "TAMBON_TH"
                        .ValueMember = "TAMBONID"


                        .DataBindings.Clear()




                        .DataBindings.Add("SelectedValue", ds, "organization.TAMBONID")
                    End With
                End If
            End If



        Catch ex As Exception

            cboTAMBON_TH.Text = Nothing
        End Try





    End Sub





    Private Sub cboPROVINCE_TH_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboPROVINCE_TH.SelectedValueChanged
        call_amphur()
    End Sub

    Private Sub cboDISTRICT_TH_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboDISTRICT_TH.SelectedValueChanged
        call_tambon()
    End Sub

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-11-15 21:45:25 By : pisansri
 

 

No. 3

Guest


ชั้นเทพ...มาแล้วครับ....สุดยอดจริง....
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-11-16 06:37:26 By : nt
 


 

No. 4

Guest


SourceCode แบบนี้ใช้อธิบายเพื่อให้เข้าใจ OK 100%
SourceCode แบบนี้ใช้งานจริงไม่ได้ Cancel 100%
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-11-19 11:29:27 By : ในเมืองไทยไม่มีเทพ
 


 

No. 5

Guest


แล้วจริงใช้ได้หรือเปล่า Source code นี้ต้องการเอาไปใช้งานคะ รบกวนขอคำแนะนำด้วยคะ

มีข้อมูล Table จังหวัด อำเภอ ตำบล รหัสไปรษณีย์ หรือเปล่าคะอยากได้คะ รบกวนด้วยคะ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-10-12 22:46:32 By : DeknaroOk
 


 
ตอบความคิดเห็นที่ : 5 เขียนโดย : DeknaroOk เมื่อวันที่ 2013-10-12 22:46:32
รายละเอียดของการตอบ ::
https://drive.google.com/drive/folders/1ALrOAM4EYelapx-d4kD5Xxl84bmSvxU-?usp=sharing

ปรับชื้อให้ตรงตามต้องการก็ใช้ได้

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2023-06-08 13:16:37 By : อ้วนคุง
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : ขอโค้ด VB.Net 2010 + SqlServer เลือกจังหวัด อำเภอ ตำบล รหัสไปรษณีย์
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 02
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2024 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่