 |
| |
เรื่องของ no row at position ใน VB อ่ะค่ะรบกวนช่วยหน่อยค่ะ พลีสส T^T |
| |
 |
|
|
 |
 |
|
แตกประเด็นมาจากกระทู้ 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 :
1105 |
Reply :
4 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
ใส่ 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 |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
รึว่าไม่สามารถ SELECT มาโชว์ได้เลยอ่ะคะ แบบว่าถ้าพิม user_id ลงไปอ่ะค่ะ T^T
|
| |
|
|
| |
| Date :
2011-06-02 15:39:25 |
By :
แค่เด็กตัวเล๊กๆคนนึง |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
หนูลอง เพิ่ม IF ds.Tables("V_USER_TH").Rows.Count > 0 Then ไปแล้วค่ะแต่ว่ามันออกนอก Loop ไปเลยอ่ะค่ะ T^T
|
| |
|
|
| |
| Date :
2011-06-02 15:45:04 |
By :
แค่เด็กตัวเล๊กๆคนนึง |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ทำได้แล้วค่ะ คือหนูเรียกจาก 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 :
แค่เด็กตัวเล๊กๆคนนึง |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
