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,037

HOME > .NET Framework > Forum > ช่วยด้วยครับ ผมต้องการให้แสดงภาพ ก่อนที่จะทำการ query ครับ มันไม่ไ้ด้ครับ



 

ช่วยด้วยครับ ผมต้องการให้แสดงภาพ ก่อนที่จะทำการ query ครับ มันไม่ไ้ด้ครับ

 



Topic : 058451



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



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




ช่วยด้วยครับ
ผมต้องการจะทำ progressbar
คือตอนที่ผมกดปุ่มให้ query ข้อมูล ผมต้องการให้แสดงภาพ ก่อน แล้วก็ไป query ข้อมูล แล้วก็เอาข้อมูลลง gridview


แต่ผลออกมาคือ มัน query ข้อมูลแล้วเอาลง gridview ก่อนครับ ถึงจะแสดงรูป แนะนำทีครับ

Code (VB.NET)
 Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click, Button3.Click

        Dim dt As New DataTable()
        Image1.Visible = True
        Dim i As Integer = 0
        dt = dbm.query("SELECT * from time_log_track ")
        Gv.DataSource = dt
        Gv.DataBind()
    End Sub


code มีแค่นี้คับ ทดสอบดูครับ



Tag : VBScript, Ajax, Web (ASP.NET), VB.NET







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2011-04-07 17:02:35 By : sodamax View : 1237 Reply : 4
 

 

No. 1



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

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

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

ลองใช้ Ajax Timer ดูน่ะครับ

Go to : asp.net ajax ไม่มีอะไรง่ายไปกว่านี้แล้วเชื่อดิ ScriptManager , ScriptManagerProxy, Timer, UpdatePanel, UpdateProgress...






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-04-07 21:31:57 By : webmaster
 


 

No. 2



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



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


ขอบคุณครับ
คุณ mr.win
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-04-08 00:19:37 By : sodamax
 

 

No. 3



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



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


ผมขอถามปัญหาอีกซัหข้อได้ไหมครับ
ผมได้ทำ progressbar ได้แล้วโดยใช้ tools ของ EO.WEB
แต่ติดปัญหาตรงที่ว่า ข้อมูลที่ผมทำการ query จาก database ไม่แสดงให้ดูใน gridview ครับ
แต่ผม debug ดูแล้ว ค่าที่ได้ก็ปกติทุกอย่างครับ
ไม่ได้อย่างเดียวคือไม่ยอมแสดงให้ครับ แนะนำทีครับ

Code (VB.NET)
 Private Sub ProgressBar1_RunTask(ByVal sender As Object, ByVal e As EO.Web.ProgressTaskEventArgs) Handles ProgressBar1.RunTask
        Dim datein As String = Replace(CP_In.PostedDate, "/", " ")
        Dim dateout As String = Replace(CP_Out.PostedDate, "/", " ")
        Dim dateinarray() As String = Split(datein)
        Dim dateoutarray() As String = Split(dateout)

        If dateinarray(0).Length = 1 Then
            dateinarray(0) = "0" + dateinarray(0)
        End If
        If dateinarray(1).Length = 1 Then
            dateinarray(1) = "0" + dateinarray(1)
        End If
        If dateinarray(2).Length = 4 Then
            dateinarray(2) = dateinarray(2).Substring(2, 2)
        End If

        If dateoutarray(0).Length = 1 Then
            dateoutarray(0) = "0" + dateoutarray(0)
        End If
        If dateoutarray(1).Length = 1 Then
            dateoutarray(1) = "0" + dateoutarray(1)
        End If
        If dateoutarray(2).Length = 4 Then
            dateoutarray(2) = dateoutarray(2).Substring(2, 2)
        End If

        Dim date_start As String = dateinarray(2) + "/" + dateinarray(1) + "/" + dateinarray(0)
        Dim date_end As String = dateoutarray(2) + "/" + dateoutarray(1) + "/" + dateoutarray(0)
        Dim dt As New DataTable()
        Dim txt_type As String

        If CK_B_date.Checked = False And CK_B_time.Checked = False Then
            txt_type = "00"
        ElseIf CK_B_date.Checked = False And CK_B_time.Checked = True Then
            txt_type = "01"
        ElseIf CK_B_date.Checked = True And CK_B_time.Checked = False Then
            txt_type = "10"
        ElseIf CK_B_date.Checked = True And CK_B_time.Checked = True Then
            txt_type = "11"
        End If

        Dim time_in As String = DDL_In_H.Text + ":" + DDL_In_M.Text
        Dim time_out As String = DDL_Out_H.Text + ":" + DDL_Out_M.Text

        Dim Fill As String
        Dim where As String
        Dim condition As String
        Dim Table As String
        Dim Group As String
        Dim where_time As String

        Dim Fill_log As String
        Dim condition_log As String
        Dim where_log As String
        Dim Table_log As String
        Dim Group_log As String
        Dim where_time_log As String


        Dim where_part As String
        Dim Mode As String

        If RD_present.Checked = True Then
            Fill = "time.DATA_ID"
            where = "time.time"
            condition = "time.Part_id"
            Table = "part,time"
            Group = "time.DATA_ID"
            Fill_log = "time_log.DATA_ID"
            where_log = "time_log.time"
            condition_log = "time_log.Part_id"
            Table_log = "part,time_log"
            Group_log = "time_log.DATA_ID"
            Mode = "present"
            where_part = "part."
            where_time = "time."
            where_time_log = "time_log."
        Else
            Fill = "time_log_track.DATA_ID"
            where = "time_log_track.time"
            condition = "time_log_track.Part_id"
            Table = "part_track,time_log_track"
            Group = "time_log_track.DATA_ID"
            Fill_log = "time_log_track.DATA_ID"
            where_log = "time_log_track.time"
            condition_log = "time_log_track.Part_id"
            Table_log = "part_track,time_log_track"
            Group_log = "time_log_track.DATA_ID"
            Mode = "back"
            where_part = "part_track."
            where_time = "time_log_track."
            where_time_log = "time_log_track."
        End If

        If txt_type = "00" Then 'เลือกวันที่และเวลา
            dt = UnNo_DateTimeNo_Time(DL_Part_name.Text.Length, TB_Product.Text.Length, TB_DCM.Text.Length, DL_Part_name.Text, TB_Product.Text, TB_DCM.Text, DL_Size.Text, TB_Status.Text.Length, TB_Status.Text, TB_Eval.Text.Length, TB_Eval.Text, DL_Phase.Text, date_start, date_end, time_in, time_out, Fill, Table, Group, Fill_log, Table_log, Group_log, where, condition, where_log, condition_log, where_part, where_time, where_time_log)
        ElseIf txt_type = "01" Then 'ไม่เอาเวลา
            dt = No_Time(DL_Part_name.Text.Length, TB_Product.Text.Length, TB_DCM.Text.Length, DL_Part_name.Text, TB_Product.Text, TB_DCM.Text, DL_Size.Text, TB_Status.Text.Length, TB_Status.Text, TB_Eval.Text.Length, TB_Eval.Text, DL_Phase.Text, date_start, date_end, time_in, time_out, Fill, Table, Group, Fill_log, Table_log, Group_log, where, condition, where_log, condition_log, where_part, where_time, where_time_log)
        ElseIf txt_type = "10" Then 'ไม่เอาวันที่
            dt = No_Date(DL_Part_name.Text.Length, TB_Product.Text.Length, TB_DCM.Text.Length, DL_Part_name.Text, TB_Product.Text, TB_DCM.Text, DL_Size.Text, TB_Status.Text.Length, TB_Status.Text, TB_Eval.Text.Length, TB_Eval.Text, DL_Phase.Text, date_start, date_end, time_in, time_out, Fill, Table, Group, Fill_log, Table_log, Group_log, where, condition, where_log, condition_log, where_part, where_time, where_time_log)
        ElseIf txt_type = "11" Then 'ไม่เอาวันที่และเวลา
            dt = No_DateTime(DL_Part_name.Text.Length, TB_Product.Text.Length, TB_DCM.Text.Length, DL_Part_name.Text, TB_Product.Text, TB_DCM.Text, DL_Size.Text, TB_Status.Text.Length, TB_Status.Text, TB_Eval.Text.Length, TB_Eval.Text, DL_Phase.Text, date_start, date_end, time_in, time_out, Fill, Table, Group, Fill_log, Table_log, Group_log, where, condition, where_log, condition_log, where_part, where_time, where_time_log)
        End If

        Dim gv As New GridView()
        gv.DataSource = dt
        gv.DataBind()

        Dim i As Integer = 0
        Dim da_track As New MySqlDataAdapter
        Dim da_track_log As New MySqlDataAdapter
        Dim dt_track As New DataTable
        If Mode = "present" Then
            While i < gv.Rows.Count
                Dim dt_time As New DataTable()
                da_track = New MySqlDataAdapter("SELECT part.Part_ID,time.DATA_ID,part.Part_Name,part.Product_Name,part.DCM,part.Part_Status,part.Eval_Name,part.Size,time.Time_Date,time.Time,time.Time_Status  FROM part,time WHERE part.Part_ID = time.Part_id AND time.data_id ='" + gv.Rows(i).Cells(0).Text + "'  ORDER BY part.part_name = 'BVCM',part.part_name='TVCM',part.part_name='MOTORBASE',part.part_name='TOP_COVER',part.part_name='MEDIA',part.part_name='HSA',time.DATA_ID,SUBSTRING(time.Time_Date,7,2),SUBSTRING(time.Time_Date,4,2),SUBSTRING(time.Time_Date,1,2),time.Time ", Conn)
                da_track.Fill(dt_time)
                If dt_time.Rows.Count = 0 Then
                    da_track_log = New MySqlDataAdapter("SELECT part.Part_ID,time_log.DATA_ID,part.Part_Name,part.Product_Name,part.DCM,part.Part_Status,part.Eval_Name,part.Size,time_log.Time_Date,time_log.Time,time_log.Time_Status  FROM part,time_log WHERE part.Part_ID = time_log.Part_id AND time_log.data_id ='" + gv.Rows(i).Cells(0).Text + "' ORDER BY part.part_name = 'BVCM',part.part_name='TVCM',part.part_name='MOTORBASE',part.part_name='TOP_COVER',part.part_name='MEDIA',part.part_name='HSA',time_log.DATA_ID,SUBSTRING(time_log.Time_Date,7,2),SUBSTRING(time_log.Time_Date,4,2),SUBSTRING(time_log.Time_Date,1,2),time_log.Time ", Conn)
                    da_track_log.Fill(dt_track)
                Else
                    da_track.Fill(dt_track)
                End If
                i = i + 1
            End While
        Else
            Dim count As Integer = 0
            Dim values As Integer = gv.Rows.Count / 100
            Dim chk_count As Integer = 0
            While i < gv.Rows.Count
                Dim dt_time As New DataTable()
                da_track = New MySqlDataAdapter("SELECT part_track.Part_ID,time_log_track.DATA_ID,part_track.Part_Name,part_track.Product_Name,part_track.DCM,part_track.Part_Status,part_track.Eval_Name,part_track.Size,time_log_track.Time_Date,time_log_track.Time,time_log_track.Time_Status  FROM part_track,time_log_track WHERE part_track.Part_ID = time_log_track.Part_id AND time_log_track.data_id ='" + gv.Rows(i).Cells(0).Text + "'  ORDER BY part_track.part_name = 'BVCM',part_track.part_name='TVCM',part_track.part_name='MOTORBASE',part_track.part_name='TOP_COVER',part_track.part_name='MEDIA',part_track.part_name='HSA',time_log_track.DATA_ID,SUBSTRING(time_log_track.Time_Date,7,2),SUBSTRING(time_log_track.Time_Date,4,2),SUBSTRING(time_log_track.Time_Date,1,2),time_log_track.Time ", Conn)
                da_track.Fill(dt_time)
                If dt_time.Rows.Count = 0 Then
                    da_track_log = New MySqlDataAdapter("SELECT part_track.Part_ID,time_log_track.DATA_ID,part_track.Part_Name,part_track.Product_Name,part_track.DCM,part_track.Part_Status,part_track.Eval_Name,part_track.Size,time_log_track.Time_Date,time_log_track.Time,time_log_track.Time_Status  FROM part_track,time_log_track WHERE part_track.Part_ID = time_log_track.Part_id AND time_log_track.data_id ='" + gv.Rows(i).Cells(0).Text + "' ORDER BY part_track.part_name = 'BVCM',part_track.part_name='TVCM',part_track.part_name='MOTORBASE',part_track.part_name='TOP_COVER',part_track.part_name='MEDIA',part_track.part_name='HSA',time_log_track.DATA_ID,SUBSTRING(time_log_track.Time_Date,7,2),SUBSTRING(time_log_track.Time_Date,4,2),SUBSTRING(time_log_track.Time_Date,1,2),time_log_track.Time ", Conn)
                    da_track_log.Fill(dt_track)
                Else
                    da_track.Fill(dt_track)
                End If
                i = i + 1
                If chk_count <= i Then
                    chk_count = chk_count + values
                    e.UpdateProgress(count)
                    count = count + 1
                End If
            End While
            e.UpdateProgress(100)
            Response.Write("Test")
        End If
        '''''''''''''''''''''''''''''''''''''''''
        GV_Index.DataSource = dt_track
        GV_Index.DataBind()
        Clear_Gv()
        Label1.Text = GV_Index.Rows.Count
    End Sub


ผม debug ตรง GV_index แล้วครับ มันก็มีค่าอยู่ แต่พอแสดง กลับเป็น gridview เปล่าๆ
ช่วยแนะนำทีครับ
ขอบคุณครับ


ประวัติการแก้ไข
2011-04-08 11:35:46
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-04-08 00:23:05 By : sodamax
 


 

No. 4



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



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


ช่วยทีครับ
อันนี้เมล์ผมครับ [email protected]


หรือทิ้งเม์ไว้ก็ได้ครับ เด๋วผม แอดไปขอคำปนะนำครับ ^^
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-04-08 11:49:16 By : sodamax
 

   

ค้นหาข้อมูล


   
 

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