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

Registered : 107,521

HOME > .NET Framework > Forum > สอบถามเรื่องการดึงข้อมูลจากฐานข้อมูล SQL Server ลง Listview ครับ





 

สอบถามเรื่องการดึงข้อมูลจากฐานข้อมูล SQL Server ลง Listview ครับ

 



Topic : 130283



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



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




นี่คือรูปฐานข้อมูลครับ

DB

ผมต้องการดึงข้อมูลในตารางฐานข้อมูล Tbl_Meter_Values มาลง Listview ครับ

โดยใช้ Combobox เป็นตัวกำหนดว่าข้อมูลที่จะดึงมามีไรบ้าง

เช่น หากเลือก มกราคม 2561 ก็ให้ดึงข้อมูล มกราคม 2561 ทั้งหมดที่มีอยู่มาแสดงครับ

โค้ดด้านล่าง มันดึงมาได้เฉพาะแถวแรกของข้อมูลที่เราต้องการครับ

Code (VB.NET)
 sql = "select * from Tbl_Meter_Values where prajum_month_year = '" & combo_month_and_year.Text & "'"
        Dim check2 As String = cmd_excuteScalar()

        If check2 = Nothing Then
            MessageBox.Show("ยังไม่มีข้อมูลค่าเช่าห้องในเดือนนี้", "ข้อมูลเดือน " & combo_month_and_year.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning)
        Else
            sql = "select * from Tbl_Meter_Values where prajum_month_year = '" & combo_month_and_year.Text & "'"
            Dim dts As DataTable = cmd_excuteDataTable()
            Dim arr(16) As String

            arr(0) = listview_detail_room.Items.Count + 1
            arr(1) = dts.Rows(0)("room_name")

            sql = "select cust_nickname, cust_name from Tbl_Customer where room_name = '" & arr(1) & "'"
            Dim dts2 As DataTable = cmd_excuteDataTable()
            arr(2) = dts2.Rows(0)("cust_nickname")
            arr(3) = dts2.Rows(0)("cust_name")

            arr(4) = txt_price.Text
            arr(5) = dts.Rows(0)("meter_water_old")
            arr(6) = dts.Rows(0)("meter_water_new")
            arr(7) = arr(6) - arr(5)
            arr(8) = arr(7) * Val(txt_water.Text)

            arr(9) = dts.Rows(0)("meter_electric_old")
            arr(10) = dts.Rows(0)("meter_electric_new")
            arr(11) = arr(10) - arr(9)
            arr(12) = arr(11) * Val(txt_electric.Text)

            arr(13) = Val(txt_net.Text)
            arr(14) = arr(4) + +arr(8) + +arr(12) + +arr(13)

            sql = "select room_status from Tbl_Rooms where room_name = '" & arr(1) & "'"
            Dim dts3 As DataTable = cmd_excuteDataTable()
            arr(15) = dts3.Rows(0)("room_status") '

            Dim itm As New ListViewItem(arr)
            listview_detail_room.Items.Add(itm)

        End If


ช่วยทีครับ งมมาจะ 3 วันแล้ว ขอบคุณครับ



Tag : .NET, Ms SQL Server 2012, VB.NET









ประวัติการแก้ไข
2018-02-13 18:29:14
Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2018-02-13 18:24:07 By : phkham View : 256 Reply : 4
 

 

No. 1



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



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

สงสัยไม่ได้ลูปข้อมูลลงมาครับ มันเลยมาแค่แถวเดียว

ลองแบบนี้ดูครับ (ยังไม่ได้ทดสอบ)

Code (VB.NET)
''' <summary>
    ''' เปิด/ปิด การเชื่อมต่อฐานข้อมูล MySQL อัตโนมัติ 
    ''' </summary>
    ''' <remarks>Call open_connection()</remarks>
    Public Sub open_connection()
        Try
            If ConnectionDB.State = ConnectionState.Open Then ConnectionDB.Close()
            ConnectionDB.Open()
        Catch ex As Exception
            Throw New Exception("การเชื่อมต่อฐานข้อมูลใช้งานไม่ได้ เกิดข้อผิดพลาด : " & ex.Message)
        End Try
    End Sub


Public Dr As SqlDataReader
Public cmd As SqlCommand


Code (VB.NET)
sql = "select * from Tbl_Meter_Values where prajum_month_year = '" & combo_month_and_year.Text & "'"
cmd = New SqlCommand(sql, ConnectionDB)
      Call open_connection()
            Dr = cmd.ExecuteReader
  if dr.HasRows then
      While Dr.Read
           Dim arr(16) As String

           arr(0) = listview_detail_room.Items.Count + 1
           arr(1) = Dr.Item("room_name")

           sql = "select cust_nickname, cust_name from Tbl_Customer where room_name = '" & arr(1) & "'"
           Dim dts2 As DataTable = cmd_excuteDataTable()
           arr(2) = dts2.Rows(0)("cust_nickname")
           arr(3) = dts2.Rows(0)("cust_name")

           arr(4) = txt_price.Text
           arr(5) = Dr.Item("meter_water_old")
           arr(6) = Dr.Item("meter_water_new")
           arr(7) = arr(6) - arr(5)
           arr(8) = arr(7) * Val(txt_water.Text)

           arr(9) = Dr.Item("meter_electric_old")
           arr(10) = Dr.Item("meter_electric_new")
           arr(11) = arr(10) - arr(9)
           arr(12) = arr(11) * Val(txt_electric.Text)

           arr(13) = Val(txt_net.Text)
           arr(14) = arr(4) + +arr(8) + +arr(12) + +arr(13)

           sql = "select room_status from Tbl_Rooms where room_name = '" & arr(1) & "'"
           Dim dts3 As DataTable = cmd_excuteDataTable()
           arr(15) = dts3.Rows(0)("room_status") '

           Dim itm As New ListViewItem(arr)
           listview_detail_room.Items.Add(itm)
  End While

  Else

MessageBox.Show("ยังไม่มีข้อมูลค่าเช่าห้องในเดือนนี้", "ข้อมูลเดือน " & combo_month_and_year.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning)

end if

     









ประวัติการแก้ไข
2018-02-14 07:47:26
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-02-14 07:44:10 By : pakyaudio
 


 

No. 2



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



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


ขอบคุณคุณ pakyaudio ครับ ผมลองแล้วยังไม่ได้ครับ ติด Error ตามรูปครับ

err

อาจเกี่ยวข้องกับการเรียกข้อมูลจากหลายตารางมา

ตอนนี้ผมแก้ไขเฉพาะหน้า เป็นเพิ่มฟิลล์ที่ต้องการให้ครบในตารางเดียว แล้วเรียกข้อมูลจากตารางเดียวเลย ตอนนี้ได้ผลตามต้องการแล้วครับ

ขอบคุณครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-02-14 14:55:55 By : phkham
 

 

No. 3



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



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

Code (VB.NET)
Else
           sql = "select * from Tbl_Meter_Values where prajum_month_year = '" & combo_month_and_year.Text & "'"
           Dim dts As DataTable = cmd_excuteDataTable()
           Dim arr(16) As String
           if dts.rows.count > 0 then
           for i as int = 0 to dts.rows.count - 1 
           arr(0) = listview_detail_room.Items.Count + 1
           arr(1) = dts.Rows(i)("room_name")
           '...........
           arr(xxx) = dts.Rows(i)("xxxxxx") '

           Dim itm As New ListViewItem(arr)
           listview_detail_room.Items.Add(itm)
           next
           end if
       End If

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-02-15 09:41:46 By : thongchai001
 


 

No. 4



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

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

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

ใช้ DataReader จะต้อปิดตัวแรกก่อนครับ ถึงจะเปิดใหม่ได้
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-02-16 17:50:08 By : mr.win
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : สอบถามเรื่องการดึงข้อมูลจากฐานข้อมูล SQL Server ลง Listview ครับ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ 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: Voake, Comcube, รับทำเว็บไซต์ รับเขียนโปรแกรม

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