ProjectForStudy

 ลืมรหัสผ่าน
 ลงทะเบียน
ค้นหา
ดู: 202|ตอบกลับ: 7

[ถาม/ตอบ] ดึงข้อมูลจาก SQL Server มาแสดงใน ComBobox ครับ

[คัดลอกลิงก์]
  • อารมณ์วันนี้
    เหนื่อย
    เมื่อวาน 09:31
  • เช็คชื่อแล้ว: 2 วัน

    [LV.1]NewBie

    1

    กระทู้

    9

    โพสต์

    26

    เครดิต

    BabyGhost

    Rank: 1

    เครดิต
    26
    Ticket
    9
    จิตพิสัย
    17
    ดึงข้อมูลจังหวัดมาแสดงใน ComBobox เมื่อโหลดฟอร์มขึ้นมาอยากให้ค่าใน ComBobox แสดงอยู่ที่จังหวัด ชลบุรี ครับมีวิธีการทำอย่างไรครับ ช่วยแนะนำหน่อยครับ แต่ที่ผมเขียนจังหวัดแรกที่มันแสดงจะเป็นจังหวัด กระบี่ ดังรูปครับ.



    ส่วนของโค๊ดครับ
    1. Imports System.Data.SqlClient
    2. Imports System.Math
    3. Imports System.Globalization

    4. Public Class Form2

    5.     Private Sub get_province()
    6.         connect()
    7.         sql = "select * from province order by provinceName asc"
    8.         DA = New SqlDataAdapter(sql, cn)
    9.         DS = New DataSet
    10.         DA.Fill(DS, "Province")
    11.         cmb_orgProvince.DataSource = DS.Tables("Province")
    12.         cmb_orgProvince.DisplayMember = "provinceName"
    13.         cmb_orgProvince.ValueMember = "provinceID"
    14.     End Sub

    15.     Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    16.         get_province()
    17.     End Sub
    18. End Class


    คัดลอกไปที่คลิปบอร์ด

    ขออภัย! โพสต์นี้มีไฟล์แนบหรือรูปภาพที่ไม่ได้รับอนุญาตให้คุณเข้าถึง

    คุณจำเป็นต้อง ลงชื่อเข้าใช้ เพื่อดาวน์โหลดหรือดูไฟล์แนบนี้ คุณยังไม่มีบัญชีใช่ไหม? ลงทะเบียน

    x
  • อารมณ์วันนี้
    เหนื่อย
    เมื่อวาน 09:31
  • เช็คชื่อแล้ว: 2 วัน

    [LV.1]NewBie

    1

    กระทู้

    9

    โพสต์

    26

    เครดิต

    BabyGhost

    Rank: 1

    เครดิต
    26
    Ticket
    9
    จิตพิสัย
    17
     เจ้าของ| sskcomputech โพสต์ 2019-3-29 10:44:00 | ดูโพสต์ทั้งหมด
    1. Private Sub get_province()
    2.         connect()
    3.         sql = "select * from province order by provinceName asc"
    4.         DA = New SqlDataAdapter(sql, cn)
    5.         DS = New DataSet
    6.         DA.Fill(DS, "Province")
    7.         cmb_orgProvince.DataSource = DS.Tables("Province")
    8.         cmb_orgProvince.DisplayMember = "provinceName"
    9.         cmb_orgProvince.ValueMember = "provinceID"
    10.         cmb_orgProvince.SelectedItem = "ชลบุรี"
    11.     End Sub
    คัดลอกไปที่คลิปบอร์ด

    ลองดูแล้วครับไม่ได้ครับจังหวัดแรกที่มันแสดงยังเป็น กระบี่ อยู่ครับ
  • อารมณ์วันนี้
    สู้
    เมื่อวาน 07:41
  • เช็คชื่อแล้ว: 169 วัน

    [LV.7]JuniorIII

    11

    กระทู้

    294

    โพสต์

    530

    เครดิต

    TeenLion

    Rank: 3Rank: 3

    เครดิต
    530
    Ticket
    232
    จิตพิสัย
    298
    anuyutza1995 โพสต์ 2019-3-29 10:02:49 | ดูโพสต์ทั้งหมด
    แก้ไขครั้งสุดท้ายโดย anuyutza1995 เมื่อ 2019-3-29 10:23

    https://stackoverflow.com/questi ... -to-combobox-vb-net

    หน้าจะตอบโจรย์ อยู่นะครับ
    #ดึงจังหวัด เข้ามาสแดงใน Combobox
  • อารมณ์วันนี้
    เหนื่อย
    เมื่อวาน 09:31
  • เช็คชื่อแล้ว: 2 วัน

    [LV.1]NewBie

    1

    กระทู้

    9

    โพสต์

    26

    เครดิต

    BabyGhost

    Rank: 1

    เครดิต
    26
    Ticket
    9
    จิตพิสัย
    17
     เจ้าของ| sskcomputech โพสต์ 2019-3-29 10:12:18 | ดูโพสต์ทั้งหมด
    ลองทำตาม  anuyutza1995 ยังไม่ได้เลยครับ
  • อารมณ์วันนี้
    สู้
    เมื่อวาน 07:41
  • เช็คชื่อแล้ว: 169 วัน

    [LV.7]JuniorIII

    11

    กระทู้

    294

    โพสต์

    530

    เครดิต

    TeenLion

    Rank: 3Rank: 3

    เครดิต
    530
    Ticket
    232
    จิตพิสัย
    298
    anuyutza1995 โพสต์ 2019-3-29 10:28:11 | ดูโพสต์ทั้งหมด
    sskcomputech ตอบกลับเมื่อ 2019-3-29 10:12
    ลองทำตาม  anuyutza1995 ยังไม่ได้เลยครับ

      ComboBox1.SelectedItem = "ชลบุรี"

    หน้าจะโอเคนะครับ
  • อารมณ์วันนี้
    สู้
    เมื่อวาน 07:41
  • เช็คชื่อแล้ว: 169 วัน

    [LV.7]JuniorIII

    11

    กระทู้

    294

    โพสต์

    530

    เครดิต

    TeenLion

    Rank: 3Rank: 3

    เครดิต
    530
    Ticket
    232
    จิตพิสัย
    298
    anuyutza1995 โพสต์ 2019-3-29 10:46:38 | ดูโพสต์ทั้งหมด
    แก้ไขครั้งสุดท้ายโดย anuyutza1995 เมื่อ 2019-3-29 10:58
    sskcomputech ตอบกลับเมื่อ 2019-3-29 10:44
    Private Sub get_province()
            connect()
            sql = "select * from province order by province ...

    ผมลองทำก็ได้นิครับ ลองเปลี่ยน การดึงจาก Dataset เป็น Reader ดูครับ

    ขออภัย! โพสต์นี้มีไฟล์แนบหรือรูปภาพที่ไม่ได้รับอนุญาตให้คุณเข้าถึง

    คุณจำเป็นต้อง ลงชื่อเข้าใช้ เพื่อดาวน์โหลดหรือดูไฟล์แนบนี้ คุณยังไม่มีบัญชีใช่ไหม? ลงทะเบียน

    x

    คะแนน

    จำนวนผู้เข้าร่วม 1จิตพิสัย +5 ย่อ เหตุผล
    vbpossible + 5

    ดูบันทึกคะแนน

  • อารมณ์วันนี้
    เหนื่อย
    เมื่อวาน 09:31
  • เช็คชื่อแล้ว: 2 วัน

    [LV.1]NewBie

    1

    กระทู้

    9

    โพสต์

    26

    เครดิต

    BabyGhost

    Rank: 1

    เครดิต
    26
    Ticket
    9
    จิตพิสัย
    17
     เจ้าของ| sskcomputech โพสต์ 2019-3-29 11:24:31 | ดูโพสต์ทั้งหมด
    ได้แล้วครับ ขอบคุณ anuyutza1995 ที่ช่วยแนะนำครับ

    1. Private Sub get_province()
    2.         connect()
    3.         Dim cm As New SqlCommand("select provinceName from province order by provinceName asc", cn)
    4.         Dim dr As SqlDataReader = cm.ExecuteReader
    5.         While dr.Read()
    6.             cmb_orgProvince.Items.Add(dr(0).ToString())
    7.         End While
    8.         cmb_orgProvince.SelectedItem = "ชลบุรี"
    9.         dr.Close()
    10.     End Sub
    คัดลอกไปที่คลิปบอร์ด

  • อารมณ์วันนี้
    ขี้เกียจ
    2019-5-6 13:31
  • เช็คชื่อแล้ว: 44 วัน

    [LV.5]JuniorI

    4

    กระทู้

    338

    โพสต์

    437

    เครดิต

    CodeDragon

    Rank: 2

    เครดิต
    437
    Ticket
    322
    จิตพิสัย
    115
    Rawat โพสต์ 2019-4-3 10:29:46 | ดูโพสต์ทั้งหมด
    หลังจาก load get_province() เสร็จแล้ว
    ก็เพิ่มนี้ไปอีกบรรทัดก็ได้ครับ
    cmb_orgProvince.SelectedItem = "ชลบุรี"
    Mr.Rawat Boonchoo
    rawat@tot.co.th : TOT Public Company Limited
    ขออภัย! คุณไม่ได้รับสิทธิ์ในการดำเนินการในส่วนนี้ กรุณาเลือกอย่างใดอย่างหนึ่ง ลงชื่อเข้าใช้ | ลงทะเบียน

    รายละเอียดเครดิต

    ข้อความล้วน|อุปกรณ์พกพา|ประวัติการแบน|ProjectForStudy  

    GMT+7, 2019-5-24 03:54 , Processed in 0.056763 second(s), 30 queries .

    Powered by Discuz! X3.2 R20150609, Rev.38

    © 2001-2013 Comsenz Inc.

    ตอบกระทู้ ขึ้นไปด้านบน ไปที่หน้ารายการกระทู้