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 > ช่วยดูให้หน่อยนะค่ะ เกี่ยวกับ timer ค่ะ มันไม่วิ่งชื่อ product ทุกชื่อที่มีในตาราง



 

ช่วยดูให้หน่อยนะค่ะ เกี่ยวกับ timer ค่ะ มันไม่วิ่งชื่อ product ทุกชื่อที่มีในตาราง

 



Topic : 051696

Guest




คือเขียนโปรแกรมเพื่อดึงข้อมูลจสกตารางโปรดัก แล้วนำชื่อโปรดักมาแสดงใน label ปรากฎว่ามันไม่อ่านชื่ออื่น มันอ่านโปรดักตัวเดียวขึ้นมา
ไม่ทราบว่าต้องทำยังไงค่ะ
Code (VB.NET)
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim strConn As String = ""
        Dim Cmd As OleDb.OleDbCommand
        Dim Con As OleDb.OleDbConnection
        Dim Sql As String = Nothing
        Dim Reader As OleDb.OleDbDataReader
        Dim ComboRow As Integer = -1
        Dim Columns As Integer = 0

        Con = New OleDb.OleDbConnection("Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=jcompile;Data Source=192.168.1.148")
        Sql = "SELECT productname from product"
        Cmd = New OleDb.OleDbCommand(Sql, Con)
        Con.Open()
        Reader = Cmd.ExecuteReader()
        While Reader.Read()
            For Columns = 0 To Reader.FieldCount - 1
                'MsgBox(Reader.Item(Columns).ToString)
                Label1.Text = (Reader.Item(Columns).ToString)
                Label2.Text = ComboRow + 2 & " rows"
            Next
            ComboRow += 1
            'ProgressBar1.Value += 1
            Label3.Text = ComboRow + 1 & " %"
        End While
        Con.Close()
    End Sub


End Class




นี้คือโค้ดที่เขียนช่วยดูหน่อยนะค่ะ



Tag : .NET, VB.NET







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2010-11-15 14:10:54 By : orange View : 979 Reply : 6
 

 

No. 1

Guest


ไม่มีใครตอบเลยช่วยหน่อยนะค่ะ
ไม่ค่อยเก่งค่ะ รบกวนผู้รู้ด้วยนะคะ






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-11-15 15:33:17 By : orange
 


 

No. 2



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



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

ไม่ค่อยเข้าใจเท่าไรนะ

แต่ลอง Debug ค่าที่ละบรรทัดนะครับ

แล้วดูว่ามันโชว์อะไรบ้าง

แต่ที่ดู เราเลือกมาโชว์ผิดหรือปล่าว ลองดุไปครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-11-15 15:48:23 By : stepxforce
 

 

No. 3

Guest


คือให้ label แสดงทุกๆ ชื่อสินค้าทีละชื่อค่ะ แล้วต้องการให้มันวิ่งแสดงไปเรื่อยๆ จึงใช้ timer แต่พอใช้ timer กลับอ่านขึ้นมาแค่ชื่อเดียวค่ะ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-11-15 16:01:13 By : orange
 


 

No. 4

Guest


= กับ &= ไม่เหมือนกันนะ จุ๊บ จุ๊บ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-11-15 16:03:19 By : ตังค์แมน
 


 

No. 5



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



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


ควรเรียกข้อมูลมาพักไว้ใน DataTable ก่อน

โค๊ดนี้ไม่ได้ทดสอบรัน อาจมีจุดผิดพลาดได้ หากมีปัญหาโพสปัญหาไว้ จะกลับมาดูอีกครั้ง

Code (VB.NET)
Public Class Form1

    Private WithEvents Timer1 As New Timer
    Private dt As New DataTable
    Private RowIndex As Integer


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim Con As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=jcompile;Data Source=192.168.1.148")
        Con.Open()
        Dim Sql As String = "SELECT productname from product"
        Dim Cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand(Sql, Con)
        Try
            dt.Load(Cmd.ExecuteReader())
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            Con.Close()
        End Try

        RowIndex = 0
        Timer1.Interval = 300
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Text = dt.Rows(RowIndex)(0)
        Label2.Text = RowIndex + 2 & " rows"
        RowIndex += 1
        If RowIndex >= dt.Rows.Count Then Timer.Stop
    End Sub

End Class




ประวัติการแก้ไข
2010-11-15 20:36:03
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-11-15 20:33:43 By : base3000
 


 

No. 6

Guest


ขอบคุณ คุณ tong มากนะค่ะ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-11-16 10:21:10 By : orange
 

   

ค้นหาข้อมูล


   
 

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