Forgot Password ??

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

	Registered : 109,027

HOME > .NET Framework > Forum > โหลดข้อมูลการยืมลง Combobox บันทึกแล้วไม่ต้องแสดงข้อมูลอีก แล้วดึงข้อมูลกลับมาเมื่อบันทึกคืน

โหลดข้อมูลการยืมลง Combobox บันทึกแล้วไม่ต้องแสดงข้อมูลอีก แล้วดึงข้อมูลกลับมาเมื่อบันทึกคืน

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

Guest

ช่วยหนูหน่อยค่ะ
อยากให้ข้อมูลในcombobox เวลาบันทึกยืมแล้วไม่ให้โชว์ข้อมูลนั้นอีก
แล้วให้ข้อมูลกลับมาโชว์ในcomboboxเวลาบันทึกคืน
ขอโค้ดด้วยค่ะ

Tag : .NET, VB.NET

Date : 2014-01-30 13:08:17

By : ไร้สมอง

View : 1876

Reply : 7

No. 1

0100 0010

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

มีสองทางให้เลือกครับ

1. ตอนที่คิวรี่ Load ข้อมูลมาใส่ Combobox ให้ เขียนคิวรี่เพิ่ม Where เข้าไปว่า

Code (SQL)

WHERE ItemID NOT IN(SELECT ItemID From tblBorrowItems)

ปล. ItemID = ฟิลรหัสอุปกรณ์ , tblBorrowItems = ชื่อตารางการยืมอุปกรณ์

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

2. เพิ่มฟิล "ยืม" เป็นชนิด bit (Boolean) ในตารางอุปกรณ์ กรณีที่มีการเพิ่ม การยืมอุปกรณ์

ก็ต้องตามไปอัพเดทฟิล "ยืม" ให้เป็น True ด้วย

หลังจากมีการคืนก็ต้องตามไปอัพเดทให้เปลี่ยนเป็น False เช่นกัน

ตอนเรียกมาแสดงใน Combobox เราก็แค่ Where "ยืม" = False แค่นั้นครับ

ปล. "ยืม" = ชื่อฟิลการยืม Type bit (Boolean) อยู่ในตารางอุปกรณ์

ประวัติการแก้ไข
2014-01-30 15:51:05
2014-01-30 15:51:40
2014-01-30 15:53:39

Date : 2014-01-30 15:49:56

By : 01000010

No. 2

Guest

Public Function LoadAlltool()
'โหลดข้อมูล อุปกรณ์ ลงใน ComboBox
Dim objConn As New OleDbConnection
Dim dtAdapter As OleDbDataAdapter
Dim ds As New DataSet
Dim strSQL As String
Connection(objConn)
strSQL = "SELECT * FROM Tool "
dtAdapter = New OleDbDataAdapter(strSQL, objConn)
dtAdapter.Fill(ds)
With ComboBox2
.DataSource = ds.Tables(0)
.DisplayMember = "Tool_ID"
.ValueMember = "Tool_ID"
End With
ComboBox2.SelectedItem = 0
Return True
End Function

นี่เป็นโค้ดที่หนูโหลดข้อมูลลงcomboboxค่ะ
หน่อยไม่รู้จะใส่ตรงไหนช่วยบอกหนูหน่อยค่ะ

Date : 2014-01-30 16:21:03

By : ไร้สมอง

No. 3

0100 0010

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

ตอบความคิดเห็นที่ : 2 เขียนโดย : ไร้สมอง เมื่อวันที่ 2014-01-30 16:21:03

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

ถ้าเป็นในกรณีที่ 1 ให้เอาไปต่อในคิวรี่บรรทัดนี้ครับ

Code (VB.NET)

strSQL = "SELECT * FROM Tool"

กลายเป็น

Code (VB.NET)

strSQL = "SELECT * FROM Tool WHERE Tool.ItemID NOT IN(SELECT ItemID From tblBorrowItems)"

ประมาณนี้ครับ ที่เหลือก็ไปปรับชื่อตารางให้ตรงกัน และก็อย่าลืมลบรายการอุปกรณ์ที่คืนแล้วออกจากตารางการยืมด้วยนะครับ

Date : 2014-01-30 16:28:13

By : 01000010

No. 4

Guest

ทำไรแล้วค่ะ ขอบคุณค่ะ
แต่เวลาคืนอุปกรณ์ แล้วรหัสอุปกรณ์ไม่กลับมาหน้ายืมทำอย่างไรค่ะ รบกวนหน่อยค่ะ
คืนอุปกรณ์หนูใช้โค้ดนี้ค่ะ
Dim Conn As New OleDbConnection
Dim Cmd As New OleDbCommand
Dim Str As String
MyModule.Connection(Con)
Select Case status
Case "add"
If MsgBox("คุณต้องการรับคืนอุปกรณ์ ใช่หรือไม่?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "ยืนยัน") = MsgBoxResult.Ok Then
ElseIf ComboBox1.Text = "" Then
MessageBox.Show("กรุณากรอกจำนวนคงเหลือ !!!", "ข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Information)
ComboBox1.Focus()
ComboBox1.SelectAll()
Exit Sub
Else
Str = "INSERT INTO BeRetool([Brt_ID],[Brt_DayBe],[Brt_DayTu],[Brt_Sname],[Brt_Gname],[Brt_Tname],[Brt_Quantity],[Brt_Pack],[Brt_Ename],[Brt_TUName],[Brt_Memo]) VALUES("
Str &= "'" & ComboBox1.Text & "',"
Str &= "null,"
Str &= "'" & DateTimePicker3.Text & "',"
Str &= "'" & TextBox2.Text & "',"
Str &= "'" & TextBox13.Text & "',"
Str &= "'" & TextBox14.Text & "',"
Str &= "'" & TextBox11.Text & "',"
Str &= "'" & ComboBox1.Text & "',"
Str &= "'" & TextBox5.Text & "',"
Str &= "'" & TextBox4.Text & "',"
Str &= "'" & TextBox3.Text & "' "
Str &= ")"

Try
Cmd = New OleDbCommand(Str, Con)
Cmd.ExecuteNonQuery()
Str = "UPDATE Tool SET Tool_Quantity='" & TextBox11.Text & "'WHERE [Brt_ID]= '" & ComboBox1.Text & "'"
MsgBox("บันทึกข้อมูล เรียบร้อย", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "แจ้งเตือน")
SqlCmd = New OleDbCommand(Str, Con)
SqlCmd.ExecuteNonQuery()
Catch ex As Exception
MsgBox("ไม่สามารถบันทึกข้อมูลได้", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "แจ้งเตือน")
End Try
End If
Case "Edit"
Str = "UPDATE BeRetool,Tool SET Brt_DayTu= '" & DateTimePicker3.Text & "',Brt_Sname='" & TextBox2.Text & "',Brt_Gname='" & TextBox20.Text & "',Brt_Tname='" & TextBox18.Text & "',Brt_Quantity='" & TextBox11.Text & "',Brt_Pack='" & TextBox14.Text & "',Brt_Ename='" & TextBox21.Text & "',Brt_TUName='" & TextBox8.Text & "',Brt_Memo='" & TextBox3.Text & "',Tool_Quantity='" & TextBox11.Text & "' WHERE [Brt_ID]= '" & ComboBox1.Text & "'"
Try
Cmd = New OleDbCommand(Str, Con)
Cmd.ExecuteNonQuery()
MsgBox("แก้ไขข้อมูล เรียบร้อย", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "แจ้งเตือน")
Catch ex As Exception
MsgBox("ไม่สามาารถแก้ไขข้อมูลได้", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "แจ้งเตือน")
End Try
End Select

Showdata()
Clear()
Disable()
status = ""
Button12.Text = "บันทึก"
TextBox8.Text = "" & CurrentName & " " & CurrentLast & ""

Date : 2014-02-03 15:05:22

By : ไร้สมอง

No. 5

0100 0010

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

ผมไม่เข้าใจบรรทัดนี้ครับ

Code (VB.NET)

If MsgBox("คุณต้องการรับคืนอุปกรณ์ ใช่หรือไม่?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "ยืนยัน") = MsgBoxResult.Ok Then

แล้วเป็น ElseIf เลย ทำไมมันว่างไม่มีคำสั่ง งงครับ

Date : 2014-02-03 15:18:30

By : 01000010

No. 6

Guest

เป็นปุ่มยืนยันว่าจะรับคืนหรือไม่ค่ะ
ตัวอย่างโปรแกรมค่ะ

Date : 2014-02-03 15:27:28

By : ไร้สมอง

No. 7

0100 0010

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

ตอบความคิดเห็นที่ : 4 เขียนโดย : ไร้สมอง เมื่อวันที่ 2014-02-03 15:05:22

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

แต่เวลาคืนอุปกรณ์ แล้วรหัสอุปกรณ์ไม่กลับมาหน้ายืมทำอย่างไรค่ะ

ที่ถามข้างบนนี้ ใช่ส่วนเดียวกันปะ ถ้าใช่ มันไม่มีโค้ดอะไรเลยแล้วมันจะคืนได้ไงอะครับ

Date : 2014-02-03 16:50:01

By : 01000010

ค้นหาข้อมูล

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

Re : โหลดข้อมูลการยืมลง Combobox บันทึกแล้วไม่ต้องแสดงข้อมูลอีก แล้วดึงข้อมูลกลับมาเมื่อบันทึกคืน

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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