Forgot Password ??

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

	Registered : 109,038

HOME > .NET Framework > Forum > สอบถามการใช้ SQL Server Select มีเงื่อนไข 2 ตัว และนำมาแสดงรายงาน

[.NET] สอบถามการใช้ SQL Server Select มีเงื่อนไข 2 ตัว และนำมาแสดงรายงาน

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

SK404

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

ตอนนี้ที่ทำได้ก็คือ ค้นหา วันที่เริ่มค้น ถึง วันที่ค้นสุดท้าย ได้แล้ว

จะเพิ่มไปอีก เงื่อนไข โดยจะทำกาีรค้น >>> วันที่เริ่มค้น ถึง วันที่ค้นสุดท้าย และเท่ากับชื่อเครื่องพิมพ์เครื่องนี้

Code ตอนนี้

Code (VB.NET)

Dim objConn As New SqlConnection
        Dim objCmd As New SqlCommand
        Dim dtAdapter As New SqlDataAdapter
 
        Dim ds As New DataSet
        Dim dt As DataTable
        Dim strConnString, strSQL As String
 
        strConnString = "Data Source=.\SQLEXPRESS;Initial Catalog=LAHWINFO;Integrated Security=True"
         
        Dim sb As StringBuilder = New StringBuilder
        sb.Remove(0, sb.Length())
        sb.Append("SELECT * FROM TotalPrint")
        sb.Append(" WHERE (DateSavePrint BETWEEN @date1 AND @date2)")
        sb.Append(" SELECT SerialNo FROM TotalPrint")
        sb.Append(" WHERE (SerialNo=@SerialNo)")
        strSQL = sb.ToString()
 
        objConn.ConnectionString = strConnString
        With objCmd
            .Parameters.Clear()
            .Parameters.Add("@date1", SqlDbType.SmallDateTime).Value = dtpStartSearch.Value.ToShortDateString
            .Parameters.Add("@date2", SqlDbType.SmallDateTime).Value = dtpEndSearch.Value.ToShortDateString
            .Parameters.Add("@SerialNo", SqlDbType.NVarChar).Value = cboNamePrint.SelectedIndex
            .CommandText = strSQL
            .CommandType = CommandType.Text
            .Connection = objConn
        End With
        dtAdapter.SelectCommand = objCmd
        dtAdapter.Fill(ds, "myDataTable")
        dt = ds.Tables(0)
 
        dtAdapter = Nothing
        objConn.Close()
        objConn = Nothing
 
        Dim rpt As New ReportDocument()
        Dim directory As String = My.Application.Info.DirectoryPath
        'rpt.Load(directory & "\myCrystalReport1.rpt")
        rpt.Load("C:\CrystalReport2.rpt")
        rpt.SetDataSource(dt)
        Me.CrystalReportViewer1.ReportSource = rpt
        Me.CrystalReportViewer1.Refresh()

Tag : .NET, Ms SQL Server 2008, VBScript, VS 2010 (.NET 4.x)

Date : 2013-08-29 17:00:14

By : ih4cK

View : 1252

Reply : 7

No. 1

TC Admin

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

Code

        Dim sb As StringBuilder = New StringBuilder
        sb.Remove(0, sb.Length())
        sb.Append("SELECT * FROM TotalPrint")
        sb.Append(" WHERE (DateSavePrint BETWEEN @date1 AND @date2)")
        sb.Append(" SELECT SerialNo FROM TotalPrint")
        sb.Append(" WHERE (SerialNo=@SerialNo)")
        strSQL = sb.ToString()

น่าจะเป็ก JOIN / SUB SELECT หรือเปล่าครับ

Date : 2013-08-29 20:49:18

By : mr.win

No. 2

SK404

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

ไม่ต้องทำการ Join Table แต่เพียงต้องการให้เงื่อนไข 2 เงื่อนไข Date กับ SeriaiNo <<< Field ซึ่งอยู่ใน Table เดียวกันครับ

Date : 2013-08-30 08:19:28

By : ih4cK

No. 3

0100 0010

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

Code (SQL)

1.SELECT * FROM TotalPrint WHERE (DateSavePrint BETWEEN @date1 AND @date2) AND (SerialNo=@SerialNo)

งงอะไรอะ งงเบย

Date : 2013-08-30 09:22:02

By : 01000010

No. 4

Guest

Solution 1. Multiple Result set
sb.Append("; SELECT SerialNo FROM TotalPrint")

Code (VB.NET)

Dim objConn As New SqlConnection
        Dim objCmd As New SqlCommand
        Dim dtAdapter As New SqlDataAdapter
 
        Dim ds As New DataSet
        Dim dt As DataTable
        Dim dt1 As DataTable '*****
        Dim strConnString, strSQL As String
 
        strConnString = "Data Source=.\SQLEXPRESS;Initial Catalog=LAHWINFO;Integrated Security=True"
         
        Dim sb As StringBuilder = New StringBuilder
        sb.Remove(0, sb.Length())
        sb.Append("SELECT * FROM TotalPrint")
        sb.Append(" WHERE (DateSavePrint BETWEEN @date1 AND @date2)")
        sb.Append("; SELECT SerialNo FROM TotalPrint") '*****
        sb.Append(" WHERE (SerialNo=@SerialNo)")
        strSQL = sb.ToString()
 
        objConn.ConnectionString = strConnString
        With objCmd
            .Parameters.Clear()
            .Parameters.Add("@date1", SqlDbType.SmallDateTime).Value = dtpStartSearch.Value.ToShortDateString
            .Parameters.Add("@date2", SqlDbType.SmallDateTime).Value = dtpEndSearch.Value.ToShortDateString
            .Parameters.Add("@SerialNo", SqlDbType.NVarChar).Value = cboNamePrint.SelectedIndex
            .CommandText = strSQL
            .CommandType = CommandType.Text
            .Connection = objConn
        End With
        dtAdapter.SelectCommand = objCmd
        dtAdapter.Fill(ds, "myDataTable")
        dt = ds.Tables(0)
        dt1 = ds.Tables(1) '*****
        dtAdapter = Nothing
        objConn.Close()
        objConn = Nothing
 
        Dim rpt As New ReportDocument()
        Dim directory As String = My.Application.Info.DirectoryPath
        'rpt.Load(directory & "\myCrystalReport1.rpt")
        rpt.Load("C:\CrystalReport2.rpt")
        rpt.SetDataSource(dt)
        Me.CrystalReportViewer1.ReportSource = rpt
        Me.CrystalReportViewer1.Refresh()

Solution 2. Change Query
Code (VB.NET)

Dim sb As StringBuilder = New StringBuilder
sb.Remove(0, sb.Length())
sb.Append("SELECT * FROM TotalPrint")
sb.Append(" WHERE (DateSavePrint BETWEEN @date1 AND @date2)")
sb.Append(" AND (SerialNo=@SerialNo)")
strSQL = sb.ToString()

Date : 2013-08-30 09:28:05

By : ผ่านมา

No. 5

SK404

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

จริง ๆ ผมเขียนแบบนี้ล่ะครับ

Code (VB.NET)

Dim sb As StringBuilder = New StringBuilder
sb.Remove(0, sb.Length())
sb.Append("SELECT * FROM TotalPrint")
sb.Append(" WHERE (DateSavePrint BETWEEN @date1 AND @date2)")
sb.Append(" AND (SerialNo=@SerialNo)")
strSQL = sb.ToString()

แต่ไปผิดตรงที่ Combo ที่ดึงออกมาชื่อมันซ้ำ ตอนนี้เปลี่ยนไปใช้เป็น SerialNo เลย ได้ล่ะครับ ยังไงก็ขอบคุณครับ :D

Date : 2013-08-31 13:37:19

By : ih4cK

No. 6

Guest

ตอบความคิดเห็นที่ : 5 เขียนโดย : ih4cK เมื่อวันที่ 2013-08-31 13:37:19

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

strConnString = "Data Source=.\SQLEXPRESS;Initial Catalog=LAHWINFO;Integrated Security=True"       
Dim sb As StringBuilder = New StringBuilder
sb.Remove(0, sb.Length())
sb.Append("SELECT * FROM TotalPrint")
sb.Append(" WHERE (DateSavePrint BETWEEN @date1 AND @date2)")
sb.Append(" SELECT SerialNo FROM TotalPrint")
sb.Append(" WHERE (SerialNo=@SerialNo)")
strSQL = sb.ToString()

แล้วนี่คืออะไร? ครับ
เก่งและฉลาด ยังไม่เพียงพอที่จะเป็นโปรแกรมเมอร์ที่ดีได้

Date : 2013-08-31 14:52:57

By : ผ่านมา

No. 7

Guest

วิเคราะห์ SourceCode

Code (VB.NET)

1.Dim sb As StringBuilder = New StringBuilder

2.sb.Remove(0, sb.Length())

'เหมือนกับลอกเขามาทั้งดุ้น ไม่เคยเปลี่ยนแปลง

เขียนแบบนี้ไม่ดีกว่าหรือ?
Code (VB.NET)

Dim sb As StringBuilder()
'Clear String Builder
sb = New StringBuilder() 'sb.Remove(0, sb.Length())
sb.Append("...")
'Clear String Builder
sb = New StringBuilder() 'sb.Remove(0, sb.Length())
sb.Append("...")

[x] ผมคิดว่า VS2013-15 น่าจะมีคำสั่งนี้ sb.Clear() ให้เรียกใช้งาน

Date : 2013-08-31 15:02:43

By : ผ่านมา

ค้นหาข้อมูล

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

Re : สอบถามการใช้ SQL Server Select มีเงื่อนไข 2 ตัว และนำมาแสดงรายงาน

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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

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

Registered : 109,038

document.write("<font color=996600>[.NET]</font>"); [.NET] สอบถามการใช้ SQL Server Select มีเงื่อนไข 2 ตัว และนำมาแสดงรายงาน

No. 1

No. 2

No. 3

No. 4

No. 5

No. 6

No. 7

ค้นหาข้อมูล

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

Notice

[.NET] สอบถามการใช้ SQL Server Select มีเงื่อนไข 2 ตัว และนำมาแสดงรายงาน