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 > ดึงข้อมูลจากฐาน access ลง combobox และให้ textbox แสดงค่าตามที่เลือก combobox ครับ



 

ดึงข้อมูลจากฐาน access ลง combobox และให้ textbox แสดงค่าตามที่เลือก combobox ครับ

 



Topic : 133013



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



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



ดึงข้อมูลจากฐาน access ลง combobox และให้ textbox แสดงค่าตามที่เลือก combobox ครับ

คือ combobox ผมดึงข้อมูลจากฐาน access มาแสดงได้แล้ว โดยในฐานข้อมูลก็ได้แก่
Id รายการ ค่าบริการ ตัวอย่างเช่น
1 เข้าทำงาน 500
2 ออกจากงาน 200

ผมอยากให้ พอเลือก combobox ที่เก็บค่า "รายการ" ไว้ textbox แสดงค่าบริการอัตโนมัติครับ

ตอนนี้ textbox มันแสดงค่าแล้วครับ แต่พอเปลี่ยนตัวเลือก combobox ค่า textbox ยังอยู่ค่าเดิม ไม่เปลี่ยนตามครับ

รบกวนอาจารย์ ช่วยแนะนำหน่อยครับ


ตัวอย่างหน้าจอครับ



Tag : .NET







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2019-01-29 09:55:04 By : 1639518442828154 View : 2931 Reply : 3
 

 

No. 1



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



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

Code (VB.NET)
Private Sub ComboBox1_Click(sender As Object, e As EventArgs) Handles ComboBox1.Click
        Dim sql As String
        sql = "SELECT * FROM ServiceCharge"
        Dim da As New OleDbDataAdapter(sql, cn)
        Dim ds As New DataSet
        da.Fill(ds, "ServiceCharge")
        ComboBox1.DataSource = ds.Tables("ServiceCharge")
        ComboBox1.DisplayMember = "ServiceCharge"
        ComboBox1.ValueMember = "ServiceCharge"

        Dim sql2 As String
        sql2 = "SELECT * FROM ServiceCharge where ServiceCharge = '" & CStr(ComboBox1.Text) & "'"
        Dim da2 As New OleDbDataAdapter(sql2, cn)
        Dim ds2 As New DataSet
        da2.Fill(ds2, "ServiceCharge")
        TextBox4.Text = CStr(ds2.Tables("ServiceCharge").Rows(0).Item("Price"))
    End Sub


ฐานข้อมูลครับ
ฐานข้อมูลครับ






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2019-01-29 09:58:58 By : 1639518442828154
 


 

No. 2



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



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

ได้แล้วครับ ทุกท่าน ขอบคุณมากๆๆ ครับ
เอามาฝาก เผื่อมีคนกำลังตามหาอยู่

Code (VB.NET)
 Private Sub frmDailyWork_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Me.CenterToScreen()
        Dim strPath As String = Application.StartupPath
        strPath = strPath.ToLower()
        Dim strConn As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=|DataDirectory|data\Database.accdb; Persist Security Info = false;"

        Try
            ' เปิดการเชื่อมต่อไฟล์ฐานข้อมูล
            Conn = New OleDb.OleDbConnection(strConn)
            Conn.Open()
            '// โหลดรายการจังหวัดเข้ามาก่อน
            Call LoadProvice()
        Catch ex As Exception
            MsgBox(ex.Message)
            Application.Exit()
        End Try

    End Sub

    Sub LoadProvice()
        ' DISTINCT คือ หากชื่อรายการมันซ้ำ ต้องตัดให้เหลือเพียงรายการเดียว
        Statement =
            " SELECT * " &
            " From ServiceCharge "
        cmd = New OleDbCommand(Statement, Conn)
        dr = cmd.ExecuteReader
        While dr.Read()
            ComboBox1.Items.Add(dr.Item("ServiceCharge").ToString)
        End While
        dr.Close()
        cmd.Dispose()
    End Sub

 Private Sub ComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedValueChanged
        TextBox4.Clear()
        TextBox4.Text = ""
        Statement =
            " SELECT * " &
            " From ServiceCharge  " &
            " WHERE " &
            " ServiceCharge = " & "'" & ComboBox1.Text & "'" &
            " ORDER BY id "
        cmd = New OleDbCommand(Statement, Conn)
        dr = cmd.ExecuteReader
        While dr.Read()
            TextBox4.Text = dr.Item("Price").ToString
        End While
        dr.Close()
        cmd.Dispose()
    End Sub

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2019-01-29 11:37:52 By : 1639518442828154
 

 

No. 3



โพสกระทู้ ( 74,058 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

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


แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2019-02-04 16:37:34 By : mr.win
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : ดึงข้อมูลจากฐาน access ลง combobox และให้ textbox แสดงค่าตามที่เลือก combobox ครับ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ 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 00
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 อัตราราคา คลิกที่นี่