Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,027

HOME > .NET Framework > Forum > รบกวนเพื่อน ๆ พี่ ๆ อีกครั้งครับเกี่ยวกับ vb ช่วยผมหน่อยนะครับ

รบกวนเพื่อน ๆ พี่ ๆ อีกครั้งครับเกี่ยวกับ vb ช่วยผมหน่อยนะครับ

เริ่มหัวข้อใหม่

Guest

เป็นโปรแกรมร้านขายเครื่องใช้ไฟฟ้า ในหน้าของข้อมูลสินค้า frm_data_pro จะเเสดงข้อมูลสินค้า รายละเอียดต่างๆ ราคา ประเภท เเละอื่นๆตามรูป ปัญหาคือ รายการสินค้าที่แสดงในDataGridView1 จะเริ่มแสดงเรียงจากรหัสสินค้า P0001 เรียงลงไปเรื่อยๆ ปัญหาคือผมอยากให้มันแสดง เรียกตามยี่ห้อ Brand_id คือ ให้เรียงจากยี่ห้อแรกจนถึงยี่ห้อสุดท้าย ก็คือ B0001 คือ Toshiba B0002 คือ Sharp ไปเรื่อยๆจนครบ 20 ยี่ห้อ คือให้แสดงเรียงตามรหัสยี่ห้อ Brand_id ซึ่งปกติมันจะแสดงเรียงตามรสัสสินค้า Pro_id โค๊ดเป็นแบบนี้นะครับ

Code (VB.NET)

Sub ID_AUTO()

        Dim sql As String = ""
        Dim conn2 As New SqlConnection _
              (M_ConnStr.strConn)
        Dim Command_Adp2 As SqlCommand
        Dim Sql_Reader As SqlDataReader
        sql = "select max(substring(Pro_id,2,4)) as g_ID_AUTO from Product"

        conn2.Open()
        Command_Adp2 = New SqlCommand(sql, conn2)
        Sql_Reader = Command_Adp2.ExecuteReader()
        If Sql_Reader.Read() Then
            If Sql_Reader.Item("g_ID_AUTO").ToString() <> "" Then
                txtid.Text = "P" & Format((CDbl(Sql_Reader.Item("g_ID_AUTO").ToString()) + 1), "0000")
            Else
                txtid.Text = "P0001"
            End If
        Else
            txtid.Text = "P0001"
        End If

    End Sub

ผมเลยเปลี่ยนโค๊ดเป็นแบบข้างล่างนี้นะครับ เพื่อให้มันแสดงเรียงไปทีละยี่ห้อ แต่พอรัน ข้อมูลที่แสดงในDataGridView1 ก็ยังแสดงเรียงตามรหัสสินค้ Prp_id เหมือนเดิมอยู่ดี ช่วยทีนะครับ

Code (VB.NET)

Sub ID_AUTO()

        Dim sql As String = ""
        Dim conn2 As New SqlConnection _
              (M_ConnStr.strConn)
        Dim Command_Adp2 As SqlCommand
        Dim Sql_Reader As SqlDataReader
        sql = "select max(substring(Brand_id,2,4)) as g_ID_AUTO from Product"

        conn2.Open()
        Command_Adp2 = New SqlCommand(sql, conn2)
        Sql_Reader = Command_Adp2.ExecuteReader()
        If Sql_Reader.Read() Then
            If Sql_Reader.Item("g_ID_AUTO").ToString() <> "" Then
                txtid.Text = "B" & Format((CDbl(Sql_Reader.Item("g_ID_AUTO").ToString()) + 1), "0000")
            Else
                txtid.Text = "B0001"
            End If
        Else
            txtid.Text = "B0001"
        End If

    End Sub

Tag : .NET, VB.NET

Date : 2011-12-16 17:12:26

By : off

View : 1732

Reply : 13

No. 1

Guide

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

Code (VB.NET)

sql = "select substring(Brand_id,2,4) as g_ID_AUTO from Product Order By Brand_id"

ประวัติการแก้ไข
2011-12-16 23:29:18

Date : 2011-12-16 23:21:15

By : kerb

No. 2

Guest

ยังไม่ได้เลยครับ คือฐานข้อมูลของผมก็คือยี่ห้อหนึ่งก็จะมีสินค้าไม่เท่ากัน เช่น Mitsushita อาจจะมี 10 รายการ เป็นพัดลมบ้าง เครื่องปรับอากาศบ้าง คละเคล้ากันไป ซึ่งเวลาแสดงข้อมูลอยากให้แสดงโดยเอาช่องสุดท้ายในDayaGridView1คือยี่ห้อสินค้าเป็นหลัก ให้เรียงลงไปตามยี่ห้อจนครบ คือไม่สลับกัน Toshiba ก็ Toshiba ให้ครบไปเลย จึงจะเป็นยี่ห้ออื่นๆ ตามลำดับลงไป ซึ่งถ้าทำได้ ที่ช่องแรกก็คือ รหัสสินค้า จะแสดงโดยไม่เรียง P0001 P0002 P0003 P0004 ตามรูป เพราะถ้ายังเรียงตามนี้ แสดงว่ามันยังเอารหัสสินค้าเป็นหลักอยู่ จะแก้โค๊ดอย่างไรดีครับ

Code (VB.NET)

Sub ID_AUTO()

        Dim sql As String = ""
        Dim conn2 As New SqlConnection _
              (M_ConnStr.strConn)
        Dim Command_Adp2 As SqlCommand
        Dim Sql_Reader As SqlDataReader
        sql = "select max(substring(Brand_id,2,4)) as g_ID_AUTO from Product"

โค๊ดข้างล่าง มันสั่งให้แสดง id ที่รหัสสินค้าใช่มั้ยครับ ซึ่งจริงๆแล้วถ้าอยากให้แสดงโดยเอายี่ห้อเป็นหลัก ซึ่งยี่ห้อที่แสดงในDataGridView1มันอยู่ช่องสุดท้ายเลย ในช่องแรกที่แสดงรหัสสินค้า มันไม่ควรมีโค๊ดพวกนนี้กำกับถูกมั้ยครับ จะแก้โค๊ดอย่างไร ให้ รหัสสินค้าที่แสดง มันแสดงโดยยึดเอายี่ห้อเป็นหลัก

Code (VB.NET)

        conn2.Open()         
        Command_Adp2 = New SqlCommand(sql, conn2)
        Sql_Reader = Command_Adp2.ExecuteReader()
        If Sql_Reader.Read() Then
            If Sql_Reader.Item("g_ID_AUTO").ToString() <> "" Then
                txtid.Text = "B" & Format((CDbl(Sql_Reader.Item("g_ID_AUTO").ToString()) + 1), "0000")
            Else
                txtid.Text = "B0001"
            End If
        Else
            txtid.Text = "B0001"
        End If

    End Sub

Date : 2011-12-17 11:00:23

By : off

No. 3

plapaJung

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

ตั้งรหัสเอาจาก 2 ตัวแรกของ brand_name ดีกว่าค่ะ เช่น product ของ toshiba รหัสก้อเป็น TO001 ถ้าเป็น Sharp ก้อ SH001
substring 2 ตัวแรกใน dropdonw ยี่ห้อ จะได้

ประกาศตัวแปร dim prifix as string =comboboxBrand.selectedItem.Text.substring(0,2) จะได้

TO
MI
LG
ขั้นตอนต่อมาก็ select ตามนี้ค่ะ

Code (VB.NET)

sql = "select max(substring(Product_ID,2,4))  as g_ID_AUTO from Product where brand_id=comboboxBrand.selectedValue
txtid.Text = prifix  & Format((CDbl(Sql_Reader.Item("g_ID_AUTO").ToString()) + 1), "0000")
Else
txtid.Text = prifix & "0001"

ประมาณนี้แหละค่ะ โค้ดเขียนสดน่ะค่ะบางทีเอาไปวางเลยอาจไม่ได้อาจต้องปรับแก้แต่ concept ก็ประมาณนี้ค่ะ

ประวัติการแก้ไข
2011-12-17 11:42:18
2011-12-17 11:46:38
2011-12-17 11:48:14
2011-12-17 11:48:34
2011-12-17 12:11:42
2011-12-17 12:14:15
2011-12-19 11:18:04

Date : 2011-12-17 11:41:22

By : bangbang111

No. 4

Champ

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

ตอบความคิดเห็นที่ : 1 เขียนโดย : kerb เมื่อวันที่ 2011-12-16 23:21:15

รายละเอียดของการตอบ ::

ไม่แน่ใจเจ้าของกระทู้นะ ว่าสร้างในฐานข้อมูล Brand มี Toshiba 2 อันหรือเปล่า จึงทำให้เป็นแบบนั้น
งั้นก็เปลี่ยนจาก Brand_id เป็น Brand_name (ช่องที่เป็นชื่ออะ เรียงตามชื่อไปเลย) น่าจะประมาณนี้นะ

Date : 2011-12-17 15:04:29

By : zero1150kfc

No. 5

Guest

เช็คแล้วข้อมูลยี่ห้อไม่ซ้ำนะครับ ประมาณว่า สินค้าหนึ่งยี่ห้อมีหลายประเภท
ถ้าไม่เปลี่ยนรหัสสินค้า แต่จะให้แสดงข้อมูลโดยเอายี่ห้อ หรือประเภทเป็นหลัก สามารถทำได้มั้ยครับ ขอแนวทางหน่อย เช่น ถ้าจะเปลี่ยนจาก Pro_id เป็น Brand_name แล้วจะปรับโค๊ดอย่างไร ไอดี ออโต้ ผมไม่เข้าใจเลยจริงๆ

Code (VB.NET)

Sub ID_AUTO()

        Dim sql As String = ""
        Dim conn2 As New SqlConnection _
              (M_ConnStr.strConn)
        Dim Command_Adp2 As SqlCommand
        Dim Sql_Reader As SqlDataReader
        sql = "select max(substring(Brand_name,2,4)) as g_ID_AUTO from Brand"   <<Brand_name from Brand ถูกมั้ยครับ

        conn2.Open()
        Command_Adp2 = New SqlCommand(sql, conn2)
        Sql_Reader = Command_Adp2.ExecuteReader()
        If Sql_Reader.Read() Then
            If Sql_Reader.Item("g_ID_AUTO").ToString() <> "" Then
                txtid.Text = "P" & Format((CDbl(Sql_Reader.Item("g_ID_AUTO").ToString()) + 1), "0000")    บรรทัดนี้แก้ยังไง
            Else
                txtid.Text = "P0001"  บรรทัดนี้แก้ยังไง
            End If
        Else
            txtid.Text = "P0001"   สามบรรทัดนี้แก้ยังไง ในเมื่อไม่ได้ให้มันรันจาก id แต่รันจาก Brand_name

        End If

End Sub

ผู้รู้ช่วยทีครับ ขอบคุณครับ

Date : 2011-12-18 12:03:27

By : off

No. 6

plapaJung

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

ต้องตัดสองตัวแรกจาก combobox ค่ะ ไม่ได้ดึงจาก table brand ค่ะ ดึงจาก product นั่นแหละ แต่ต้อง where ด้วยค่ะ ลองทำตามที่ดิฉันบอกไว้ด้านบนน่ะค่ะ ถ้าไม่ได้ตรงไหน จะมาตอบให้ค่ะ

Date : 2011-12-19 11:17:04

By : bangbang111

No. 7

Guest

ขอตัวอย่างโค๊ดได้มั้ยครับ ผมมือใหม่(มาก)จริงๆครับ ขอบคุณครับ

Date : 2011-12-19 12:20:56

By : off

No. 8

plapaJung

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

ตัวอย่างโค้ดที่คำตอบของ No. 3 ค่ะ

Date : 2011-12-19 12:22:59

By : bangbang111

No. 9

Guest

คือตอนนี้ผมทำโปรเจคส่งอาจารย์อ่ะครับ ถ้าผมเปลี่ยนไอดี เป็น TO001 SH001 และอื่น ๆ โปรแกรมแสดงแบบที่ต้องการ คือ เรียงจากยี่ห้อ ซึ่งพอเสร็จจากตรงนี้ เชื่อเหลือเกินว่า อาจารย์ของผมนั้น ก็ต้องให้ผมเปลี่ยนเป็นเรียงจาก ประเภท เพื่อลองภูมิของผมอะไรประมาณนี้ ซึ่งถ้าเป็นอย่างนั้น ผมก็ต้องมานั่งเปลี่ยนไอดีใหม่ ที่อ้างอืงถึงประเภท แล้วสินค้าในสตอกมีเป็นร้อยรายการ ความต้องการของผม คือให้ไอดี หรือรหัสสินค้าที่ผมเซ็ทไว้ตอนนี้ มันเป็นแบบนี้ต่อไป แต่อยากให้สามารถเซ็ท หรือ ซอทโค๊ด ได้ว่า เราจะเอาอะไรเป็นหลัก ที่จะแสดงใน Datagridview โดยที่ไม่ต้องไปปรับเปลี่ยนรหัสสินค้า (Pro_id) ที่มันเป็นอยู่ ณ ขณะนี้อ่ะครับ แต่ยังไงก็ขอบคุณมาก ๆ นะครับ ผมคิดว่าคงไม่มีวิธี หรือผมอาจเป็นมือใหม่เกินไป พรุ่งนี้ผมต้องส่งงาน เดี๋ยวไปลุยเอาข้างหน้าละกัน ขอบคุณทุกคนมาก ๆ ครับ

Date : 2011-12-19 13:32:09

By : off

No. 10

คนไร้เงา

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

ลองดูประมาณนี้
strSQL = "SELECT * FROM Product order by ยี่ห้อสินค้า asc,รหัสสินค้า asc"

Date : 2011-12-19 14:33:54

By : edong

No. 11

หางอึ่ง

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

กำหนด Property "Sort" ของ BindingSource ที่ผูกกับ DataGridView นี้
เป็น "ยี่ห้อสินค้า"

Date : 2011-12-19 15:29:59

By : watcharop

No. 12

Guest

No.11 ที่ตอบมาผมว่าใช่เลยครับ แต่ทำยังไงครับ ขอแนวทางหน่อยครับ ผมมือใหม่จริงๆ ขอเป็นรูปตัวอย่างได้ไหมครับ

Date : 2011-12-20 11:26:55

By : off

No. 13

หางอึ่ง

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

ภาพตามสั่ง
BindingSource

Date : 2011-12-20 12:33:46

By : watcharop

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : รบกวนเพื่อน ๆ พี่ ๆ อีกครั้งครับเกี่ยวกับ vb ช่วยผมหน่อยนะครับ

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

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

Notice

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

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก