Forgot Password ??

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

	Registered : 109,037

HOME > .NET Framework > Forum > เรื่องของ no row at position ใน VB อ่ะค่ะรบกวนช่วยหน่อยค่ะ พลีสส T^T

เรื่องของ no row at position ใน VB อ่ะค่ะรบกวนช่วยหน่อยค่ะ พลีสส T^T

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

มือใหม่ค่าา

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

แตกประเด็นมาจากกระทู้ https://www.thaicreate.com/dotnet/forum/037460.html ที่หนูได้ลองศึกษาดู

คือหนูเข้าใจว่าต้องมีการตรวจสอบ ROW ก่อนใช่มั้ยคะถ้ามันขึ้น ERROR ว่า no row at position

หนูอยากให้ค่าที่หนูเรียกมาจาก class ที่ชื่อ sendpara มาแสดง textbox รึ combobox อะไรอย่างนี้อ่ะค่ะ

โดยหนูก็ลองทั้งการเรียกข้อมูลมาจาก class หรือว่าเรียกมาจาก Database โดยตรงแล้วอ่ะค่ะ

แต่ก็ยังขึ้น ERROR แบบเดิมอยู่ก็เลยไม่รู้จะทำยังไงอ่ะคะ นี่เป็น code ที่หนูทำนะคะ

Code (VB.NET)

Private Sub txtsearch_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtsearch.EditValueChanged
        Try
            If GridView1.RowCount <> 0 Then

                If GridView1.GetDataRow(GridView1.FocusedRowHandle)("User_id").ToString = "" Then
                    Exit Sub
                Else
                    Dim pic As Byte()

                    sb = New StringBuilder
                    sb.Append("SELECT * FROM V_USER_TH")
                    sb.Append(" WHERE user_id ='" & sendpara.user_id & "'")
                    connection()
                    da = New SqlDataAdapter(sb.ToString, conn)
                    ds = New DataSet
                    conn.Close()

                    da.Fill(ds, "V_USER_TH")

                    TextEdit3.Text = ds.Tables("V_USER_TH").Rows(0)("Firstname_th").ToString
                    TextEdit4.Text = ds.Tables("V_USER_TH").Rows(0)("lastname_th").ToString
                    TextEdit14.Text = ds.Tables("V_USER_TH").Rows(0)("Mobile_phone").ToString
                    TextEdit9.Text = ds.Tables("V_USER_TH").Rows(0)("Address").ToString
                    TextEdit10.Text = ds.Tables("V_USER_TH").Rows(0)("Sub_amp").ToString
                    TextEdit11.Text = ds.Tables("V_USER_TH").Rows(0)("AMP_NAME_TH").ToString
                    TextEdit12.Text = ds.Tables("V_USER_TH").Rows(0)("PRV_NAME_TH").ToString
                    TextEdit13.Text = ds.Tables("V_USER_TH").Rows(0)("thai_code").ToString
                    TextEdit18.Text = ds.Tables("V_USER_TH").Rows(0)("Site_name").ToString
                    TextEdit17.Text = ds.Tables("V_USER_TH").Rows(0)("Department_Name").ToString
                    TextEdit16.Text = ds.Tables("V_USER_TH").Rows(0)("Position_name").ToString
                    TextEdit15.Text = ds.Tables("V_USER_TH").Rows(0)("start_date")
                    TextEdit25.Text = ds.Tables("V_USER_TH").Rows(0)("status").ToString
                    Select Case TextEdit25.Text
                        Case "F"
                            TextEdit25.Text = "พนักงานประจำ"
                        Case "P"
                            TextEdit25.Text = "พนักงานทดลองงาน"
                        Case "T"
                            TextEdit25.Text = "ฝึกงาน"
                    End Select
                    CalcDate(ds.Tables("V_USER_TH").Rows(0)("start_date"), Today.Date)
                    TextEdit22.Text = vYears
                    TextEdit23.Text = vMonths
                    TextEdit24.Text = vDays

                    pic = ds.Tables("V_USER_TH").Rows(0)("Pic_user")
                    Dim mem As New MemoryStream(pic)
                    PictureEdit1.Image = Image.FromStream(mem)

                End If

            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Exit Sub
        End Try

    End Sub

หนูทำผิดตรงไหนรึว่าต้องทำยังไงเพิ่มรึปล่าวอ่ะคะ T^T ช่วยดูให้หนูหน่อยนะคะ ขอบคุณมากเลยค่ะ

Tag : .NET, Ms SQL Server 2008, Win (Windows App), VS 2010 (.NET 4.x)

Date : 2011-06-02 14:44:29

By : แค่เด็กตัวเล๊กๆคนนึง

View : 1088

Reply : 4

No. 1

TC Admin

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

ใส่ IF ds.Tables("V_USER_TH").Rows.Count > 0 Then ไม่ได้เหรอครับ

Code (VB.NET)

Private Sub txtsearch_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtsearch.EditValueChanged
        Try
            If GridView1.RowCount <> 0 Then

                If GridView1.GetDataRow(GridView1.FocusedRowHandle)("User_id").ToString = "" Then
                    Exit Sub
                Else
                    Dim pic As Byte()

                    sb = New StringBuilder
                    sb.Append("SELECT * FROM V_USER_TH")
                    sb.Append(" WHERE user_id ='" & sendpara.user_id & "'")
                    connection()
                    da = New SqlDataAdapter(sb.ToString, conn)
                    ds = New DataSet
                    conn.Close()

                    da.Fill(ds, "V_USER_TH")
                    IF ds.Tables("V_USER_TH").Rows.Count > 0 Then
			    TextEdit3.Text = ds.Tables("V_USER_TH").Rows(0)("Firstname_th").ToString
			    TextEdit4.Text = ds.Tables("V_USER_TH").Rows(0)("lastname_th").ToString
			    TextEdit14.Text = ds.Tables("V_USER_TH").Rows(0)("Mobile_phone").ToString
			    TextEdit9.Text = ds.Tables("V_USER_TH").Rows(0)("Address").ToString
			    TextEdit10.Text = ds.Tables("V_USER_TH").Rows(0)("Sub_amp").ToString
			    TextEdit11.Text = ds.Tables("V_USER_TH").Rows(0)("AMP_NAME_TH").ToString
			    TextEdit12.Text = ds.Tables("V_USER_TH").Rows(0)("PRV_NAME_TH").ToString
			    TextEdit13.Text = ds.Tables("V_USER_TH").Rows(0)("thai_code").ToString
			    TextEdit18.Text = ds.Tables("V_USER_TH").Rows(0)("Site_name").ToString
			    TextEdit17.Text = ds.Tables("V_USER_TH").Rows(0)("Department_Name").ToString
			    TextEdit16.Text = ds.Tables("V_USER_TH").Rows(0)("Position_name").ToString
			    TextEdit15.Text = ds.Tables("V_USER_TH").Rows(0)("start_date")
			    TextEdit25.Text = ds.Tables("V_USER_TH").Rows(0)("status").ToString
			    Select Case TextEdit25.Text
				Case "F"
				    TextEdit25.Text = "พนักงานประจำ"
				Case "P"
				    TextEdit25.Text = "พนักงานทดลองงาน"
				Case "T"
				    TextEdit25.Text = "ฝึกงาน"
			    End Select
			    CalcDate(ds.Tables("V_USER_TH").Rows(0)("start_date"), Today.Date)
			    TextEdit22.Text = vYears
			    TextEdit23.Text = vMonths
			    TextEdit24.Text = vDays

			    pic = ds.Tables("V_USER_TH").Rows(0)("Pic_user")
			    Dim mem As New MemoryStream(pic)
			    PictureEdit1.Image = Image.FromStream(mem)
		    End IF

                End If

            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Exit Sub
        End Try

    End Sub

Date : 2011-06-02 15:38:48

By : webmaster

No. 2

มือใหม่ค่าา

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

รึว่าไม่สามารถ SELECT มาโชว์ได้เลยอ่ะคะ แบบว่าถ้าพิม user_id ลงไปอ่ะค่ะ T^T

Date : 2011-06-02 15:39:25

By : แค่เด็กตัวเล๊กๆคนนึง

No. 3

มือใหม่ค่าา

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

หนูลอง เพิ่ม IF ds.Tables("V_USER_TH").Rows.Count > 0 Then ไปแล้วค่ะแต่ว่ามันออกนอก Loop ไปเลยอ่ะค่ะ T^T

Date : 2011-06-02 15:45:04

By : แค่เด็กตัวเล๊กๆคนนึง

No. 4

มือใหม่ค่าา

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

ทำได้แล้วค่ะ คือหนูเรียกจาก class sentpara เลยไม่ได้น่ะค่ะ เพราะมันเป็นการเรียกมาโดยตรง

หนูเลยเรียกจาก user_id เลย แล้วก็ใช้เงื่อนไขที่คุณ วิน บอกอ่ะค่ะ

โดยเปลี่ยนจาก sb.Append(" WHERE user_id ='" & sendpara.user_id & "'")

เป็น sb.Append(" WHERE User_id like " & txtsearch.Text.Trim)

ขอบคุณมากนะคะ บางทีบางปัญหาที่เราเจอมันเกิดจากความสับเพร่าเล็กๆน้อยๆนั่นเองอ่ะค่ะ

แต่หนูก็ตื่นตูมไป เพราะว่ายังมือใหม่กับโปรแกรมนี้อ่ะค่ะ ต้องขอบคุณทุกคนมากนะคะที่ช่วยชี้แนะ

^__^

Date : 2011-06-02 16:29:01

By : แค่เด็กตัวเล๊กๆคนนึง

ค้นหาข้อมูล

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

Re : เรื่องของ no row at position ใน VB อ่ะค่ะรบกวนช่วยหน่อยค่ะ พลีสส T^T

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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