Forgot Password ??

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

	Registered : 109,038

HOME > .NET Framework > Forum > สอบถามหน่อยครับ เรื่องการรับค่าจาก textbox แล้วให้ไปค้นหาใน db เพื่อแสดงออก crystal report

[.NET] สอบถามหน่อยครับ เรื่องการรับค่าจาก textbox แล้วให้ไปค้นหาใน db เพื่อแสดงออก crystal report

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

bankguszo

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

ผมมีปัญหาตรงที่ว่า เมื่อรับค่าจาก textbox มาแล้ว แต่ว่า ลอง debug ดูแล้วมันไม่เจอ db ครับ แล้วก็ไม่เอาคำใน textbox ไปค้นหา ผมทำตรงไหนพลาดไปหรือป่าวครับ query ผม ถูกต้องครับ เอาไปรันบน db แล้ว แสดงผลปกติ ผมต้องการให้ txtproduct + DDstatus ไปค้นหาสินค้า แล้วแสดงออกมาทั้งหมดครับ หรือถ้าใส่เลขกล่องใน txtboxfrom + txtboxto ก็ให้แสดงเลขbox ที่เราใส่ไว้ตาม txt ด้วยครับ

จุดประสงค์คือ ผมต้องการให้แสดงออกมาแบบนี้ครับ แล้ว ผมจะทำการ gen barcode วันที่ออกมาครับ

asdasdas

รบกวนด้วยครับ

query
Code (VB.NET)

Public Shared Function Datecodelabel1(ByVal SLM_PRD_NAME As String, ByVal SLP_DATE_CODE As String, ByVal BCM_STATUS As String, ByVal SLP_BOX_NO_T As String, ByVal SLP_BOX_NO_F As String) As DataTable
 
        Dim dt As New DataTable
        strSql = New StringBuilder
 
 
        strSql.AppendLine("select distinct  t.slp_prd_name ,t.slp_box_no,substr(t.slp_tray_no,-16,4)as date_code")
 
        strSql.AppendLine("from fpcs_lot_serial_packing t ")
        strSql.AppendLine("where (slp_prd_name = '" & SLM_PRD_NAME & "' )")
        strSql.AppendLine("and slp_box_no in ( ")
        strSql.AppendLine("select")
        strSql.AppendLine("t.BCM_box_no as box_no")
        strSql.AppendLine("from fpc_box_cap_mstr t ")
        strSql.AppendLine("left join fpc_box_cap_det A on t.bcm_prd_item_code = A.Bcd_Prd_Item_Code and t.bcm_box_no = A.Bcd_Box_No")
        strSql.AppendLine("left join fpc_box_cap_post B on t.bcm_prd_item_code = B.BCP_PRD_ITEM_CODE and t.bcm_box_no = B.BCP_BOX_NO")
        strSql.AppendLine("left join fpc_factory C on t.bcm_support_by = C.FACTORY_CODE")
        strSql.AppendLine("where (bcm_prd_item_code = REPLACE('9G'||'" & SLM_PRD_NAME & "','-','') )")
        strSql.AppendLine("and (A.BCD_PACK_DATE is not null)")
        strSql.AppendLine("and (bcm_status = upper('" & BCM_STATUS & "')) ")
        strSql.AppendLine("and (A.BCD_SEQ_NO = '1')")
        strSql.AppendLine(" ) ")
        strSql.AppendLine("AND (t.slp_box_no >= '" & SLP_BOX_NO_F & "' OR '" & SLP_BOX_NO_F & "' IS NULL)")
        strSql.AppendLine("AND (t.slp_box_no <= '" & SLP_BOX_NO_T & "' || 'Z' OR '" & SLP_BOX_NO_T & "'  IS NULL)")
 
        strSql.AppendLine("order by slp_prd_name ,slp_box_no,substr(t.slp_tray_no,-16,4)")
 
        Dim StrQuery As String = ""
        StrQuery = strSql.ToString
        dt = GetDataOracle(strSql.ToString, "SLM_PRD_NAME", constrolacle).Tables(0)
        Return dt
 
    End Function

Code (VB.NET)

Protected Sub btnsearch_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnsearch.Click
lblmessage.Text = ""
Try
If txtProduct.Text.Length > 12 Then
datecode(txtProduct.Text, "", DDstatus.SelectedValue, txtboxfrom.Text, txtboxto.Text)
End If
Catch ex As Exception
lblmessage.Text = ex.Message()
End Try
 
End Sub

Code (VB.NET)

Sub datecode(ByVal SLM_PRD_NAME As String, ByVal SLP_DATE_CODE As String, ByVal BCM_STATUS As String, ByVal SLP_BOX_NO_T As String, ByVal SLP_BOX_NO_F As String)
       lblmessage.Text = ""
       Try
           Me.Flag = True
           Dim dt As New System.Data.DataTable
           dt.TableName = "barcode1DPackingRoom"
 
           dt.Columns.Add(New DataColumn("SLP_PRD_NAME", GetType(String)))
           dt.Columns.Add(New DataColumn("SLP_BOX_NO", GetType(String)))
           dt.Columns.Add(New DataColumn("DATE_CODE", GetType(String)))
           'dt.Columns.Add(New DataColumn("BCM_STATUS", GetType(String)))
           'dt.Columns.Add(New DataColumn("SLP_BOX_NO_T", GetType(String)))
           'dt.Columns.Add(New DataColumn("SLP_BOX_NO_F", GetType(String)))
 
 
           Dim DatePackingRoom As DataTable = Datecodelabel1(SLM_PRD_NAME, "", "", "", "")
 
           If DatePackingRoom.Rows.Count > 0 Then
               For i As Integer = 0 To DatePackingRoom.Rows.Count - 1
                   Dim dr As System.Data.DataRow
                   dr = dt.NewRow
                   dr("SLP_PRD_NAME") = DatePackingRoom.Rows(i).Item("SLP_PRD_NAME")
                   dr("SLP_BOX_NO") = DatePackingRoom.Rows(i).Item("SLP_BOX_NO")
                   dr("DATE_CODE") = DatePackingRoom.Rows(i).Item("DATE_CODE")
                   'dr("BCM_STATUS") = DatePackingRoom.Rows(i).Item("BCM_STATUS")
                   'dr("SLP_BOX_NO_T") = DatePackingRoom.Rows(i).Item("SLP_BOX_NO_T")
                   'dr("SLP_BOX_NO_F") = DatePackingRoom.Rows(i).Item("SLP_BOX_NO_F")
               Next
           End If
           If DatePackingRoom.Rows.Count > 0 Then
 
               Dim b As String = dt.Rows.Count()
               ViewDataSet = dt
 
               BindReport(RDSendingReport)
               'Else
               Me.ViewDataSet = Nothing
 
           End If
       Catch ex As Exception
           lblmessage.Text = ex.Message()
       End Try
   End Sub

Tag : .NET, C#, VS 2008 (.NET 3.x)

ประวัติการแก้ไข
2017-12-11 10:48:44

Date : 2017-12-11 10:45:24

By : bankguszo

View : 1025

Reply : 6

No. 1

TOR_CHEMISTRY

โพสกระทู้ ( 4,440 )
บทความ ( 23 )

ลองเช็คเป็นขั้นๆดูนะครับ

1. มันเข้าเงื่อนไข If txtProduct.Text.Length > 12 Then รึป่าว
2.มันเข้าเงื่อนไข If DatePackingRoom.Rows.Count > 0 Then รึป่าว

Date : 2017-12-11 11:14:38

By : lamaka.tor

No. 2

FONFIRE

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

อ่าน Code ผ่าน ๆ เนื่องจากมันค่อนข้างยาว
แต่เห็นตรงนี้ดูน่าจะผิด

Code (VB.NET)

If DatePackingRoom.Rows.Count > 0 Then
              For i As Integer = 0 To DatePackingRoom.Rows.Count - 1
                  Dim dr As System.Data.DataRow
                  dr = dt.NewRow
                  dr("SLP_PRD_NAME") = DatePackingRoom.Rows(i).Item("SLP_PRD_NAME")
                  dr("SLP_BOX_NO") = DatePackingRoom.Rows(i).Item("SLP_BOX_NO")
                  dr("DATE_CODE") = DatePackingRoom.Rows(i).Item("DATE_CODE")
                  'dr("BCM_STATUS") = DatePackingRoom.Rows(i).Item("BCM_STATUS")
                  'dr("SLP_BOX_NO_T") = DatePackingRoom.Rows(i).Item("SLP_BOX_NO_T")
                  'dr("SLP_BOX_NO_F") = DatePackingRoom.Rows(i).Item("SLP_BOX_NO_F")
 
 
                 'ลองเพิ่มอันนี้ดูครับ
                 dt.Rows.Add(dr)
 
              Next
          End If

Date : 2017-12-11 11:30:26

By : fonfire

No. 3

bankguszo

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

ตอบความคิดเห็นที่ : 1 เขียนโดย : lamaka.tor เมื่อวันที่ 2017-12-11 11:14:38

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

1.เข้าเงื่อนไขตรงนี้ครับ
2.อันนี้ไม่เข้าครับ มันข้ามเลยครับ

ตอบความคิดเห็นที่ : 2 เขียนโดย : fonfire เมื่อวันที่ 2017-12-11 11:30:26

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

ลองแล้วก็ไม่ได้ครับ มันไม่เข้าเงื่อนไขที่ 2

ประวัติการแก้ไข
2017-12-11 11:39:30

Date : 2017-12-11 11:35:09

By : bankguszo

No. 4

TOR_CHEMISTRY

โพสกระทู้ ( 4,440 )
บทความ ( 23 )

ตอบความคิดเห็นที่ : 3 เขียนโดย : bankguszo เมื่อวันที่ 2017-12-11 11:35:09

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

เริ่มง่ายขึ้นมายังครับ 555
ตามมันไปที่ Datecodelabel1
และตามไปที่ GetDataOracle โดยใช้หลักการเดียวกันครับ

รับรองเจอสาเหตุแน่ๆ

Date : 2017-12-11 11:48:19

By : lamaka.tor

No. 5

bankguszo

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

พอจะไกด์ได้ไหมครับเพราะอะไร ผมเช็ค query แล้วก็ถูกต้องนะครับ

Date : 2017-12-11 12:05:01

By : bankguszo

No. 6

TOR_CHEMISTRY

โพสกระทู้ ( 4,440 )
บทความ ( 23 )

ตอบความคิดเห็นที่ : 5 เขียนโดย : bankguszo เมื่อวันที่ 2017-12-11 12:05:01

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

ถ้ามั่นใจว่า query สามารถเอา query ที่ว่า มาแทนลงใน strSql.ToString ได้เลยครับ
ถ้ามัน return dt ที่ถูกต้องกลับไป เราก็มานั่งเช็ค strSql.ToString แต่ละบรรทัดอีกที
แต่ถ้ามันไม่ return dt แล้วเราก็มั่นใจว่า query เราถูกแน่ๆ ก็สืบไปกับ GetDataOracle อีกที ครับ

Date : 2017-12-11 12:19:39

By : lamaka.tor

ค้นหาข้อมูล

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

Re : สอบถามหน่อยครับ เรื่องการรับค่าจาก textbox แล้วให้ไปค้นหาใน db เพื่อแสดงออก crystal report

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

Registered : 109,038

document.write("<font color=996600>[.NET]</font>"); [.NET] สอบถามหน่อยครับ เรื่องการรับค่าจาก textbox แล้วให้ไปค้นหาใน db เพื่อแสดงออก crystal report

No. 1

No. 2

No. 3

No. 4

No. 5

No. 6

ค้นหาข้อมูล

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

Notice

[.NET] สอบถามหน่อยครับ เรื่องการรับค่าจาก textbox แล้วให้ไปค้นหาใน db เพื่อแสดงออก crystal report